propercase doesn't work

[Pookiemeister]

I do not understand why this code won't work in my textbox on Access userform.

Option Compare Database

Private Sub FirstName_Change()
   Me.FirstName.Value = StrConv(Me.FirstName.Value, vbProperCase)
End Sub

 

[jackd]

What did you expect this to do? this code won't work

From Microsoft textbox change

Changing the data in a text box or combo box by using the keyboard causes keyboard events to occur in addition to control events like the Change event. For example, if you move to a new record and type an ANSI character in a text box in the record, the following events occur in this order:


KeyDown → KeyPress → BeforeInsert → Change → KeyUp

The BeforeUpdate and AfterUpdate events for the text box or combo box control occur after you have entered the new or changed data in the control and moved to another control (or clicked Save Record on the Records menu), and therefore after all of the Change events for the control.

 

[Pookiemeister]

Whatever is typed into the textbox. I wanted to capitalize the first letter that is entered.

 

[jackd]

Use the AfterUpdate event

 

[Pookiemeister]

When does that event trigger? Because I don't see doing anything.

 

[Micron]

I do not understand why this code won't work in my textbox on Access userform.

Because at the moment you type a character the control value is null.

When does that event trigger? Because I don't see doing anything.

That was explained in post 2.

If you cannot use AfterUpdate then IMO you will have to use a key event for the control - possibly KeyUp. You'll have to add code to move to the end of whatever is typed in because the cursor will jump to the beginning of the word when you update after every key stroke - probably will look funny to anyone watching. Also, I think you will have to use the control's Text property because of the Null thing. Best to let the value update when focus moves off of the control.

 

[Micron]

Actually, it looks OK on my laptop. Something like

Private Sub Text0_KeyUp(KeyCode As Integer, Shift As Integer)
Me.Text0.Text = StrConv(Me.Text0.Text, vbProperCase)
Me.Text0.SelStart = Len(Me.Text0.Text)
End Sub