öncelikle ve özellikle,sayın Kur@l bey'in de tedbirli olma adına,örneğinize dair açıklamasında belirttikleri gibi,
lütfen bu içeriğe sahip uygulamanız ile ilgili konular açtığınızda;içeriğinde farazi bilgileri sadece birkaç kayıt olacak şekilde konularınıza eklemeye özen gösteriniz,buna riayet etmeye dikkat ediniz.çünkü,bu teferruat barındıran gizli kalması gereken içerikler hem ilgili yerlerden izni ya da bilgisi dışında yayınlanmamalı (kaldı ki,bu her durumda onay verilmeyecek bir önem taşımakta olduğundan buna mahal bile verilmez) hem de bunun ehemmiyeti bilgi güvenliği açısından göz ardı edilmemeli,hele ki,bu çalışmaların içerisinde yer alınıyorsa.
ayrıca,aşağıda bahsi geçen tavsiyelerde bulunarak,kullanım süreçleri nezdinde uygulamanızın daha verimli ve daha olumlu sonuçlar almanızı sağlamanıza imkan vereceğini belirtmek yerinde olacaktır kanısındayım.
TAVSİYELER
1) İsimlendirmelerde büyük harfler kullanmayınız.
2) Tablo,Sorgu,Form tanımlamalarında teferruatlı değil de,kısa ve öz isimlendirmelerde bulununuz.
son olarak,bahsettiğiniz talebinize yönelik olarak tekrar düzenlenmiş kod mevcuttur.inceleyebilirsiniz.
elbette ki,eğer yazdıklarınızdan doğru anlaşılabildiyse geçerlidir.bilgilendirmelerinize göre tekrar değerlendirme yapılacaktır.
Frm_Otomatik_Frekans_Atama adlı formunuzdaki Komut22 adlı butonun içeriğini aşağıdaki gibi değiştiriniz.
değiştirmeden önce,bir önceki eski içeriği etkisiz hale getiriniz ki,olası bir gereklilikte tekrar aktifleştirebilesiniz.bilginize.
Kod:
Private Sub Komut22_Click()
Dim a, b, c, d, e, f, g, h, k, i As Integer
For e = f To g Step 1
f = Forms![Frm_Otomatik_Frekans_Tahsisi]![ilkCVR]
g = Forms![Frm_Otomatik_Frekans_Tahsisi]![sonCVR]
k = BLOKSEC.Value
i = FREKANSs.Value
d = ALTFRESEC.Value
h = USTFRESEC.Value
For i = d To h Step 1
a = DCount("[FREID]", "Tbl_TlsCvrFrekansIslemleri", "[VERYERID]=" & [Forms]![Frm_Otomatik_Frekans_Tahsisi]![kontrolveryerid] & " And [TEMASFRE]='" & Me.FREKANSs & "' Or [ESASFRE]='" & Me.FREKANSs & "' Or [YEDEKFRE]='" & Me.FREKANSs & "'")
b = DCount("[FREID]", "Tbl_TlsCvrFrekansIslemleri", "[VERYERID]=" & [Forms]![Frm_Otomatik_Frekans_Tahsisi]![kontrolveryerid] & " And [ESASFRE]='" & Me.FREKANSs & "' Or [TEMASFRE]='" & Me.FREKANSs & "' Or [YEDEKFRE]='" & Me.FREKANSs & "'")
c = DCount("[FREID]", "Tbl_TlsCvrFrekansIslemleri", "[VERYERID]=" & [Forms]![Frm_Otomatik_Frekans_Tahsisi]![kontrolveryerid] & " And [YEDEKFRE]='" & Me.FREKANSs & "' Or [ESASFRE]='" & Me.FREKANSs & "' Or [TEMASFRE]='" & Me.FREKANSs & "'")
If a > 0 And b > 0 And c > 0 Then
Me.Undo
DoCmd.GoToRecord , , acNext
Else
Forms![Frm_Otomatik_Frekans_Tahsisi]![AltForm_OtoFrekansIslemleri].[Form]![TEMASFRE] = Me.FREKANSs
Forms![Frm_Otomatik_Frekans_Tahsisi]![AltForm_OtoFrekansIslemleri].[Form]![FREDGRT] = Me.FREDEGER
Forms![Frm_Otomatik_Frekans_Tahsisi]![AltForm_OtoFrekansIslemleri].[Form]![FREKODT] = FREKODURET(Len(J - 1))
Forms![Frm_Otomatik_Frekans_Tahsisi]![AltForm_OtoFrekansIslemleri].[Form]![ESASFRE] = Me.FREKANSs
Forms![Frm_Otomatik_Frekans_Tahsisi]![AltForm_OtoFrekansIslemleri].[Form]![ESASFREDGR] = Me.FREDEGER
Forms![Frm_Otomatik_Frekans_Tahsisi]![AltForm_OtoFrekansIslemleri].[Form]![ESASFREKOD] = FREKODURET(Len(J - 1))
Forms![Frm_Otomatik_Frekans_Tahsisi]![AltForm_OtoFrekansIslemleri].[Form]![YEDEKFRE] = Me.FREKANSs
Forms![Frm_Otomatik_Frekans_Tahsisi]![AltForm_OtoFrekansIslemleri].[Form]![YEDEKFREDGR] = Me.FREDEGER
Forms![Frm_Otomatik_Frekans_Tahsisi]![AltForm_OtoFrekansIslemleri].[Form]![YEDEKFREKOD] = FREKODURET(Len(J - 1))
KULLANIM = -1
End If
Next i
Next e
DoCmd.GoToRecord , , acNext
End Sub