Subform Navigation

  • Thread starter Thread starter Doc
  • Start date Start date
D

Doc

Hey all,

I have a little piece of code I use for form navigation, and would like it
to be able to work for sub forms, as well as the main form.

I call the function with the OnClick event property, example such as
=GoToRec("Form1","Next").

When the code attempts to run from a subform, it states the the form can not
be found. Can anyone help with modifying the current code to include the
ability to navigate inside subforms?

Thanks!

Code:

Function GoToRec(frm As String, opt As String)
On Error GoTo ErrHand

If opt = "First" Then DoCmd.GoToRecord acDataForm, frm, acFirst
If opt = "Last" Then DoCmd.GoToRecord acDataForm, frm, acLast
If opt = "Next" Then DoCmd.GoToRecord acDataForm, frm, acNext
If opt = "New" Then DoCmd.GoToRecord acDataForm, frm, acNewRec
If opt = "Prev" Then DoCmd.GoToRecord acDataForm, frm, acPrevious

Exit Function

ErrHand:
Select Case Err.Number
Case 2105
Exit Function
Case Else
ErrorLog "MDSSFunc", "GoToRec", "eMf-215",
Screen.ActiveForm.Name, Err.Number, Err.Description
End Select
End Function
 
Doc said:
I have a little piece of code I use for form navigation, and would like it
to be able to work for sub forms, as well as the main form.

I call the function with the OnClick event property, example such as
=GoToRec("Form1","Next").

When the code attempts to run from a subform, it states the the form can not
be found. Can anyone help with modifying the current code to include the
ability to navigate inside subforms?

Thanks!

Code:

Function GoToRec(frm As String, opt As String)
On Error GoTo ErrHand

If opt = "First" Then DoCmd.GoToRecord acDataForm, frm, acFirst
If opt = "Last" Then DoCmd.GoToRecord acDataForm, frm, acLast
If opt = "Next" Then DoCmd.GoToRecord acDataForm, frm, acNext
If opt = "New" Then DoCmd.GoToRecord acDataForm, frm, acNewRec
If opt = "Prev" Then DoCmd.GoToRecord acDataForm, frm, acPrevious
Click to expand...


Use the form's recordset with the MoveFirst, Move Next, ...
methods instead of GoToRecord
 
Hmm, thanks bhicks! Took out the objecttype and name and sure enough, works
like a charm.

Thank you!
 
Back
Top