LostFocus event for TextBox - how to make it work

[kmeld]

Hi,
I am not an expert in VBA so I am struggling to make my form work like I want.

I would like to have a textbox on a form. In this textbox user will enter weight of item he wishes to add to database so I want to format text in this box as " #.0 kg".

I wanted to use LostFocus event but I am unable to make it work. It seems no to occur, my code has no effect.

I am attaching my file. Please help me to understand what is happening.

Cris

[Leith Ross]

Hello kmeld,

Welcome to the Forum!

On a UserForm, the controls have an Enter and Exit event. This is similar to GetFocus and LostFocus. You tried to add an event that the control did not support. That is why your code didn't work.

Copy this macro to your UserForm. This will format the text box entry once the input is shifted to the next control.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        With TextBox1
          ' If you want to force the user to make entry, delete the next line.
            If .Text = "" Then Exit Sub
            
            If IsNumeric(.Text) Then
                .Text = Format(.Text, "#0.0 kg")
            Else
                .Tag = ""
                .SelStart = 0
                .SelLength = Len(.Text)
                MsgBox "Please Enter a Number."
                Cancel = True
            End If
        End With
End Sub

[kmeld]

Hi.
Thanks, it helped.

I earlier managed to get the same result with:
Private Sub Text_ilosc_AfterUpdate()

then I tried:
Private Sub TextBox1_Exit()
and it didn't work

however with:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
it works.

Could you explain me the difference between () and (ByVal Cancel As MSForms.ReturnBoolean) in case of exit event.

I was looking for some list of available events for text boxes and other objects but did not find anything what I could really use. Either I was not experienced enough to understand fully or informations ware so general that it really meant nothing. (like for example this one)
http://msdn.microsoft.com/en-us/libr...ice.15%29.aspx

Regards,
Cris

[Leith Ross]

Hello kmeld,

The empty parentheses () indicates the procedure does not take any arguments. Whether a procedure takes arguments or not depends on how the procedure was written. In the case of the TextBox events, you can not change the arguments.

The link you cited will provide with more information. On the left side of the page above "Objects", you will see "Reference". Click the triangle to display more information. You will see: Collections, Dialog Boxes, Events, Examples, Methods, and Properties. Click Events to see what is available to you.

[kmeld]

Hi,

thanks,
I was looking for this.
This on-line help browser works a bit strange and I am having some difficulty using it.

Cris