Dopo una ricerca se non trova il record, alla chiusura della maschera mi sovrascrive il primo record della tabella settandomi tutti i campi a blank....come posso risolvere???
Private Sub Annulla_Nuovo_Cliente_Click()
On Error GoTo Err_Annulla_Nuovo_Cliente_Click
Dim result As Long
result = MsgBox("Vuoi Annullare?", vbYesNo Or vbQuestion Or vbDefaultButton2)
If result = vbYes Then
DoCmd.Close
End If
Exit_Annulla_Nuovo_Cliente_Click:
Exit Sub
Err_Annulla_Nuovo_Cliente_Click:
MsgBox Err.Description
Resume Exit_Annulla_Nuovo_Cliente_Click
End Sub