codice:
' Cancel edits -> do not save changes
Private Sub cmdRollback_Click()

    ' Undo changes
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
    
    ' Close the form
    DoCmd.Close acForm, "frm_cb_case"
End Sub
piccolo problema: se l'utente apre il form.. non fa niente.. e poi clicca su cmdRollback il comando UNDO non é disponibile (poiché non c'é nessuna azione da annullare... come lo controllo?)

[EDIT] ho risolto cosi:
codice:
' Cancel edits -> do not save changes
Private Sub cmdRollback_Click()

    On Error GoTo errorHandling

    ' Undo changes
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
    
    ' Close the form
    DoCmd.Close acForm, "frm_cb_case"
    
    Exit Sub
errorHandling:
    DoCmd.Close acForm, "frm_cb_case"
    
End Sub