Tip of the moment is: Close a form
'Lokar virku formi
DoCmd.Close
Eša:
DoCmd.Close acForm, Me.Name
'Lokar įkvešnu formi og vistar breytingar į hönnuninni DoCmd.Close acForm, "frmStudentSelect", acSaveYes
'Loka formi įn žess aš vista breytingar į gögnum (Cancel)
Private Sub cmdHaettaVid_Click()
On Error GoTo Buff
DoCmd.RunCommand acCmdUndo
DoCmd.Close acForm, Me.Name
Hopa:
Exit Sub
Buff:
Select Case Err.Number
Case Is = 2046
'Ekki var neitt aš gera ķ Undo
DoCmd.Close acForm, Me.Name
Case Else
MsgBox "Upp kom villa ķ stefju frmFrumthattaskraVidhaldNyttNr.cmdHaettaVid_Click.", vbCritical, "Villa"
End Select
Resume Hopa
End Sub