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