Skip to main content

AccessTr.neT


Mükerrer Kayıt Hk.

Mükerrer Kayıt Hk.

Çözüldü #1
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
Cevapla
#2
mesajın cevabını kontrol eden bir kod yok o kısmı eklemelisiniz,
mesela
Visual Basic Code
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
Cevapla
#3
(26/07/2019 18:13)halily Adlı Kullanıcıdan Alıntı: 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.
Cevapla
#4
ek eklenmemiş görünüyor
Cevapla
#5
halil bey şu an yükledim.
.rar Mükerrer KAyıt.rar (Dosya Boyutu: 66,89 KB | İndirme Sayısı: 7)
Cevapla
#6
msgbox"tan sonra parantez koyulmamış o nedenle hata veriyor
msgbox()
parantezleri eklerseniz sorun düzelir ama hedefinize bu kodla ulaşamazsınız
Visual Basic Code
kaydet = MsgBox("Girmekte Oldugunuz" _
& SID & " isim Daha Önce İşlenmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation + vbYesNo _
, "Uyarı!!!")
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da