How to check if a form exists in VBA code 1

[beamerman]

Using Access 97. I have a report that i use to print an invoice from a sales entry form. I also use another a form to reprint the invoice if required. I am trying to use the same report for both instances. I'm already using the me.args to pass the invoice number to the report and i need to display the word "reprint" if it is comming from the reprint form. Is there anyway to check if the form i use for the reprint is open so i can put some code into the report to see what form is calling the report?
Thanks in advance

Shane

 

[JoaoTL]

Hi , see this function at

http://www.jtl.co.pt/vba/forms.htm

Best Regards

---
JoaoTL
mail@jtl.co.pt
My MS Access Site:

http://www.jtl.co.pt

 

[ghubbell]

Hi Beamerman,
This is from the Northwinds sample Db that ships with Access. It lives in a standard module:

Function IsLoaded(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in Form view or Datasheet view.

Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If

End Function

You'd call this 'test' by code, probably in the reports on open event, something like:

If IsLoaded(&quot;TheNameOfTheFormYou'reLookingFor&quot Then
DoSomething
Else
DoSomethingElseorShowSomethingElse
End if

Hope that'll help!

;-)

Gord
gord@ghubbell.com

 

[beamerman]

Thanks JoaTL and Gord for the ideas, I'll give it a try.

 

[beamerman]

Just copied the code and it worked perfectly. Thanks Gord
LOL

 

[ghubbell]

Good morning and thank you beamerman. Actually thank Microsoft for including probably one of the most indispensable little functions you're ever going to use!
;-) Gord
gord@ghubbell.com