+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Mükerrer Kayıt (/konu-mukerrer-kayit--89768.html)
Sayfalar:
1
2
Mükerrer Kayıt - evren89 - 13/06/2022
Sayın Üstadlar ve arkadaşlar
ekteki çalışmamda asker adılı uygulamamda Askerler3 adlı forma asker isimlerini ve tüfek seri numaralarını girmekteyim.amacım şu Askerler3 Formuna yeni kayıt girerken aynı asker ismini ve tüfek seri numarasını ikinci kez yazdığımda kaydedirken bana "mükerrer kayıt "uyarısı verebilir mi? İyi geceler.
Not"Tüfek seri nosunu girdikten sonra uyarı vermesini istiyorum"
RE: Mükerrer Kayıt - berduş - 14/06/2022
lütfen sorularınız uygun başlık altına -access soruları ve cevapları- altına açalım, Access örnekleri kısmında sorulan sorular dikkatten kaçabilir
RE: Mükerrer Kayıt - berduş - 14/06/2022
mükerrer varsa, uyarı verdikten sonra kayıt istenirse kayıt yapılabilir mi yoksa hiçbir koşulda kayda izin verilmeyecek mi?
RE: Mükerrer Kayıt - evren89 - 14/06/2022
(14/06/2022, 11:02)berduş yazdı: mükerrer varsa, uyarı verdikten sonra kayıt istenirse kayıt yapılabilir mi yoksa hiçbir koşulda kayda izin verilmeyecek mi?
Hocam mükerre kayıt girdiniz devam etmek istiyormusnuz evet-hayır olacak.Evet tıklanırsa kayıda devam hayır tıklanırsa kayıda izin yok.
RE: Mükerrer Kayıt - berduş - 14/06/2022
aşağıdaki kodu dener misiniz?
Private Sub Form_BeforeUpdate(Cancel As Integer)
x = DCount("*", "askerler3", "[adi]='" & Me.adi & "' and [Tufek_Seri_No]=" & Me.Tufek_Seri_No)
If x > 0 Then Sonuc = MsgBox("Mükerrer Kayıt! Yine de eklemek istiyor musunuz?", vbQuestion + vbYesNo + vbDefaultButton2, "Mükerrer Kayıt Uyarısı")
If Sonuc = vbNo Then Undo
End SubRE: Mükerrer Kayıt - evren89 - 14/06/2022
Tesekkur ederim saolun Kod Çalıştı