form open check on report

[jdmack2000]

I have a form that allows the user to pick the type of report he or she wants. I want to make sure the user opens the report via the form and not simply opening the form. Is there a way that I could write some code to check that the form has been open first?

Thanks for your help

 

[JoeMiller]

Place this function in a module:
[tt]
Function IsLoaded(ByVal strFormName As String) As Integer

IsLoaded = False
Dim frm As Form
For Each frm In Forms
If frm.Name = strFormName Then
IsLoaded = True
Exit For
End If
Next frm

End Function
[/tt]

Then use an if/then to check for the form in question in the on-open event of your report. IE:
[tt]
If IsLoaded("FormNameToCheckFor&quot = False Then
'Do Something When True
Else
'Do Something When False
End If
[/tt]

HTH Joe Miller
joe.miller@flotech.net

 

[JoeMiller]

You can use the form to pass an argument (via the OpenArgs property) to the report when opened and check for a specific value or even if IsNull or not during the OnOpen event.

[tt]
If IsNull(Me.OpenArgs) = True Then
'Do Something When Null
Else
'Do Something When Not Null
End If
[/tt]

HTH Joe Miller
joe.miller@flotech.net