AccessTr.neT
Listbox'a Kayıt Sınırı Koymak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listbox'a Kayıt Sınırı Koymak (/konu-listbox-a-kayit-siniri-koymak.html)



Listbox'a Kayıt Sınırı Koymak - durkheim - 27/02/2011

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?


Cvp: Listbox'a Kayıt Sınırı Koymak - Hayri16 - 27/02/2011

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.


Cvp: Listbox'a Kayıt Sınırı Koymak - durkheim - 27/02/2011

Sayın Hayri16 Hocam, çok teşekkür ediyorum. İyi geceler... +rep