Merhaba
ListBox'a metin kutusundan girilen TC Kimlik No sayısı 5 olduğunda "kayıt sayınız doldu vb" uyarısını nasıl yapabilirim?
Listbox'a Kayıt Sınırı Koymak
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.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Sayın Hayri16 Hocam, çok teşekkür ediyorum. İyi geceler...
Konuyu Okuyanlar: 1 Ziyaretçi