Mükerrer kayıt yapmazdan önce msgboxla sorsun

[Orion1]

Merhaba.
Eğer girilicek kayıttan ayni isim ve soayaddan daha başka bir kayıt varsa uyarsın.Bu kayıt var yinede kaydetmek istiyormusunuz? eğer evet e basarsam kaydetsin.hayıra basarsam kaydetmesin.Dosyayı ekte yolluyorum.

 

[Taruz]

Merhaba...

Kaydet düğmesindeki tüm kodları bununla değiştiriniz..

[COLOR=#0600ff]Dim[/COLOR] adi, sayi [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]String[/COLOR]
    adi [COLOR=#008000]=[/COLOR] [COLOR=#0600ff]Me[/COLOR].Ad
    sayi [COLOR=#008000]=[/COLOR] DCount[COLOR=#000000]([/COLOR][COLOR=#fb0000]"*"[/COLOR], [COLOR=#fb0000]"telefon"[/COLOR], [COLOR=#fb0000]"ad= '"[/COLOR] [COLOR=#008000]&[/COLOR] adi [COLOR=#008000]&[/COLOR] [COLOR=#fb0000]"'"[/COLOR][COLOR=#000000])[/COLOR]
    [COLOR=#0600ff]If[/COLOR] sayi > [COLOR=#7d2252]0[/COLOR] [COLOR=#0600ff]Then[/COLOR]
        [COLOR=#0600ff]If[/COLOR] MsgBox[COLOR=#000000]([/COLOR]adi [COLOR=#008000]&[/COLOR] [COLOR=#fb0000]" isminde "[/COLOR] [COLOR=#008000]&[/COLOR] sayi [COLOR=#008000]&[/COLOR] [COLOR=#fb0000]" kayıt daha var."[/COLOR] _
                [COLOR=#008000]&[/COLOR] [COLOR=#fb0000]"Yine de kaydetmek istiyor musunuz?"[/COLOR], vbYesNo, [COLOR=#fb0000]"Evren Gizlen"[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#008000]=[/COLOR] vbNo [COLOR=#0600ff]Then[/COLOR]
       Undo            
       MsgBox [COLOR=#fb0000]"Kayıt iptal edildi"[/COLOR], vbCritical, [COLOR=#fb0000]"Evren Gizlen"[/COLOR]
        [COLOR=#0600ff]Else[/COLOR]
            DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
            [COLOR=#0600ff]Me[/COLOR].Liste0.[COLOR=#0600ff]Requery[/COLOR]
        [COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]If[/COLOR]
    [COLOR=#0600ff]Else[/COLOR]
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        [COLOR=#0600ff]Me[/COLOR].Liste0.[COLOR=#0600ff]Requery[/COLOR]
    [COLOR=#0600ff]End[/COLOR] [COLOR=#0600ff]If[/COLOR]

 

[Orion1]

Üstadım teşekkür ederim.oldu.