Set focus question

crisan · March 25th, 2005, 07:33 AM

I have two controls: txtQa1 and txtQa2. TxtQa2 is disabled by default and it will be enabled only if the txtQa1.value=2. I have some code on "OnExit" event of txtQa1 which will enable txtQa2 if txtQa1=2. I set consecutive values for Tab index ( 36 for txtQa1 and 37 for txtQa2) but the focus is not set on txtQa2 after exiting txtQa1.
I want to know if it is posible to move focus to txtQa2 without VBA code like "txtQa2.setfocus".

mmcdonal · March 25th, 2005, 08:32 AM

Put your code to enable txtQa2 on the After Update event of txtQa1, not on On Exit, then the tab order should work on exit.

And why wouldn't you want to use VBA? You are already using it this far, why not another line of code?

mmcdonal

rjweers · March 25th, 2005, 09:10 AM

I messed around with the idea of using an expression like:

=iif([txtQA1]=2,txtQa2.visible=True,txtQa2.Visible=false)

For the txtQA1 AfterUpdate event. Apparently you can't set the visible property from an expression.

mmcdonal is right. You should use the AfterUpdate event instead of OnExit.

I would set the Visible property AND txtQa2.Setfocus. Then your tab order won't matter.

Randall J Weers
Membership Vice President
Pacific NorthWest Access Developers Group
http://www.pnwadg.org

crisan · March 25th, 2005, 10:36 AM

Thanks for your responses. It seems to work right with AfterUpdate event . The idea is that I have thousands of controls which I have to enable and I use the same function from the module section.This is the reason which determined me not to use supplementary VBA code (like "SpecificControl.SetFocus") but to use TabIndex property. Thanks again!

rjweers · March 25th, 2005, 09:38 PM

Ah ha! This is one of the reasons I thought you might be asking this question! This is why you should be specific about your problem (as BrianWren has suggested in other posts).

Write a procedure in your code. I'm not sure the exact code you'll use since it is dependent on your field names. But you'll do something like

Code:

Private Function HandleTab()

' The following assumes all fields are named using txtQAnnn format
intFiledNumber = Mid(Screen.ActiveControl.Name,6) 
If Me.Controls("txtQA" & intFieldNumber) = ??? then
    Me.Controls("txtQA" & intFieldNumber + 1).Visible = True
    Me.Controls("txtQA" & intFieldNumber + 1).SetFocus
End If

End Function

For each field that you need that code, in the AfterUpdate event put

=HandleTab()

QED

NOTE: This code has not be tested.

Randall J Weers
Membership Vice President
Pacific NorthWest Access Developers Group
http://www.pnwadg.org