Referencing properties of a modal form in VBA

[degras]

How do I reference properties of a modal form in VBA.
e.g. I have a modal form called "DatesForm" and I invoke it as follows:
DoCmd.OpenForm "DatesForm"
How do I reference the modal result and the fields on the form (what syntax do I use) ?


I want to set the value of a text box called CompanyText, on the form.

[NoellaG]

Hi,

if the form is opened you can access it through the Forms collection, for example print the forms name in the immediate window:

Debug.Print Forms("DatesForm").Name

Success
NG

[degras]

Hi,

if the form is opened you can access it through the Forms collection, for example print the forms name in the immediate window:

Debug.Print Forms("DatesForm").Name

Success
NG

I tried adding this code to my application and nothing happened. Where is the immediate window? How does this help me achieve what I originally asked?

[NoellaG]

Hi,

you asked a way to access the form and you can do this through the forms collection. As a surplus I gave you an example how to use the forms collection, it's up to you to use this in the way you need.

As I don't know how your app works and what exactly you're trying to achieve, I can't write the code for you. And even if I could, where would be the fun for you...

You can open the immediate window through the view -> Immediate Window in the toolbar of the VBA window. And the debug object does just what it tells: it helps with debugging and one method there is printing the results of codelines in the immediate window.

have fun with the coding
NG

[degras]

I tried to set the value of a text box on the modal DatesForm using the following:
DoCmd.OpenForm "DatesForm", , , "CompanyNameText=" & Me.Company
... it did not show any error when the code was run, but the CompanyNameText was blank. What am I doing wrong?

[NoellaG]

Try:

DoCmd.OpenForm "DatesForm"
Forms("DatesForm").CompanyText = strMyValue

where strValue has to be replaced by the variable that contains the actual value

[degras]

Try:

DoCmd.OpenForm "DatesForm"
Forms("DatesForm").CompanyText = strMyValue

where strValue has to be replaced by the variable that contains the actual value

Thanks that worked fine.