Private Sub Command47 Click( ◆ On Error goto Err Command 4 7 Click DoCmd. Close t Exit Command 7 Click Exit sub ◆ Err Command47 Click: Msg Box Err. Description Resume exit command 7 Click ◆ End subPrivate Sub Command47_Click() On Error GoTo Err_Command47_Click  DoCmd.Close Exit_Command47_Click:  Exit Sub Err_Command47_Click:  MsgBox Err.Description  Resume Exit_Command47_Click End Sub