Четыре кнопки на форме: добавить запись, удалить запись, закрыть, найти запись

Private Sub КнопкаДобавитьЗапись_Click()
 
On Error GoTo Err_КнопкаДобавитьЗапись_Click
 
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_КнопкаДобавитьЗапись_Click:
    Exit Sub
 
Err_КнопкаДобавитьЗапись_Click:
    MsgBox Err.Description
    Resume Exit_КнопкаДобавитьЗапись_Click
    
End Sub
 
Private Sub КнопкаЗакрыть_Click()
On Error GoTo Err_КнопкаЗакрыть_Click
 
 
    If Me.Dirty Then Me.Dirty = False
    DoCmd.Close
 
Exit_КнопкаЗакрыть_Click:
    Exit Sub
 
Err_КнопкаЗакрыть_Click:
    MsgBox Err.Description
    Resume Exit_КнопкаЗакрыть_Click
End Sub
 
Private Sub КнопкаНайтиЗапись_Click()
On Error GoTo Err_КнопкаНайтиЗапись_Click
 
 
    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdFind
 
Exit_КнопкаНайтиЗапись_Click:
    Exit Sub
 
Err_КнопкаНайтиЗапись_Click:
    MsgBox Err.Description
    Resume Exit_КнопкаНайтиЗапись_Click
End Sub
 
Private Sub КнопкаУдалитьЗапись_Click()
On Error GoTo Err_КнопкаУдалитьЗапись_Click
 
 
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
 
Exit_КнопкаУдалитьЗапись_Click:
    Exit Sub
 
Err_КнопкаУдалитьЗапись_Click:
    MsgBox Err.Description
    Resume Exit_КнопкаУдалитьЗапись_Click
End Sub