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?
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 de raulmoscardo
1