Error con bookmark
Publicado por Javi (1 intervención) el 01/03/2005 00:53:14
Estoy haciendo una aplicacion en red y me pasa lo siguiente, tengo un grid con los datos en un ordenador y al borrar el ultimo registro desde otro ordenador, (solo con el ultimo registro) me salta un error de marcador no valido, que corresponde a un timer que tengo puesto para refrescar el grid de todos los usuarios seguro que es por que es final de fichero pero no se como controlarlo, este es el codigo del timer.
Lo que no quiero es quitar el puntero de cada usuario, por eso utilizo el bookmark
SI alguien tiene una idea, agradecido le estare
Private Sub Timer1_Timer()
Dim xbookmark
xbookmark = Adodc1.Recordset.Bookmark
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
Else
Adodc1.Recordset.Bookmark = xbookmark
End If
End Sub
Lo que no quiero es quitar el puntero de cada usuario, por eso utilizo el bookmark
SI alguien tiene una idea, agradecido le estare
Private Sub Timer1_Timer()
Dim xbookmark
xbookmark = Adodc1.Recordset.Bookmark
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
Else
Adodc1.Recordset.Bookmark = xbookmark
End If
End Sub
Valora esta pregunta


0