Diferentes versiones Access??
Publicado por Marta (1 intervención) el 08/01/2010 12:13:15
Buenos dias,
Tengo mi base de datos Access 2000, en el evento de un botón tengo el siguiente código:
Set rst = CurrentDb.OpenRecordset("select ANYONACIMIENTO, REGIMENINSCRIPCION from tSocios WHERE ANYONACIMIENTO is not null")
rst.MoveFirst
Do While Not rst.EOF
Dim anyoMas18 As Integer
anyoMas18 = rst.Fields("ANYONACIMIENTO").Value + 18
Dim anyoActual As Integer
anyoActual = Year(Now) 'año actual del sistema
If anyoMas18 <= anyoActual Then
rst.Edit
rst.Fields("REGIMENINSCRIPCION").Value = "ADULTO"
rst.Update
End If
rst.MoveNext
Loop
Me funciona perfectamente, pero en otro PC con Access 2007 no funciona, dando el siguiente error:
"Error de Compilacion:
No se puede encontrar el proyecto o la biblioteca"
Y el error señala el primer "rst = "
Qué puedo hacer?? Muchas gracias.
Tengo mi base de datos Access 2000, en el evento de un botón tengo el siguiente código:
Set rst = CurrentDb.OpenRecordset("select ANYONACIMIENTO, REGIMENINSCRIPCION from tSocios WHERE ANYONACIMIENTO is not null")
rst.MoveFirst
Do While Not rst.EOF
Dim anyoMas18 As Integer
anyoMas18 = rst.Fields("ANYONACIMIENTO").Value + 18
Dim anyoActual As Integer
anyoActual = Year(Now) 'año actual del sistema
If anyoMas18 <= anyoActual Then
rst.Edit
rst.Fields("REGIMENINSCRIPCION").Value = "ADULTO"
rst.Update
End If
rst.MoveNext
Loop
Me funciona perfectamente, pero en otro PC con Access 2007 no funciona, dando el siguiente error:
"Error de Compilacion:
No se puede encontrar el proyecto o la biblioteca"
Y el error señala el primer "rst = "
Qué puedo hacer?? Muchas gracias.
Valora esta pregunta
0