sizin yeni olduğunuzu düşünerek alttaki kodları yazıyorum enceleyiniz
Private Sub SOYİSİM_Enter()
Dim Msg, Style, Title, Response, MyString
Msg = "Kayıt Yapılsın mı ?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Dikkat"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
SOYİSİM.SetFocus 'buradaki SOYİSİM metin alanının adı uyarı yazısından sonra imleç
Else 'SOYİSİM metin alanına gider
İSİM.SetFocus
End If
End Sub
----------------------Kayıt yapıyımmı
Formun Güncelleştirme öncesinde
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim C As Integer
C = MsgBox("Kayıt üzerinde değişiklikler yapıldı.Kaydedilsin mi?", vbYesNo + vbQuestion + vbDefaultButton1, " Bilgi")
If C = vbNo Then
DoCmd.RunCommand acCmdUndo
End If
End Sub