(28/11/2014, 02:08)ozanakkaya yazdı: 3 butonun kodlarını aşağıya yazdım. Kodları değiştirip deneyiniz.
Private Sub Komut16_Click()
'On Error GoTo Err_Komut16_Click
' Temas frekansına koşulsuz frekans tahsisi için aşağıdaki işlem yapılır.
Dim a, b As Integer
a = DCount("[FREID]", "TLSCVRFREKANSISLEMLERI", "[VERYERID]=" & [Forms]![Frm_VERICIYERI_FREKANS_TAHSISI]![kontrolveryerid] & " and [TEMASFRE]='" & [FREKANS] & "'")
If a > 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
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.Close
End If
'Exit_Komut16_Click:
' Exit Sub
'Err_Komut16_Click:
' MsgBox Err.Description
' Resume Exit_Komut16_Click
End Sub
Private Sub Komut19_Click()
'On Error GoTo Err_Komut19_Click
Dim b As Integer
b = DCount("[FREID]", "TLSCVRFREKANSISLEMLERI", "[VERYERID]=" & [Forms]![Frm_VERICIYERI_FREKANS_TAHSISI]![kontrolveryerid] & " And [ESASFRE]='" & [FREKANS] & "' Or [TEMASFRE]='" & [FREKANS] & "'")
If b > 0 Then
MsgBox Me.[FREKANS] & " numaralı kayıttan daha önce girilmiş."
Me.Undo
Else
Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![ESASFRE] = Me.FREKANS
Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![ESASFREDGR] = Me.FREDEGER
Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![ESASFREKOD] = FREKODURET(Len(J - 1))
KULLANIM = -1
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.Close
End If
'Exit_Komut19_Click:
' Exit Sub
'Err_Komut19_Click:
' MsgBox Err.Description
' Resume Exit_Komut19_Click
End Sub
Private Sub Komut22_Click()
'On Error GoTo Err_Komut22_Click
Dim c As Integer
c = DCount("[FREID]", "TLSCVRFREKANSISLEMLERI", "[VERYERID]=" & [Forms]![Frm_VERICIYERI_FREKANS_TAHSISI]![kontrolveryerid] & " And [ESASFRE]='" & [FREKANS] & "' Or [TEMASFRE]='" & [FREKANS] & "' Or [YEDEKFRE]='" & [FREKANS] & "'")
If c > 0 Then
MsgBox Me.[FREKANS] & " numaralı kayıttan daha önce girilmiş."
Me.Undo
Else
Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![YEDEKFRE] = Me.FREKANS
Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![YEDEKFREDGR] = Me.FREDEGER
Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![YEDEKFREKOD] = FREKODURET(Len(J - 1))
KULLANIM = -1
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.Close
End If
'Exit_Komut22_Click:
' Exit Sub
'Err_Komut22_Click:
' MsgBox Err.Description
' Resume Exit_Komut22_Click
End Sub
sayın ozanakkaya, çok teşekkür ederim.
Bu sefer kodlar çalıştı problem görünmüyor, bir kaç defa deneme yaptım olumlu sonuç verdi.
Sayenizde büyük bir eşiği atlamış oldum.. Çok ama çok teşekkür ederim.
