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...