Lock text box after # characters

[HVACMAN24]

I'm trying to lock a text box after 55 characters have been entered but for some reason it doesnt lock and lets me keep typing in the box. Below is the code I have for the box. Any ideas what I'm doing wrong? I've stepped through it step by step and the len(txtDescription) will = 55 but it doesnt seem to do the lock step even though it goes to it. Thanks

Code:
Private Sub txtDescription_Change()

On Error GoTo Err_ErrorHandler
Me.txtDescription.SetFocus
If Not IsNull(Me.txtDescription.Text) Then
Me.txtDescCount = Len(Me.txtDescription.Text) & _
" characters used"
Else
Me.txtDescription = 0
End If

If Len(Me.txtDescription.Text) = 55 Then
Me.txtDescription.Locked = True
End If

Exit_ErrorHandler:
Exit Sub
Err_ErrorHandler:
Resume Exit_ErrorHandler
End Sub

 

[vagelisr]

I Think you can't locked a field before you save it........
Try before locked to save the value of the field

I thing is better to do your check on keypress

 

[GinaWhipp]

Try...

Private Sub txtDescription_KeyPress(KeyAscii As Integer)
'Originally posted by Dirk Goldgar, MS Access MVP
    Const conMaxChars = 55
    Select Case KeyAscii
        Case vbKeyReturn, vbKeyTab, vbKeyDelete, vbKeyBack
        Case Else
            With Me.txtDescription
                If Len(.txtDescription) >= conMaxChars Then
                    If .SelLength = 0 Then
                        MsgBox "Sorry, no more than " & conMaxChars & " characters!"
                        KeyAscii = 0
                    End If
                End If
            End With
    End Select
End Sub

You can adjust the text box to lock right now it just prevents additional characters.

 

[HVACMAN24]

Try...

Private Sub txtDescription_KeyPress(KeyAscii As Integer)
'Originally posted by Dirk Goldgar, MS Access MVP
    Const conMaxChars = 55
    Select Case KeyAscii
        Case vbKeyReturn, vbKeyTab, vbKeyDelete, vbKeyBack
        Case Else
            With Me.txtDescription
                If Len(.txtDescription) >= conMaxChars Then
                    If .SelLength = 0 Then
                        MsgBox "Sorry, no more than " & conMaxChars & " characters!"
                        KeyAscii = 0
                    End If
                End If
            End With
    End Select
End Sub

You can adjust the text box to lock right now it just prevents additional characters.

This isnt working either. Am I missing something? What do you mean I can adjust the text box to lock, it just prevents additional characters? Thats what I'm wanting to do once it reachers 55

 

[GinaWhipp]

Let's start from the beginning... you say it isn't working. Did you place this code on the KeyPress event of the Text Box?

 

[HVACMAN24]

Yes I copied it exactly as you have and pasted it in and added a 1 to the name of my original txtDescription_Change() so it wouldnt go to that.

 

[GinaWhipp]

You need to add it to the txtDescription_KeyPress() event not the Change() event... and when you copy, remove the first line and the last line.

 

[HVACMAN24]

Yea, it changed for me when I entered the code. Remove 1st and last line? The private sub and end sub line? I only copied from the private sub line to the end sub.

 

[GinaWhipp]

Okay good, but the code you showed me was on the Change() event. So which is it?

 

[HVACMAN24]

sorry, its on the Keypress event

 

[spikepl]

Handling the KeyPress is not going to safeguard you 100%, because one can also paste data into the box.

For a complete procedure, check this: http://allenbrowne.com/ser-34.html

 

[missinglinq]

The error is on the line

If Len(.txtDescription) >= conMaxChars Then

By using the With construct you're basically saying

If Len(txtDescription.txtDescription) >= conMaxChars Then

It should be

If Len(.Text) >= conMaxChars Then

Linq ;0)>

 

[GinaWhipp]

Linq,

You are correct, I guess I was editing to fast.... THANKS!