gracias cespedes pero.....
Publicado por fernando cortes carmona (7 intervenciones) el 25/04/2001 13:41:54
en el dia de ayer lanzé la siguiente pregunta
una de no se que!!!!
pero como soy muy nuevo, introduzco el codigo sugerido por el compañero manuel cespedes y me da el error el tipo no coincide en Set afiliados = base.OpenRecordset ...
Private Sub actualiza_Click()
Dim base As Database
Dim afiliados As Recordset
Dim afiliadosimportacion As Recordset
Set base = CurrentDb
Set afiliadosimportacion = base.OpenRecordset("Select * from [afiliadosimportacion]")
afiliadosimportacion.MoveFirst
Do Until afiliadosimportacion.EOF = True
Set afiliados = base.OpenRecordset("Select * from [afiliados] where [afiliados.dni], &" _
& [afiliados.nombre], [afiliados.direccion], [afiliados.localidad], [afiliados.cp]) = " &" _
& [afiliadosimportacion.dni] <> [afiliadosimportacion.nombre] <> [afiliadosimportacion.direccion] & _
[afiliadosimportacion.localidad] <> [afiliadosafiliados.cp]
If afiliados.RecordCount = 0 Then
afiliados.AddNew
afiliados![dni] = afiliadosimportacion![dni]
afiliados![nombre] = afiliadosimportacion![nombre]
afiliados![direccion] = afiliadosimportacion![direccion]
afiliados![localidad] = afiliadosimportacion![localidad]
afiliados![cp] = afiliadosimportacion![cp]
afiliados.Update
End If
End Sub
una de no se que!!!!
pero como soy muy nuevo, introduzco el codigo sugerido por el compañero manuel cespedes y me da el error el tipo no coincide en Set afiliados = base.OpenRecordset ...
Private Sub actualiza_Click()
Dim base As Database
Dim afiliados As Recordset
Dim afiliadosimportacion As Recordset
Set base = CurrentDb
Set afiliadosimportacion = base.OpenRecordset("Select * from [afiliadosimportacion]")
afiliadosimportacion.MoveFirst
Do Until afiliadosimportacion.EOF = True
Set afiliados = base.OpenRecordset("Select * from [afiliados] where [afiliados.dni], &" _
& [afiliados.nombre], [afiliados.direccion], [afiliados.localidad], [afiliados.cp]) = " &" _
& [afiliadosimportacion.dni] <> [afiliadosimportacion.nombre] <> [afiliadosimportacion.direccion] & _
[afiliadosimportacion.localidad] <> [afiliadosafiliados.cp]
If afiliados.RecordCount = 0 Then
afiliados.AddNew
afiliados![dni] = afiliadosimportacion![dni]
afiliados![nombre] = afiliadosimportacion![nombre]
afiliados![direccion] = afiliadosimportacion![direccion]
afiliados![localidad] = afiliadosimportacion![localidad]
afiliados![cp] = afiliadosimportacion![cp]
afiliados.Update
End If
End Sub
Valora esta pregunta
0