NextControl Property

SerranoG · April 26th, 2004, 03:26 PM

In a form, you have a tab order for controls on the form. In VBA, you have the Screen.ActiveControl property that tells you where you are, you have the Screen.PreviousControl property that lets you place the focus on the previously focused control.

Where is Screen.NextControl? I would like to be able to (no matter where I am) move to the next control as though I have pressed a tab key. I know that

SendKeys "{TAB}", True

will work, if I know I'm sitting at the correct control.

But I use SendKeys as a last resort. They can cause trouble. Is there a way to do this without using the SendKeys and without having to specifically reference controls by name? I just want the focus to move to the next control in line. Screen.NextControl doesn't exist! :(

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Braxis · April 26th, 2004, 06:07 PM

Greg

The PreviousControl property gives a reference to whatever control previously had the focus - so unless you're running the new Access Clairvoyant, how can it possibly workout what next control you had in mind!?!:):)

Something like this might work to give a reference to the control with the next tabindex:

Code:

Public Function NextControl(ctrlCurrent As Control) As Control
Dim intIndex As Integer
Dim ctrlFor As Control

    intIndex = ctrlCurrent.TabIndex

    For Each ctrlFor In ctrlCurrent.Parent
        If ctrlFor.TabIndex = intIndex + 1 Then
            NextControl = ctrlFor
        End If
    Next

End Function

It 'll need some error trapping to deal with controls that don't have a tabindex and you'll need to deal with controls with tabstop set to false and I'm not sure what to do if the current control is the last one on the form...

Brian Skelton
Braxis Computer Services Ltd.

SerranoG · April 27th, 2004, 06:58 AM

Thanks, Brian. This is a start. Actually, no clairvoyance is needed... the next control is the one that is next in the tab index, so .NextControl would just go to what's next in the tab order. And that it DOES know. :)

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division