Direkt isim yazdığınız için de benden başka kimse bakmamış sanırım.
Çözüm isterken direkt isim kullanmazsanız daha iyi olur bence.
Sadece ben değil diğer arkadaşlar da sorununuza çözüm bulabilir.
--
Neyse, konumuza dönelim.
Direkt ListBox nesnesinin böyle bir kontrol özelliği yok, çünkü siz listbox'a kayıt yapmıyorsunuz, tabloya kayıt yapıyorsunuz. Listbox sadece bu tablodaki kayıtları listeliyor. Mükerrer kontrolünü ancak kendiniz kodla yapabilirsiniz. Bunu da yapmaya çalışmışsınız zaten. Kalıp Adı combosunun BeforeUpdate kısmına bir kod yazmışsınız. Ancak bu combonun kullandığı "KalipGenelBilgiFormu" adlı tablo örneğinizde olmadığı için bende hata veriyor ve dolayısıyla kontrol edemedim tam olarak. Örneği tam kontrol etmeden göndermişsiniz anladığım kadarıyla.
Ama kodu incelediğimde tablodaki alan adını yanlış yazdığınızı görüyorum.
[Kalıp_Adı] şeklinde araya altçizgi eklemişsiniz ama sizin tabloda alan adında altçizgi yok boşluk var. [Kalıp Adı] şeklinde kullanmalısınız. Ayrıca bu kodda DCount ile "Ürün arama" diye bir tablo veya sorguyu kontrol ediyorsunuz, örnekte o da yok. Ancak siz madem listbox'ta mükerreri kontrol etmek istiyorsunuz o zaman listbox'ın kullandığı tablo olan "KALIPTESLIMONAYFORMU" nu kontrol etmelisiniz. Aslında bu kontroller için "Kalıp Adı" kullanılmaz, varsa Kalıp Kodu gibi bir alan kullanılmalı ama şimdi hiç karıştırmayayım konuyu.
Kodu bir de bu şekilde deneyin. Ben test edemedim
Kod:
Private Sub Kalıp_Adı_BeforeUpdate(Cancel As Integer)
Dim Dur, Kriter As String
Dur = Me.[Kalıp Adı].Value
Kriter = "[Kalıp Adı]=" & "'" & Dur & "'"
If DCount("[Kalıp Adı]", "KALIPTESLIMONAYFORMU", Kriter) > 0 Then
'Undo duplicate entry
MsgBox "" & Dur & " Daha Önce Girilmiş." _
& vbCr & vbCr & " Lütfen Farklı Bir Ürün Adı Giriniz.", vbInformation _
, "Mükerrer Kayıt..."
Cancel = True
Me.Undo
End If
End Sub