Forms![myForm]!dynamictextboxName 2

[lanelouna]

hello everybody
I h ave a question please, which i managed to resolve
but i am looking for a better coding
i want to simply say this

If p = RS!SCOD Then
nameOfCr = p & "_CR_" & code
defautCrC = Forms![myForm]!nameOfCr

however i had to do it this way, since it doesn t recognize nameOfCr in : defautCrC = Forms![myForm]!nameOfCr


If p = RS!SCOD Then
nameOfCr = p & "_CR_" & code
For Each ctl In frm.Controls
If ctl.ControlType = acTextBox Then
If ctl.Name = nameOfCr Then
defautCrC = ctl.Value
Exit For
End If
End If
Next ctl


is there a way to do it?
thank you
Lina

 

[danvlas]

Change the Access notation to VB notation:

defautCrC = Forms("myForm&quot(nameOfCr)

That's all...

Good luck

Daniel Vlas
Systems Consultant

 

[jebry]

Hi Lina!

You can do it like this:

defautCrC = Forms![myForm].Controls(nameOfCr)

hth
Jeff Bridgham
bridgham@purdue.edu

 

[lanelouna]

thank you both
I apreciate it alot
that would save me lots of time
Regards

Lina Chebli