Tekrar selam,
sitedeki arkadaşların yapıcı uyarıları ile sorumu tekrar ediyorum ve konuyla ilgili bir de örnek veri tabanı ekliyorum.
Bu veri tabanında yaptığım şey,
örnek veri tabanında "Frm_VERICIYERI_FREKANS_TAHSISI" adlı form üzerinden önce UST BİRLİK ve daha sonra VERİCİ YERİ seçerek seçilen verici yerindeki telsiz çevrimleri formda görüntüleniyor. bu formun altformunda yer alan TEMAS FREKANSI, ESAS FREKANS VE YEDEK FREKANS alanlarına tıkladığımda "Frm_VERICIYERI_FREKANS_ATAMA" formu açılıyor ve ben listeden bir frekansı tıklamak suretiyle seçiyorum. (FREKANS alanındaki değer). Aynı form üzerinde yer alan "Temas Frekansı Tahsisi", Esas Frekans Tahsisi" ve "Yedek Frekans Tahsisi" butonlarından herhangi birine bastığımda, seçtiğim frekans değeri "Frm_VERICIYERI_FREKANS_TAHSISI" formu üzerindeki ilgili yere gidiyor. Temas, Esas ve yedek frekans değerleri için ben bu işlemi sırayla yapıyorum. Buraya kadar problem yok. Atamalar yapılıyor. Ancak, aynı "Verici Yeri"ndeki çevrimlere aynı frekansı atamamak gerekiyor. yani çevrimin adı ne olursa olsun, eğer aynı Verici Yerinde iseler aynı frekansı kullanamazlar. Diğer bir deyimle, bir frekans bir verici yerinde sadece ve sadece bir defa kullanılabilir. Eğer yanlışlıkla bu kurala aykırı olarak aynı frekans bir verici yerine birden fazla atanırsa mükerrer kayıt ikazı almak istiyorum. Burada ben FREID ve VERYERID alanlarını (sayısal değer) kriter olarak kullandım.
yazdığım aşağıdaki kod ise "Frm_VERICIYERI_FREKANS_ATAMA" formunun üzerindeki "Temas Frekansı Tahsisi", Esas Frekans Tahsisi" ve "Yedek Frekans Tahsisi" butonlarının her birinin Tıklama özelliğinde. Ama maalesef problemli. Çok uğraştım, internette aradım ama başarılı olamadım bu konuda. yardımcı olabilirseniz, benim için AYA GİTMEK kadar önemli bir adım olacak...Teşekkürler...Saygılar...
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
"Frm_VERICIYERI_FREKANS_ATAMA"
Ne Mutlu Türk'üm Diyene...
Ne Mutlu Türk'üm Diyene.