Private Sub Komut4_Click()

On Error GoTo Err_Komut4_Click

    If Liste0.ListCount >= 5 Then

       MsgBox ("KAYIT SAYINIZ DOLDU")

       Exit Sub

    End If

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    

    Me.Liste0.Requery



Exit_Komut4_Click:

    Exit Sub



Err_Komut4_Click:

    MsgBox Err.Description

    Resume Exit_Komut4_Click

End Sub

Yukarıdaki kodu Komut4 click yordamına yazınız. Kolay gelsin.