Assign a code to Key Press of all Textboxes

[amir0914]

Hello everyone,
I've added a small code to OnKeyPress event of a Textbox and it works correct, but I need to assign it on all forms and all Textboxes of my program :

Private Sub txtCustomer_KeyPress(KeyAscii As Integer)
If KeyAscii = 1740 Then
KeyAscii = 1610
End If
End Sub

I can put it on each TextBox manually, but it takes many time to accomplish.
Do you think there is a better way to do it?

 

[arnelgp]

you create a Class and on the Load event of your form.
you can have a code to Open each form in design view and insert
some code to the Load event of the form to instantiate the class.

 

[Pat Hartman]

Without looking up the values, I haven't a clue what the code is doing. Do yourself and your successors a favor and document the values in the code.

 

[amir0914]

you create a Class and on the Load event of your form.
you can have a code to Open each form in design view and insert
some code to the Load event of the form to instantiate the class.

Could you please attach an example from Class ?

 

[arnelgp]

here is a demo, you copy both Module1 and tboxClass class
to your db. make sure to name your class same as "tboxClass".
on VBA, immediate window run:

InsertToAllForms

this will insert code to All your form.
you only run this once, otherwise the code
will be duplicate and you'll get error when
you open your form.

if you created new form and want to use
the same functionality to your textboxes,
you run the sub with the name of the form:

InsertToAllForms "formName"

 

[Gasman]

arnel,
Even when you pass in a name of a form in, it still processess all forms?

 

[arnelgp]

thanks gasman (the price of gas is high!).
forgot to modify:

Public Sub InsertToAllForms(Optional ByVal frmName As String)
Dim o As AccessObject
For Each o In CurrentProject.AllForms
    If Len(frmName) <> 0 Then
        If UCase(o.Name) = UCase(frmName) Then
            Call tboxCode(o.Name)
            Exit For
        End If
    Else
        Call tboxCode(o.Name)
    End If
Next
End Sub

 

[amir0914]

if you

thanks gasman (the price of gas is high!).
forgot to modify:

Public Sub InsertToAllForms(Optional ByVal frmName As String)
Dim o As AccessObject
For Each o In CurrentProject.AllForms
    If Len(frmName) <> 0 Then
        If UCase(o.Name) = UCase(frmName) Then
            Call tboxCode(o.Name)
            Exit For
        End If
    Else
        Call tboxCode(o.Name)
    End If
Next
End Sub

It was useful, Thank you so much for spending time on my project.

 

[MarkK]

Expanding on arnel's sample, if you write another class you can reduce the code on any form to...

Private m_kpcs As New cKeyPressConverters

Private Sub Form_Load()
    m_kpcs.Load Me
End Sub

Here's a sample...

 

[amir0914]

Expanding on arnel's sample, if you write another class you can reduce the code on any form to...

Private m_kpcs As New cKeyPressConverters

Private Sub Form_Load()
    m_kpcs.Load Me
End Sub

Here's a sample...

Perfect, is it possible to set function to other objects such as Combobox, Subform's fields ?

 

[MarkK]

Yes. In the loop that enumerates the controls on the form and builds the collection there's an If block that tests the type of the control. Code will be something like...

If TypeOf ctrl is Access.Textbox Then

To also handle ComboBoxes, change that line to...

If TypeOf ctrl is Access.Textbox Or TypeOf ctrl is Access.Combobox Then