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.