Kayıt butonunuzun tıklanma olayına

If Len(Me.adı & "a") = 1 Then
MsgBox ("adı alanı boş bırakılamaz")
Me.adı.SetFocus
End If
If Len(Me.tckimlik & "a") = 1 Then
MsgBox ("kimlik alanı boş bırakılamaz")
Me.tckimlik.SetFocus
End If
Exit Sub

On Error GoTo Err_Komut8_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
Exit_Komut8_Click:
Exit Sub

Err_Komut8_Click:
MsgBox Err.Description
Resume Exit_Komut8_Click

yazın