AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Listbox'a Kayıt Sınırı Koymak

27/02/2011, 02:11

durkheim

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?
27/02/2011, 02:16

Hayri16

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

durkheim

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