Hi,

I am using a function to add a number of text boxes (all named differently) to a form at run time (Code listed below).

This works fine, except that when I try and extract any of the values in the boxes boxes added later using a command button event click function I get a compile error "Method or data member not found".

Does anyone have any ideas about what I am doing wrong, or what I should be doing to make this work.

Thanks in advance for any help...

Code to add text box

Function createTextbox(tmpWhere As Form, tmpLeft As Integer, tmpTop As Integer, txtName As String)

    Dim txt As TextBox

    Set txt = Controls.Add("VB.textbox", txtName, tmpWhere)
    With txt

        .Move tmpLeft, tmpTop, 500, 200
        .Visible = True
        .BackColor = &H80000005
    End With
    Set txt = Nothing
End Function

Code to reference text box
Private Sub cmdAddLineItem_Click()
    MsgBox (frmOtherQuoteUtilities.txtQty1.Text)
End Sub

hi there.. is the code to reference the textbox in the same form??

you can look for the control in the controls collection of the form.. maybe that's not the name of the control??

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

Hi Yes,

Didn't think of that. I looped through the control collection and found the text boxes (using c.name (c is dimmed as control)). From there in the loop if the name matched then I can assign the text value to a variable and collect it that way.

I.E

Private Sub cmdAddLineItem_Click()
    Dim c As Control

    For Each c In Controls
        If TypeOf c Is TextBox Then
            If c.Name = "txtQty1" Then
                msgBox (c.Text)
                x = x + 1
            End If
        End If
    Next
End Sub

Thanks loads for your help Gonzalo!!!!

glad I help you...

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

or you can access directly without the loop, using:

dim t as textBox
set t = controls("txtQty1")
msgbox t.text


"There are two ways to write error-free programs. Only the third one works."
Unknown

Thanks marcostraf. Your way is a bit more efficient!