Johncliviger at aol.com
Johncliviger at aol.com
Mon Jul 18 09:58:34 CDT 2005
In a message dated 18/07/2005 15:36:01 GMT Daylight Time,
andy at minstersystems.co.uk writes:
set rst=Me!subThingy.Form.RecordsetClone
Hi Andy
Thank you for the comments. At the Form level I have the following code and
it works just fine.
Private Sub FindDealership(varDealership As Variant)
Dim LV As Variant
Dim rec As DAO.Recordset
Dim strBookmark As String
On Error Resume Next
LV = Trim(varDealership)
If IsNull(varDealership) Then
MsgBox "No Record Found", vbInformation, "Error!"
Exit Sub
End If
Forms!frmOutlets.SetFocus
DoCmd.GoToControl Forms!frmOutlets!txtName.Name
Set rec = Forms!frmOutlets.RecordsetClone
rec.FindFirst "[supplierID] = " & CLng(LV) ' & """"
If Not rec.NoMatch Then
strBookmark = rec.Bookmark
Forms!frmOutlets.Bookmark = strBookmark
End If
DoCmd.GoToControl Forms!frmOutlets!txtName.Name
DoCmd.Close A_FORM, "fdlgFind"
rec.Close
End Sub
I've since found that the line that is failing is .. I can't get it to focus
on the subform where the recordset
Forms![frmOutlets]![frm_Rejection]!Form.SetFocus
The subform frm_Rejection is both Form name and the local Name. I changed
that but no change.
So...