'Codice da inserire nella sezione General Declarations della form
Dim Posizione As Variant --------------- 'Codice da inserire nell'evento Click del CommandButton MemorizzaPosizione Private Sub MemorizzaPosizione_Click() Posizione = Data1.Recordset.Bookmark End Sub '--------------- 'Codice da inserire nell'evento Click del CommandButton Riposiziona Private Sub Riposiziona_Click() Data1.Recordset.Bookmark = Posizione End Sub '--------------- 'Se si utilizza la versione 4 o 5 di VB si puo' anche utilizzare 'la proprieta' ABSOLUTEPOSITION dell'oggetto recordset. 'Infatti questa proprieta' contiene il valore fisico del record 'all'interno della tabella (la numerazione dei record parte da 0). |