27/02/2011, 02:11
27/02/2011, 02:16
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.27/02/2011, 02:20
Sayın Hayri16 Hocam, çok teşekkür ediyorum. İyi geceler...