Chequea mi código
Hola jordim, aquí te envío un código de ejemplo pienso que esta bien y en Access 97 funciona de maravilla dame una opinión.
Muchas gracias
Option Compare Database
Dim DBS As Database
Dim RST As Recordset
Dim RUTA As String
Private Sub CMDENSAYO_Click()
If Not RST.BOF And Not RST.EOF Then
RST.MoveFirst
MsgBox RST!CODIGO
MsgBox RST!DESCRIPCION
MsgBox RST!NRO1
End If
End Sub
Private Sub Form_Load()
RUTA = "C:\JORGE IVAN GALLEGO\ENSAYO.mdb"
Set DBS = OpenDatabase(RUTA) ''CurrentDb()
Set RST = DBS.OpenRecordset("TABLA1", dbOpenDynaset)
Muchas gracias
Option Compare Database
Dim DBS As Database
Dim RST As Recordset
Dim RUTA As String
Private Sub CMDENSAYO_Click()
If Not RST.BOF And Not RST.EOF Then
RST.MoveFirst
MsgBox RST!CODIGO
MsgBox RST!DESCRIPCION
MsgBox RST!NRO1
End If
End Sub
Private Sub Form_Load()
RUTA = "C:\JORGE IVAN GALLEGO\ENSAYO.mdb"
Set DBS = OpenDatabase(RUTA) ''CurrentDb()
Set RST = DBS.OpenRecordset("TABLA1", dbOpenDynaset)
Respuesta
1