Text Box Controls Problem

[hwong]

Greeting All!


I have a question that if I have many text box, say A - Z, in a form, how can I set if any 1 of them was entered with value and all the others become disabled / locked? It is quite silly to set 26 similar procedures and I think there must be a easier way.
Would anyone help me?

Thanks x 100!

[Robeen]

What you need to do is use the Controls Collection.
Here's a page that goes through a few examples:
http://www.tek-tips.com/faqs.cfm?fid=5010
You should look for examples that show how to identify whether the control is a Text Box - and then modify the code so that you can set the Property of each Text Box to whatever you need it to be.
For instance:

Dim ctl As Control

For Each ctl In Me.Controls
    If (ctl.ControlType = acTextBox) Then
        If ctl.Value Is Null Then
            ctl.Enabled = False
        End If
    End If
Next ctl

Hope this helps. All the best!!

[Missinglinq]

Actually, in VBA code

If ctl.Value Is Null Then

would have to be

If IsNull(ctl.Value) Then

Robeen has given you the general type of code for looping through all Textboxes on a Form and taking some action, but exactly how you'd need to implement this code depends on exactly what your situation is, something you haven't shared with us! A clear explanation of what you're attempting to do would help us help you!

For most situations, you'd have to at least Call a Function to execute this code, from the AfterUpdate event of each of the 26 Textboxes. It would be a simple

Call MyFunctionName

but it would have to be in the AfterUpdate event of each Textbox.

If the situation simply required that once a Value was entered into any Control, all other Controls would become Disabled and stay Disabled, for ever and ever, you could put the code in the Form_Dirty event.

Like I said, it just depends on your exact situation!

As Oliver Twist requested, "Please, sir, I want some more!"

Linq ;0)>

[hwong]

Thanks both!!!! I will try~