Global Loast Focus

[Vec]

Is there a way to make a "Global" Lost Focus event?

I want to use Data1.Refresh for every single object on the form without having to place it in each one.

-

Looking Toward The Future

http://www.webfusiondesign.com

 

[ITweedlie]

Use this routine to pass controls and editing them.

Public Sub ChangeToCapital(ThisText As Textbox)
'This sub will change whatever text box is passed
'to it.
ThisText.Text = UCase(ThisText.Text)
End Sub

Private Sub Text1_LostFocus()

'Pass this text box name to the global procedure
'called ChangeToCapital
ChangeToCapital Text1
End Sub

Private Sub Text2_LostFocus()
'Pass this text box name to the global procedure
'called ChangeToCapital
ChangeToCapital Text2

End Sub