AccessTr.neT
Metin Kutusuna Girilecek Karakter Sayısını Sınırlama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Metin Kutusuna Girilecek Karakter Sayısını Sınırlama (/konu-metin-kutusuna-girilecek-karakter-sayisini-sinirlama.html)

Metin Kutusuna Girilecek Karakter Sayısını Sınırlama - ozanakkaya - 10/12/2008

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