AccessTr.neT

Metin kutusuna girilen karakter sayısına limit eklemeye yarayan örnek uygulamadır.

Kendi formunuza uygularken;

1-) Formun tuş önizleme özelliği evet olarak değiştirin,

2-) Karakter limiti ekleyeceğiniz metin kutusunun Tuşa Basıldığında özelliğine

Private Sub Form_KeyPress(KeyAscii As Integer)

Call LimitKeyPress(Me.metinkutusu, 11, KeyAscii)

End Sub

koddaki Me.metinkutusu yerine kendi metin veya açılan kutunuzun ismini yazınız. 11 yerine 5 yazarsanız metin kutusuna 5 karakterden fazlası girilemez.

karakter limiti ekleyeceğiniz metin kutusunun değiştiğinde olayına

Call LimitChange(Me.metinkutusu, 11)

kodu ekleyin.

3-) Yeni bir modül oluşturun ve aşağıdaki kodları ekleyin.

Sub LimitKeyPress(ctl As Control, iMaxLen As Integer, KeyAscii As Integer)

On Error Resume Next

    If Len(ctl.Text) - ctl.SelLength >= iMaxLen Then

        If KeyAscii <> vbKeyBack Then

            KeyAscii = 0

            Beep

        End If

    End If



End Sub





Sub LimitChange(ctl As Control, iMaxLen As Integer)

On Error Resume Next

      If Len(ctl.Text) > iMaxLen Then

        MsgBox "Truncated to " & iMaxLen & " characters.", vbExclamation, "Too long"

        ctl.Text = Left(ctl.Text, iMaxLen)

        ctl.SelStart = iMaxLen

    End If

End Sub

ozanakkaya