how to tell if a fom is Dialog

[SuryaF]

Heya,
I'm trying to see if a certain form was opened as vbDialog. I tried testing the Modal and the PopUp properties of the form but they are both false (the original settings).
Any ideas?
Thanks!

 

[mp9]

Use the BorderStyle property. A value for this of 3 equates to Dialog.

http://www22.brinkster.com/accessory/

 

[ZmrAbdulla]

I'd add a openarg in the code then check it later
[tt]
DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog, "Dialog"

DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "Sizable"

[/tt]
later

[tt]
Private Sub Form_Open(Cancel As Integer)
MsgBox Me.OpenArgs
End Sub
[/tt]



________________________________________________________
Zameer Abdulla
Help to find Missing people
Sharp acids corrode their own containers.

 

[SuryaF]

Hi mp9, it doesn't work with the BorderStyle and MinMaxButtons either. Although the Help suggests all these properties it actually doesn't work, they have the orriginal values as set in the form's properties.

Thanks ZmrAbdulla, I thought about this but it's such a pain, I'll keep it as a final possibility.

Any other way that works?

Thanks a bunch!

 

[ZmrAbdulla]

How to Determine If a Form Is Maximized or Minimized

http://support.microsoft.com/support/kb/articles/Q141/1/11.asp?PR=ACC

________________________________________________________
Zameer Abdulla
Help to find Missing people
Sharp acids corrode their own containers.

 

[SuryaF]

Hehehe, I found the solution.

http://www.experts-exchange.com/Databases/MS_Access/Q_21693345.html

When using the acDialog WindowMode, the form will have the main Access windows assigned as its parent (instead of the MDI client window of Access). So....

Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long

Function IsPopup(frm As Form) As Boolean
Dim hWndParent as Long

hWndParent = GetParent(frm.hWnd)
IsPopup = (hWndParent = Application.hWndAccessApp)
End Function

This should work, I'll try it tomorrow. Thanks for your answers!