Sia lngID l’ID “portante” della maschera. Per esempio, in una maschera “clienti” in cui l’ID del cliente, nella tabella clienti, è denominato id_cliente:
lngID = Me.id_cliente.Value 'prende l'ID cliente attuale
Me.Requery 'esegue un aggiornamento della maschera
'ritorna al record da cui è partito
Set rstFormClone = Me.Form.RecordsetClone
With rstFormClone
.FindFirst "ID_cliente=" & lngID
If Not .NoMatch Then
Me.Form.Bookmark = .Bookmark
End If
.Close
End With
Set rstFormClone = Nothing
MsgBox "I dati sono stati aggiornati"