Access - gracias cespedes pero.....

 
Vista:

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
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

RE:gracias cespedes pero.....

Publicado por martin (9 intervenciones) el 25/04/2001 14:07:25
Donde pones
Set afiliadosimportacion = base.OpenRecordset("Select * from [afiliadosimportacion]")
debes poner
Set AfiliadosImportacion = currentdb.CreateQueryDef("","Select * from
[afiliadosimportacion]").OpenRecordset

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:gracias cespedes pero.....

Publicado por Blackman (1 intervención) el 25/04/2001 16:46:21
Va todo bien hasta el momento pero esto no es asi.

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]

Despues del end if te falta un
afiliadosimportacion.movenext
Loop

El loop es para que continue con el until

Te envie un email con correcciones y algunas preguntas.
Suerte
Manuel Cespedes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:gracias cespedes pero.....

Publicado por martin (9 intervenciones) el 26/04/2001 12:21:49
Hola Fernando
te he enviado por mail una solución que considero más eficiente, pruebala y si tienes problemas me avisas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar