Code:
Private Sub CboCAL_DblClick(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Me.RecordsetClone.FindFirst "CALID='" & Me.OpenArgs & "'"
If Not Me.RecordsetClone.NoMatch Then
Me.Bookmark = Me.RecordsetClone.Bookmark
Else
'do something else with OpenArgs value like maybe
DoCmd.GoToRecord , , acNewRec
Me!CALName = Me.OpenArgs
End If
End If
DoCmd.OpenForm "CALFrm", , , , , , Me.CALID
End Sub
Have tried this code above and it does open form but not to correct record. What am I doing wrong here?
Thanks
Dave