Me!MarketingVisitationClient.SourceObject = ""
Me!MarketingVisitationClient.SourceObject = "MarketingVisitationClient"
Me!MarketingVisitationClient.Form.loadRows
Private Sub Form_Load()
Dim custid As Long
custid = Me.parent.parent.txtClientID
Dim visitid As Integer
visitid = Nz(Me.parent.parent.cmbVisits, 0)
Dim rcd As ADODB.Recordset
Set rcd = Conn.Execute("SELECT * FROM dbo.udt_VisitClientContacts('" & custid & "','" & visitid & "') ORDER BY ur,AddRemove DESC, Assignment DESC,[Last Name]")
Set Me.Form.Recordset = rcd
End Sub
Me!ClientVisitContactEvent
Make sure you are using the name of the subform control as seen in your form's deign(which may be different from the name of the subform as seen in the navigation pane)