[AccessD] How do I tell if a form is opened as a subform or n ot?

I know, it's just one of my coding habits.  I only use 'resume next' when I
want to completely ignore errors.  If I am expecting an error...to use it
(as in my example), or I am just handling unexpected errors, then I always
use On Error Goto...

Make sense?  (your code is smaller....can't deny that!<grin>)

Drew

-----Original Message-----
From: Gustav Brock [mailto:gustav at cactus.dk]
Sent: Wednesday, March 12, 2003 11:13 AM
To: Drew Wutka
Subject: Re: [AccessD] How do I tell if a form is opened as a subform or
not?


Hi Drew

That was an awful lot of code to replace something like these two
lines: 

<code>

Private Function IsSubform() As Boolean

  On Error Resume Next
  IsSubform = Me.Parent.hWnd
    
End Function

</code>

/gustav


> This is from my new MiniCalendar database....still in development...but
the
> function works fine.

> Private Function AmIASubForm() As Boolean
> On Error GoTo ErrorHandler
> Dim varTemp
> varTemp = Me.Parent
> AmIASubForm = True
> Exit Function
> ErrorHandler:
> Err.Clear
> AmIASubForm = False
> End Function

> -----Original Message-----
> From: Bruce Bruen [mailto:bbruen at bigpond.com]
> Sent: Tuesday, March 11, 2003 6:58 PM
> To: AccessD
> Subject: [AccessD] How do I tell if a form is opened as a subform or
> not?


> Hi List,

> I am trying to use a form that may appear as a subform or on its own.
> If it's a subform then I want to maximise it in its parent control
> space, if not then it should be sized to fit the form.
> But how do I tell where it is being opened?  The following doesn't work:

>     On Error Resume Next
>     If Not IsNull(Me.Parent.Name) Then
>         boolIsSubform = True
>         DoCmd.Maximize
>     Else
>         boolIsSubform = False
>     End If
>     On Error GoTo 0

> Ignore the fact that the docmd works on the parent, I am not worried
> about that at the moment, only that I don't know how to test the
> "subformedness".

_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com