Hi everyone.
I have designed a form 'frmPeople' with a subform 'fsubPeopleList '
This form works fine on it's own but when used as a subform on a main menu
it doesn't work.
The code in question is as below and the line causing the problem has the *
to the right of the text.
Can anyone see what I'm doing wrong please.
Thanks in Advance,
John
Option Compare Database
Option Explicit
Private Sub Form_Current()
Dim theRecord As String
If Me.CurrentRecor d <Me.Parent.Curr entRecord Then
theRecord = Me.CurrentRecor d
DoCmd.GoToRecor d acDataForm, Parent.Name, acGoTo, theRecord *
Me.Parent.strSe arch.SetFocus
End If
End Sub
I have designed a form 'frmPeople' with a subform 'fsubPeopleList '
This form works fine on it's own but when used as a subform on a main menu
it doesn't work.
The code in question is as below and the line causing the problem has the *
to the right of the text.
Can anyone see what I'm doing wrong please.
Thanks in Advance,
John
>>>>>>>>>>>>>>> >>>>>
Option Explicit
Private Sub Form_Current()
Dim theRecord As String
If Me.CurrentRecor d <Me.Parent.Curr entRecord Then
theRecord = Me.CurrentRecor d
DoCmd.GoToRecor d acDataForm, Parent.Name, acGoTo, theRecord *
Me.Parent.strSe arch.SetFocus
End If
End Sub
Comment