Herkese selamlar,
öncellikle hayatımızın her anında emeği bulunan öğretmenlerimize şükran ve minnetlerimi sunmak isterim.

Sorum şöyle; yapmış olduğum veri tabanında iki kritere bağlı olarak mükerrer kayıt ikazı almak istiyorum. Kodu yazdım ancak, kod düzenli olarak çalışmadı. Birkaç yol denedim fakat maalesef sonuç değişmedi. Kodu aşağıya yazıyorum.

Dim a,b As Integer
 
a = DCount("[FREID]", "TLSCVRFREKANSISLEMLERI", "[FREID]=" & Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![FREID])

b = DCount("[VERYERID]", "TLSCVRFREKANSISLEMLERI", "[VERYERID]=" & Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![VERYERID])
 
If Nz((a And d), 0)) > 0 Then

MsgBox Me.[FREKANS] & " numaralı kayıttan daha önce girilmiş."
Me.Undo
 
Else
 
Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![TEMASFRE] = Me.FREKANS
 
Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![FREDGRT] = Me.FREDEGER
 
Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![FREKODT] = FREKODURET(Len(J - 1))
KULLANIM = -1
 
End If

Bu veri tabanında yapmak istediğim şey; frekans Listesinden seçtiğim frekansı FREID ve VERYERID kriterlerine bağlı olarak bir telsiz çevrimine atamak istiyorum. VERYERID; bir yerin otomatik sayısı. Ben VERYERID'si aynı olan yere FREID'si aynı olan frekanstan (örneğin 45.500) sadece bir defa atama yapılsın istiyorum. Ama VERYERID değiştiğinde, yani farklı bir yere aynı frekans (45.500) atanabilsin istiyorum.
Bir butonun Klik özelliğine yazdım bu kodu. Kırmızı ile yazdığım bölüm problemsiz çalışıyor, ancak üst taraf, kriterli olan yeri maalesef kararsızlık gösterdi, bazen çalıştı bazen çalışmadı.
Uzun süredir uğraşıyorum bu problemle. yardımcı olabilirseniz sevinirim. Şimdiden teşekkür ederim.

NE MUTLU TÜRK'ÜM DİYENE...