No encuentra la biblioteca

Este es el código que me da el error.
Private Sub Comando92_Click()
Me.Refresh
If Me!AUTO = 0 Then
Dim Rst As Recordset
Set Rst = CurrentDb.OpenRecordset("RevisionesAutomoviles")
With Rst
.AddNew
!ID_N_REP = Me.Nº_ENTRADA
.Update
End With
Rst.Close
Me!AUTO = -1
End If
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Revisiones"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
Cuando el código se para, se para en el punto que anteriormente te he enviado. Puede ser el sistema opoerativo windows 98. Porque solo me da el error en éstos, en ningún NT me da el error. ¿Faltan librerías?

1 Respuesta

Respuesta
1
Depurando el código que me has pasado si me da error en esa linea, aunque el error es de "no se ha definido el tipo definido por el usuario", el error me lo da al desmarcar la Referencia a la Biblioteca de tipo Microsoft DAO 3.6 Object Library (también con Microsoft DAO 2.5/3.5 Compatibility Library ), puedes usar cualquiera de ellas, pero no las dos al mismo tiempo.
La falta de referencias a estas bibliotecas no suelen aparecer marcadas como "Falta..." en la ventana Referencias de Herramientas del depurador. Tiene que ser esto porque si compruebas la Lista de propiedades y métodos (click con el derecho a la izquierda de Recordset) verás que no aparece, en cambio, si esta marcada la referencia si veras en esa lista el metodo/propiedad Recordset.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas