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