Access - Actualizar Tabla de Registros Access con Transferspreadsheet (Sin generar duplicados)

   
Vista:
Imágen de perfil de Roderick

Actualizar Tabla de Registros Access con Transferspreadsheet (Sin generar duplicados)

Publicado por Roderick (54 intervenciones) el 02/06/2016 22:51:17
Mi duda es que importo los datos de archivos excel a mi base de datos osea (Agrego nuevos). Pero hasta hace poco se me solicita que "ACTUALICE" un registro existente osea sustituya los valores que son diferentes a los del nuevo archivo excel. He intentado con una consulta de actualizacion desde una tabla temporal pero esto lo que hace es cambiar TODOS los datos de mi tabla y no debe ser asi porque solo necesito cambiar los que tengas el mismo primer campo Llamado "HOLEID"

Osea cuando hago la importacion de actualizacion debe verificar si el primero campo del archivo excel es igual a alguno de mi tabla. Entonces si es así actualizar solo ese. Y no generar duplicados

Aqui les dejo mi codigo de importacion (me funciona perfecto pero no se como hacer que funcione solo para actualizar como ya les dije):

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub agregar2_Click()
Dim Xl As Excel.Application 'Definimos una variable de aplicación Excel
Dim filepath As String
Dim rango As String
Dim respuesta As String
Set Xl = New Excel.Application 'Inicializamos la variable
filepath = Xl.GetOpenFilename 'Obtenemos el Excel que queremos importar
'Comprobamos que se haya seleccionado correctamente el archivo
If (filepath <> "") Then
   'Ejecutamos la consulta para que lo importe
  DoCmd.TransferSpreadsheet acImport, , "SpectTerraOptimizada", filepath, True, Me.rango
  MsgBox "Registros guardados con éxito", vbInformation
End If
End Sub

AQUI LA VENTANA EMERGENTE QEU UTILIZO:

TTT
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder