error de "existencia"
Publicado por MP (9 intervenciones) el 21/07/2004 16:17:54
Esto esta correcto? me crea un registro que no existe al principio y al final de la tabla1(tb1) con lo que cuando ago el \"call refresco\" me da error y se sale del programa.
Private Sub Command5_Click()
If tb1.BOF = True Then
tb1.MoveFirst
Else
tb1.MovePrevious \' buscar Anterior
Call refresco(Form2)
End If
end sub
Public Sub refresco(x)
x.Text1(0).Text = x.tb1.Fields(0)
End Sub
Private Sub Command5_Click()
If tb1.BOF = True Then
tb1.MoveFirst
Else
tb1.MovePrevious \' buscar Anterior
Call refresco(Form2)
End If
end sub
Public Sub refresco(x)
x.Text1(0).Text = x.tb1.Fields(0)
End Sub
Valora esta pregunta
0