Public Sub loadContactData()
Dim cmd1 As New ADODB.Command
Dim rst1 As ADODB.Recordset
cmd1.ActiveConnection = CurrentProject.Connection
cmd1.CommandType = adCmdStoredProc
cmd1.CommandText = "usp_MarketingVisitContactsGet"
cmd1.Parameters("@VisitID") = Nz(Me.Parent.cmbVisits, 0)
cmd1.Parameters("@ClientID") = Me.Parent.txtClientID 'Me.Parent.Parent.getClientID()
Set rst1 = cmd1.Execute()
End Sub
Me!clientVisitContactEvent
the syntax would normally be:
Me.subformControlName.Form