E
elbyc
Is there anyway to use shortcut keys to move from header to detail
section of a form? I have a combo box in the header. When I select a
field from the combo box, it calls an event (procedure pasted below
for reference). The event causes the detail section to jump to the
record pulled from the combo box.
How can I use a shortcut key to move from the header into the detail?
Private Sub Combo38_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Name] = '" & Me![Combo38] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Combo41_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Employee ID] = '" & Me![Combo41] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
section of a form? I have a combo box in the header. When I select a
field from the combo box, it calls an event (procedure pasted below
for reference). The event causes the detail section to jump to the
record pulled from the combo box.
How can I use a shortcut key to move from the header into the detail?
Private Sub Combo38_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Name] = '" & Me![Combo38] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Combo41_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Employee ID] = '" & Me![Combo41] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub