Private Sub cmd฿้_Click()
On Error GoTo Err_cmd฿้
@@@Dim meFormName As String
meFormName = Me.Form.Name
DoCmd.Close acForm, meFormName
Exit_cmd฿้:
Exit Sub
Err_cmd฿้:
MsgBox ("cmd฿้:" & Err.Number & " " & Err.Description)
Resume Exit_cmd฿้
End Sub