Değerli arkadaşlar, yaklaşık 2 aydır internet bağlantım yoktu, forumu çok fazla takip etme imkanım olmadı. Yeniden internet bağladım. Hepinize saygılarımı sunuyorum.
Forumda mükerrer kayıt kontrolu ile ilgili bir çok örnek var, ancak örneklere bakarak yaptığım örnekte seri numarası kontrolü ile ilgili olarak bir yerde takıldım. Eklentideki formda Seri ve Serino olmak üzere iki metin kutusu var. Seri:AA,AB,AC... şeklinde giderken Serino: 0001,0002... şeklinde gidecek. Yani AA-0001, AA-0002 vs...Bu iki metin kutusu arasında ilişki kurarak mükerrer kaydı nasıl engelleyebilirim? Teşekkürler...
Sizi aramızda görmekten mutlu olduk.
Private Sub txt_serino_AfterUpdate()
Dim varmi, varmi1, son As String
varmi = Dlookup ("[serino]", "Tablo1", "[txt_serino]= '" & Me.txt_serino & "'")
varmi1 = Dlookup ("[seri]", "Tablo1", "[seri]= '" & Me.seri & "'")
son = varmi1 & varmi
If son = Me.seri & Me.txt_serino Then
MsgBox "Bu Seri No kullanılmaktadır!!!Kontrol Ediniz!"
Else
End If
End Sub
denermisiniz.
Private Sub txt_serino_AfterUpdate()
kodunu iptal edip "Komut7" nin tıklandğında olayındaki kodu aşağıdaki ile değiştiriniz.
Private Sub Komut7_Click()
On Error GoTo Err_Komut7_Click
Dim a, b, c, d As String
a = Me.txt_serino & "" & Me.seri
b = Dlookup ("[serino]", "Tablo1", "[serino]= " & Me.txt_serino)
c = Dlookup ("[seri]", "Tablo1", "[seri]=" & "'" & Me.seri & "'")
d = b & "" & c
If a = d Then
MsgBox "Bu Seri No kullanılmaktadır!!!Kontrol Ediniz!"
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If
Exit_Komut7_Click:
Exit Sub
Err_Komut7_Click:
MsgBox Err.Description
Resume Exit_Komut7_Click
End Sub
Sayın BlackEagle ve Sayın Sledgeab üstadlarım, çok teşekkür ederim. Accesstr.net'li olmak inanın bir ayrıcalık. Verilen iki örnekte soruma çözüm olmuştur. Yardımlarınız için çok teşekkür ederim. İyi geceler...
Bunların yanı sıra size bir örnek daha, bu örnekte ise size kaydın bulunmasına rağmen kaydetmeye devam edip, etmek istemediğinizi soruyor, istemezseniz yazdıklarınızı temizliyor. Aksi halde kayda devam ediyor.
Private Sub txt_serino_AfterUpdate()
Dim varmi As Integer
varmi = DCount("*", "Tablo1", "[txt_serino]= '" & Me.txt_serino & "'" & "And [seri]= '" & Me.seri & "'")
If varmi > 0 Then
If MsgBox("Bu veri daha önce girilmiş, devam edilsin mi?", _
vbYesNo) = vbNo Then
Cancel = True
Me.txt_serino = ""
Me.seri = ""
End If
End If
End Sub
tablonu oluştururken de alanların ikisini de seç ve key ver. böylece hatayı da ortadan kaldırırsın. kod arızasınd bile en azından kaydederken uyarı alırsın.