+- 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ıtların Engellenmesi (/konu-mukerrer-kayitlarin-engellenmesi.html)
Mükerrer Kayıtların Engellenmesi - durkheim - 12/03/2011
Merhaba.
Arkadaşlar, mükerrer kayıtların önlenmesi konusunda sürekli sıkıntı yaşıyorum. Eklentideki çalışmada KarnerVER isimli formdaki Liste2'ye çift tıkladığımda veriler ilgili yerlere(ADI,SOYADI vs.) aktarılıyor. Karne Seri No sadece bir kişiye ait olabilir. Başka birini aynı seri ile kaydetmek isteyince "Bu Seri No kullanılmaktadır!Önce Seri Numarasını Değiştiriniz" uyarısı gelmekte. Fakat siz değiştirsenizde değiştirmezsenizde verileri kayıt ediyor. Bu nedenlede aynı seri numarası bir çok kişiye verilebiliyor. Uyarı geldiğinde Seri Numarasını değiştirmediğim takdirde kesinlikle kayıt edilmemesi için ne yapabilirim?
Cvp: Mükerrer Kayıtların Engellenmesi - Yandemir - 12/03/2011
formunuz tabloya bağlı bir yapıda olduğu için ne girerseniz onu kabul edip kaydediyor. mantığı değiştirmeniz gereklidir. yada inputbox komutu ile girişi deneyin
Cvp: Mükerrer Kayıtların Engellenmesi - durkheim - 12/03/2011
(12/03/2011, 02:21)Yandemir yazdı: formunuz tabloya bağlı bir yapıda olduğu için ne girerseniz onu kabul edip kaydediyor. mantığı değiştirmeniz gereklidir.
Sayın Hocam, başka türlü nasıl çözümleyebilirim? Öneriniz nedir?
Cvp: Mükerrer Kayıtların Engellenmesi - Yandemir - 12/03/2011
ekteki örneği inceleyin.
Cvp: Mükerrer Kayıtların Engellenmesi - durkheim - 12/03/2011
Sayın Yandemir hocam, örnek ve yardım için çok teşekkür ederim. Çok fazla karne kaydı yaptığımız için "Bu Seri No kullanılmaktadır!Önce Seri Numarasını Değiştiriniz" uyarısını unutarak seri numarasını değiştirmediğimizde bile aynı seri numarası başka kişiler için yine de kayıt ediliyor. Kesinlikle aynı seri numarasının başka kişiler için kaydedilmesinin önlenmesi ve "Bu Seri No kullanılmaktadır! Seri Numarasını Değiştirmeden Yeni Kayda Geçemezsiniz" işlemini gerçekleştirmek mümkün değil midir?
Cvp: Mükerrer Kayıtların Engellenmesi - Puletin - 12/03/2011
Programınız bende hata verdiği için tam olarak bakamadım
Şunu bir denermisiniz.
Kod:
Dim a, b, C, d As String
a = Me.txt_Ykartserino & "" & Me.Ykartseri
b = DLookup("[Ykartserino]", "KarneVER", "[Ykartserino]= " & Me.txt_Ykartserino)
C = DLookup("[Ykartseri]", "KarneVER", "[Ykartseri]=" & "'" & Me.Ykartseri & "'")
d = b & "" & C
If a = d Then
MsgBox "Bu Seri No kullanılmaktadır!!!Kontrol Ediniz!"
Me.txt_Ykartserino.BackColor = vbGreen
Undo
DoCmd.GoToControl "Ykartserino"
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If
Exit_Komut40_Click:
Exit Sub
Err_Komut40_Click:
MsgBox Err.Description