fGetControl (strMyControl) as Control

[BUX]

Do you know if exist a functione that returns a controle using as
string?
For example
Dim MyControl as Control
MyControl= fGetControl("Forms![MyForm]![MySubForm].form![MyControl] ")

thank you

[RoyVidar]

BUX wrote in message <v2********************************@4ax.com> :

Do you know if exist a functione that returns a controle using as
string?
For example
Dim MyControl as Control
MyControl= fGetControl("Forms![MyForm]![MySubForm].form![MyControl] ")

thank you

I'm not entirely sure what you're asking, but see if this is along the
lines of
what you need:

dim strCtl as string
dim strFrm as string
strCtl = "txtMyControl"
strFrm = "frmMyForm"
debug.print forms(strFrm).controls(strCtl).value

--
Roy-Vidar

[BUX]

Yes this is what I mean, but the function have to Work with or without
subForm.

thanks

On Wed, 27 Jul 2005 13:41:29 GMT, "RoyVidar"
<ro*************@yahoo.no> wrote:

BUX wrote in message <v2********************************@4ax.com> :

Do you know if exist a functione that returns a controle using as
string?
For example
Dim MyControl as Control
MyControl= fGetControl("Forms![MyForm]![MySubForm].form![MyControl] ")

thank you

I'm not entirely sure what you're asking, but see if this is along the
lines of
what you need:

dim strCtl as string
dim strFrm as string
strCtl = "txtMyControl"
strFrm = "frmMyForm"
debug.print forms(strFrm).controls(strCtl).value

[RoyVidar]

BUX wrote in message <m6********************************@4ax.com> :

Yes this is what I mean, but the function have to Work with or without
subForm.

thanks

On Wed, 27 Jul 2005 13:41:29 GMT, "RoyVidar"
<ro*************@yahoo.no> wrote:

BUX wrote in message <v2********************************@4ax.com> :

Do you know if exist a functione that returns a controle using as
string?
For example
Dim MyControl as Control
MyControl= fGetControl("Forms![MyForm]![MySubForm].form![MyControl] ")

thank you

I'm not entirely sure what you're asking, but see if this is along the
lines of
what you need:

dim strCtl as string
dim strFrm as string
strCtl = "txtMyControl"
strFrm = "frmMyForm"
debug.print forms(strFrm).controls(strCtl).value

Sorry, i still don't understand what you're intending to do...

If you're attempting to find a control on a form containing
subform(s), where the control can be either on the main
form or one of the sub forms, then I think you'll need a
recursive sub or something - but again, with the
description you've given, I don't understand where
to start...

--
Roy-Vidar

[BUX]

I would like to know if there is a function like this
Public Function fGetControl("strControl as String") as Control

so I can set MyControl from a string like this
"Forms![MyForm]![MySubForm].form![MyControl] "

If it do not exist I am able to write it.

Than you for your interesting.

On Wed, 27 Jul 2005 17:16:36 GMT, "RoyVidar"
<ro*************@yahoo.no> wrote:

BUX wrote in message <m6********************************@4ax.com> :

Yes this is what I mean, but the function have to Work with or without
subForm.

thanks

On Wed, 27 Jul 2005 13:41:29 GMT, "RoyVidar"
<ro*************@yahoo.no> wrote:

BUX wrote in message <v2********************************@4ax.com> :
Do you know if exist a functione that returns a controle using as
string?
For example
Dim MyControl as Control
MyControl= fGetControl("Forms![MyForm]![MySubForm].form![MyControl] ")

thank you

I'm not entirely sure what you're asking, but see if this is along the
lines of
what you need:

dim strCtl as string
dim strFrm as string
strCtl = "txtMyControl"
strFrm = "frmMyForm"
debug.print forms(strFrm).controls(strCtl).value

Sorry, i still don't understand what you're intending to do...

If you're attempting to find a control on a form containing
subform(s), where the control can be either on the main
form or one of the sub forms, then I think you'll need a
recursive sub or something - but again, with the
description you've given, I don't understand where
to start...

[David W. Fenton]

