Setting Recordsource when there are two or more forms open (2 Viewers)

[Bobp3114]

I am using the following code to set the recordsource of a form depending on which form is used to open it.
If CurrentProject.AllForms("frmSalesDashboard").IsLoaded = True Then
DoCmd.OpenForm "frmActivitiesEdit", acDesign
Forms!frmActivitiesEdit.RecordSource = qryActivitiesEdit
DoCmd.Close acForm, "frmActivitiesEdit", acSaveYes
'DoCmd.OpenForm "frmActivitiesEdit", acNormal, acSaveYes
DoCmd.OpenForm "frmActivitiesEdit", , , "ActionID = " & Me.txtActionID
ElseIf CurrentProject.AllForms("frmActivitiesOverview").IsLoaded = True Then
DoCmd.OpenForm "frmActivitiesEdit", acDesign
Forms!frmActivitiesEdit.RecordSource = qryActivitiesEdit
DoCmd.Close acForm, "frmActivitiesEdit", acSaveYes
'DoCmd.OpenForm "frmActivitiesEdit", acNormal, acSaveYes
DoCmd.OpenForm "frmActivitiesEdit", , , "ActionID = " & Me.txtActionID
End If

Form SalesDashBoard is always open so the code always goes to that section of the code not to the overview section when required
Question: How do I get around this????
Thanks in advance
Bob

 

[Gasman]

Use OpenArgs.
That is what it is there for.

Alternatively you could do it from the calling form?
Or change the order?

 

[arnelgp]

just test if frmActivitiesEdit is open:\

If CurrentProject.AllForms("frmActivitiesEdit").IsLoaded = False Then
    DoCmd.OpenForm "frmActivitiesEdit"
End If
Forms!frmActivitiesEdit.RecordSource = "Select * from qryActivitiesEdit Where ActionID = " & Me.txtActionID