lütfen aynı hatayı ikinci kez yapıyorsunuz (ACİL: 13 karaktere zorlama) ACİL gibi başlık atmayınız şöyle düşünün aynı sorunu olan bir kardeşimiz sizin açmış olduğunuz konudan sorununa cevap bulacak onun için sorunuzu açık net kısa anlaşılır konu başlığı yazarak sorunuz ayrıca sorunuzu sorarken üzerinde çalıştığınız örnek prg nizıda ekleyiniz
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