VBA Syntax Question

[Keith]

A97, NT4.

I have a form with a command button which opens a second form. What's the
syntax to make the second form have the same record source as the first but
without hard-coding the form's name? The main form will be the only one
open when the button is clicked.

Background - I'm developing a custom filter form and want to use just one
filter form for many data sources, depending on which form I call it from.

Many thanks.
Keith.

[Grumpy Old Man]

Keith <ke*********@AwayWithYerCrap.com> wrote:

What's the
syntax to make the second form have the same record source as the first
but without hard-coding the form's name?

Doen't matter, found it in the help:
Me.RecordSource = Forms(0).RecordSource

[Rick Brandt]

Grumpy Old Man wrote:

Keith <ke*********@AwayWithYerCrap.com> wrote:

What's the
syntax to make the second form have the same record source as the
first but without hard-coding the form's name?

Doen't matter, found it in the help:
Me.RecordSource = Forms(0).RecordSource

Forms(0) refers to the first form opened of all those currently open. If you
ever have more than one form opened then that will not be reliable.

Can't you just use the Me syntax?

--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com

[Keith]

"Rick Brandt" <ri*********@hotmail.com> wrote:

Forms(0) refers to the first form opened of all those currently open.
If you ever have more than one form opened then that will not be
reliable.

Can't you just use the Me syntax?

Other than the second form there'll only ever be one form opened at a time.
I can't use the Me keyword because I'm referring to Forms(0) from Forms(1).

[Rick Brandt]

Keith wrote:

"Rick Brandt" <ri*********@hotmail.com> wrote:

Forms(0) refers to the first form opened of all those currently open.
If you ever have more than one form opened then that will not be
reliable.

Can't you just use the Me syntax?

Other than the second form there'll only ever be one form opened at a
time. I can't use the Me keyword because I'm referring to Forms(0)
from Forms(1).

Another option would be to pass the name of the calling form in the OpenArgs
argument of the OpenForm method.

--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com

[Keith]

"Rick Brandt" <ri*********@hotmail.com> wrote:

Another option would be to pass the name of the calling form in the
OpenArgs argument of the OpenForm method.

Excellent idea, thanks I'll lokk into that.

[Tim Marshall]

Rick Brandt wrote:

Other than the second form there'll only ever be one form opened at a
time. I can't use the Me keyword because I'm referring to Forms(0)
from Forms(1).

Another option would be to pass the name of the calling form in the OpenArgs
argument of the OpenForm method.

Or what about soemthing like:

dim f as access.form
dim booCorrectForm as boolean

booCorrectForm = false

for each f in Access.forms

if f.name = "The_Name_of_the_form_you_Want" then

booCorrectForm = True

Exit For

end if

next

If booCorrectForm = true then

me.recordsource = f.recordsource

else

me.recordsource = whatever

end if
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[rkc]

Keith wrote:

A97, NT4.

I have a form with a command button which opens a second form. What's the
syntax to make the second form have the same record source as the first but
without hard-coding the form's name? The main form will be the only one
open when the button is clicked.

Background - I'm developing a custom filter form and want to use just one
filter form for many data sources, depending on which form I call it from.

Many thanks.
Keith.

From the calling form

Sub OpenFilterForm (frmName as string)
Dim f As Access.Form

DoCmd.OpenForm frmName
Set f = Forms(frmName)
f.RecordSource = Me.RecordSource

Set f = Nothing
End Sub