Tabbing Through Multiple Datasheet Subforms

[Vaulcul]

Hello,

Currently, I have a main unbound form with 5 subforms, all of which are in datasheet view. I need to be able to navigate between the subforms as if they were one big datasheet.

I found this article, and it kind of helps... but isn't exactly what I'm looking for either:

http://www.techrepublic.com/article/provide-easier-navigation-between-access-main-and-subforms/

Does anyone know what I could do to have this effect?

Thanks in advance for your assistance.

[zmbd]

Not really sure what it is that you are after, or why what is discussed in the referred to article isn't what you need to have happen as you do not explain the deficiencies of the method.

[NeoPa]

Furthermore, if something is important to the question then simply linking to something that includes that within it somewhere is not a good way of asking the question.

When people have to do the groundwork for you just so they can understand what you should be asking, they are often less than keen to spend their time trying to help you.

[Vaulcul]

Thanks for the quick response zmbd and sorry for being vague. I'll try and clarify.

I'm trying to make it so that as a user tabs through one of the datasheet subforms, when they get to the end of a record contained in the datasheet it will jump to the appropriate subform and record in the datasheet in that subform.

In looking at the link I provided in my first post, I was able to figure out how to set focus to cells in other subforms while tabbing... but with odd/strange behavior. Like when I get to the last record and press tab in the first subform the next record in the current subform is selected before the setfocus code executes.

The user experience I'm after is that they will be able to tab through all of the data as if it were one big datasheet, even though there are 5 subforms that they are jumping between.

Below is a sample of the simple code I've written... I'm pretty sure it's too simple:

Private Sub PP10_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift <> acShiftMask And KeyCode = vbKeyTab Then
Me.PP10.SetFocus
Me.Parent.PY_PP_Spring_Filter.SetFocus
Me.Parent.PY_PP_Spring_Filter.Form![PP11].SetFocus
End If
End Sub

Private Sub PP1_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = acShiftMask And KeyCode = vbKeyTab Then
Me.PP1.SetFocus
Me.Parent.PY_PIT_Job_Filter.SetFocus
Me.Parent.PY_PIT_Job_Filter.Form![Notes].SetFocus
End If
End Sub

[Vaulcul]

My apologies NeoPa... I struggle with providing full/good information. Thus I don't post often to help forums, as it's usually frustrating to everyone :(

Not trying to make other people do the ground work, just not very good at asking for help.

[NeoPa]

I understand. Not everyone is able to come out as they'd like to when they put their thoughts into words. These are some ideas to bear in mind of course, but just do the best you can. After all - it's you that benefits most from getting it right.

Good luck :-)