"RoyVidar" <ro*************@yahoo.no> wrote in
news:mn***********************@yahoo.no:

If you're attempting to find a control on a form containing
subform(s), where the control can be either on the main
form or one of the sub forms, then I think you'll need a
recursive sub or something - but again, with the
description you've given, I don't understand where
to start...

No, you'll just need to know to pass the fully qualified form name:

fGetControl(Forms!frmParent!SubForm.Form, "controlname")

and you'll need to change your function definition so the first
argument is of type FORM, rather than a string.

I'm wondering if we're providing the solution that was asked for,
but one that wouldn't be the best if we knew *why* this solution was
requested.

--
David W. Fenton http://www.bway.net/~dfenton
dfenton at bway dot net http://www.bway.net/~dfassoc

[BUX]

I often have to search in a form (Form1) a value for another form
(Form2).
So I have done a table where i placed fields like this:

Field1
Forms!Form1!Control1

Field2
Forms!Form2!Control2.

I have to do a function that set Forms!Form1!Control1 with the value
in Forms!Form2!Control2 .

I want to use a variable like this

Public MyControl as Control

to pass the value from
Forms!Form1!Control1
to
Forms!Form2!Control2.

So I need a function like
Set MyControl = fGetControl(strMyControl).

Excuse me for my bed English

thanks

No, you'll just need to know to pass the fully qualified form name:

fGetControl(Forms!frmParent!SubForm.Form, "controlname")

and you'll need to change your function definition so the first
argument is of type FORM, rather than a string.

I'm wondering if we're providing the solution that was asked for,
but one that wouldn't be the best if we knew *why* this solution was
requested.

[David W. Fenton]

BUX <pi***@pippo.it> wrote in
news:25********************************@4ax.com:

I often have to search in a form (Form1) a value for another form
(Form2).
So I have done a table where i placed fields like this:

Field1
Forms!Form1!Control1

Field2
Forms!Form2!Control2.

I have to do a function that set Forms!Form1!Control1 with the
value in Forms!Form2!Control2 .

I want to use a variable like this

Public MyControl as Control

to pass the value from
Forms!Form1!Control1
to
Forms!Form2!Control2.

So I need a function like
Set MyControl = fGetControl(strMyControl).

Why not give the controls the same name on both forms?

Then you could do:

Forms!Form2(Forms!Form1!Control1.Name) = Forms!Form1!Control1

I'm assuming you want this to be done with a variable, so you can,
for instance, walk through a collection of controls and do the
assignment:

Dim ctl As Control

For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
Forms!Form2(ctl.name) = ctl
End If
Next ctl

Set ctl = Nothing

Now, if you really wanted to abstract this, you could do something
like:

Public Sub SetFormValues(frmSource as Form, frmDestination As frm)
Dim ctl As Control

For Each ctl In frmSource.Controls
If ctl.ControlType = acTextBox Then
frmDestination(ctl.name) = ctl
End If
Next ctl

Set ctl = Nothing
End Sub

Does that help?

--
David W. Fenton http://www.bway.net/~dfenton
dfenton at bway dot net http://www.bway.net/~dfassoc

[BUX]

It is a good idea!
English people always pragmatic!
Thank you very much

On Thu, 28 Jul 2005 17:28:41 -0500, "David W. Fenton"

Why not give the controls the same name on both forms?

Then you could do:

Forms!Form2(Forms!Form1!Control1.Name) = Forms!Form1!Control1

I'm assuming you want this to be done with a variable, so you can,
for instance, walk through a collection of controls and do the
assignment:

Dim ctl As Control

For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
Forms!Form2(ctl.name) = ctl
End If
Next ctl

Set ctl = Nothing

Now, if you really wanted to abstract this, you could do something
like:

Public Sub SetFormValues(frmSource as Form, frmDestination As frm)
Dim ctl As Control

For Each ctl In frmSource.Controls
If ctl.ControlType = acTextBox Then
frmDestination(ctl.name) = ctl
End If
Next ctl

Set ctl = Nothing
End Sub

Does that help?