No hayo el Error
Publicado por Jose Francisco (34 intervenciones) el 06/12/2004 17:32:47
Hola como estan, espero que me puedan ayudar tengo una pantalla donde ingreso dos botones uno de siguiente y uno anterior... En mi base de datos tengo 2 registros, cuando le doy siguiente me trae el que sigue y si le doy anterior me trae el registro anterior, pero ahorita ingrese un tercer registro y cuando le doy siguiente no me lo trae, se queda en el segundo y no hace nada, no truena y ni nada, y si esta en mi base, este es el codigo que utilizo
Private Sub Command1_Click()
Command2.Enabled = True
qry = ""
qry = "Select * from tblcalibracion"
Set RsNP = DB_S.OpenRecordset(qry, dbOpenSnapshot, 64)
RsNP.MoveNext
If RsNP.RecordCount > 0 Then
If RsNP.EOF = True Then
RsNP.MoveLast
Else
If RsNP.RecordCount = 1 Then
MsgBox "Es el único Registro"
Command1.Enabled = False
Exit Sub
Else
Command1.Enabled = True
Text1.Text = RsNP!equipo1
Text2.Text = RsNP!siguiente_cal
Text3.Text = RsNP!serial
End If
End If
End If
End Sub
Haber si me pueden ayudar
Private Sub Command1_Click()
Command2.Enabled = True
qry = ""
qry = "Select * from tblcalibracion"
Set RsNP = DB_S.OpenRecordset(qry, dbOpenSnapshot, 64)
RsNP.MoveNext
If RsNP.RecordCount > 0 Then
If RsNP.EOF = True Then
RsNP.MoveLast
Else
If RsNP.RecordCount = 1 Then
MsgBox "Es el único Registro"
Command1.Enabled = False
Exit Sub
Else
Command1.Enabled = True
Text1.Text = RsNP!equipo1
Text2.Text = RsNP!siguiente_cal
Text3.Text = RsNP!serial
End If
End If
End If
End Sub
Haber si me pueden ayudar
Valora esta pregunta


0