AccessTr.neT

Tam Versiyon: Mükerrer Kayıt Hk.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
mesajın cevabını kontrol eden bir kod yok o kısmı eklemelisiniz,
mesela
If DCount("[KONTEYNER_NO]", "Is_Emri", stLinkCriteria) > 0 Then
kaydet = MsgBox "Girmekte Oldugunuz " _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation + vbYesNo _
, "Uyarı!!!"
If kaydet = vbNo Then Me.Undo' eğer cevap hayırsa iptal et
benzeri bir kontrol kodu eklenmeli
(26/07/2019, 18:13)halily yazdı: [ -> ]mesajın cevabını kontrol eden bir kod yok o kısmı eklemelisiniz,
mesela
Kod:
If DCount("[KONTEYNER_NO]", "Is_Emri", stLinkCriteria) > 0 Then
kaydet = MsgBox "Girmekte Oldugunuz " _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation + vbYesNo _
, "Uyarı!!!"
If kaydet = vbNo Then Me.Undo' eğer cevap hayırsa iptal et
benzeri bir kontrol kodu eklenmeli

Halil bey merhaba,

ekte mevcut hatayı almaktayım. Sorun tam olarak nedir anlayamadım.[attachment=30489]
ek eklenmemiş görünüyor
halil bey şu an yükledim.
msgbox"tan sonra parantez koyulmamış o nedenle hata veriyor
msgbox()
parantezleri eklerseniz sorun düzelir ama hedefinize bu kodla ulaşamazsınız
kaydet = MsgBox("Girmekte Oldugunuz" _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation + vbYesNo _
, "Uyarı!!!")
Sayfalar: 1 2