Mükerrer Kayıt Hk. - Baskı Önizleme +- 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 Hk. (/konu-mukerrer-kayit-hk--85586.html) Sayfalar:
1
2
|
Mükerrer Kayıt Hk. - serkan1985 - 26/07/2019 Arkadaşlar merhaba, Aşağıdaki kod uygulamada kayıt esnasında mükerrer kaydı belirtiyor fakat kaydı yapmaya devam ediyor. Ben belirlenen mükerrer kayıtların "kayıt yapmaya devam etmek istiyor musunuz?" sorusunda hayır seçimimde kaydı iptal etmesi evet seçimimde kayda devam etmesini bir türlü yapamadım. Ve birde toplu kayıt esnasında her kayıt için uyarı ekranı çıkıyor. "KONTEYNER_NO" alanındaki tüm mükerrer kayıtları belirleyip HAYIR denmesi durumunda kaydı iptal EVET denmesi durumunda kaydı yapması mümkün müdür? Konu hakkında yardımcı olabilirseniz çok sevinirim. Şimdiden çok teşekkürler. Dim MyForm As Form Set MyForm = Screen.ActiveForm DoCmd.SelectObject acForm, MyForm.Name, False Dim SID As String Dim stLinkCriteria As String SID = Me.[KONTEYNER_NO].Value stLinkCriteria = "[KONTEYNER_NO]=" & "'" & SID & "'" If DCount("[KONTEYNER_NO]", "Is_Emri", stLinkCriteria) > 0 Then MsgBox "Girmekte Oldugunuz " _ & SID & " isim Daha Önce İşlenmiş." _ & vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation + vbYesNo _ , "Uyarı!!!" Exit Sub Set rsc = Nothing End If Cvp: Mükerrer Kayıt Hk. - berduş - 26/07/2019 mesajın cevabını kontrol eden bir kod yok o kısmı eklemelisiniz, mesela benzeri bir kontrol kodu eklenmeli
Re: Mükerrer Kayıt Hk. - serkan1985 - 27/07/2019 (26/07/2019, 18:13)halily yazdı: mesajın cevabını kontrol eden bir kod yok o kısmı eklemelisiniz, Halil bey merhaba, ekte mevcut hatayı almaktayım. Sorun tam olarak nedir anlayamadım. Cvp: Mükerrer Kayıt Hk. - berduş - 27/07/2019 ek eklenmemiş görünüyor RE: Mükerrer Kayıt Hk. - serkan1985 - 28/07/2019 halil bey şu an yükledim. Cvp: Mükerrer Kayıt Hk. - berduş - 28/07/2019 msgbox"tan sonra parantez koyulmamış o nedenle hata veriyor msgbox() parantezleri eklerseniz sorun düzelir ama hedefinize bu kodla ulaşamazsınız
|