Form name in variable

[jokobe]

I use a (sub)form in different parent forms, and to get the value in a field
I want to put the form name in a variable.
For example:

[form1]![formname1]![controlname].rowsource = sqlstr
or in a different form:

[form2]![formname2]![controlname].rowsource = sqlstr

How is it possible to work like this:

StrForm = me.actualform.name
strform![controlname]. rowsource = sqlstr

thanks in advance for any helpful hint...

 

[Allen Browne]

Dim strForm As String
Dim strControl As String
strForm = "Form1"
strControl = "Text0"
Forms(strForm).Controls(strControl)

 

[Kardan via AccessMonster.com]

Hi,

Try this;

Me.Parent.Controls(ControlName).RowSource = sqlstr

Regards

Richard

I use a (sub)form in different parent forms, and to get the value in a field
I want to put the form name in a variable.
For example:

[form1]![formname1]![controlname].rowsource = sqlstr
or in a different form:

[form2]![formname2]![controlname].rowsource = sqlstr

How is it possible to work like this:

StrForm = me.actualform.name
strform![controlname]. rowsource = sqlstr

thanks in advance for any helpful hint...

 

[Ken Snell MVP]

Do you know what the form name will be each time -- is it a fixed name? If
yes, just set the variable to the string of that name:

strForm = "NameOfYourForm"


Or, you can use the Forms collection and identify the specific item by name:

Forms("NameOfYourForm")!NameOfControl.RowSource = sqlstr

 

[jokobe]

thanks for your fast answer, that save my day...

jokobe

Dim strForm As String
Dim strControl As String
strForm = "Form1"
strControl = "Text0"
Forms(strForm).Controls(strControl)

--
Allen Browne - Microsoft MVP. Perth, Western Australia

Reply to group, rather than allenbrowne at mvps dot org.

I use a (sub)form in different parent forms, and to get the value in a
field
I want to put the form name in a variable.
For example:

[form1]![formname1]![controlname].rowsource = sqlstr
or in a different form:

[form2]![formname2]![controlname].rowsource = sqlstr

How is it possible to work like this:

StrForm = me.actualform.name
strform![controlname]. rowsource = sqlstr

thanks in advance for any helpful hint...