RETRIEVING TEXTBOX VALUES 1

[GClinic]

Hi,
I have a myriad of textboxes on my form, and from time to time, I need to retrieve some of their values in comma-separated format. The textboxes are named in the format of a letter and two digits, for easy identification, like A22 or B54 etc.
Before a textbox is updated, I want a display of values in the adjoining boxes displayed to assist a user in making his decision.
This is the code that I tried on their got-focus event:

'If TypeOf Screen.ActiveControl Is TextBox Then
If IsNull(Screen.ActiveControl) Then
Dim X As Integer, P As Integer, Y As Integer, Z As Integer, S As String, Tx As Control, ImpoList As String
S = Screen.ActiveControl.Name
X = Mid(S, 2, 1)
Y = Right(S, 1)
Z = Screen.ActiveControl.Tag
For Each Tx In Screen.ActiveForm
If TypeOf Tx Is TextBox Then
If Tx.Name = "A" & Y & P Then
For P = 1 To 10
DoCmd.GoToControl Tx.Name
If Not IsNull(Tx) Then
ImpoList = ImpoList & "," & Tx.Text
End If
Next
End If
End If
Next
MsgBox ImpoList
End If
'End If

However, at the end of the event, my list is empty, when I can see several textboxes are not null. The code seems to work up to the line before:

Impolist = Impolist & "," & Tx.Text

What am I doing wrong?

 

[PHV]

What about this ?
ImpoList = ImpoList & "," & Tx.Value

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GClinic]

Thanks.
I just tried your suggestion but it did not seem to work; the list is still empty.

 

[PHV]

And what about replacing this:
For Each Tx In Screen.ActiveForm
with this ?
For Each Tx In Screen.ActiveForm.Controls

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GClinic]

Thangs again, but it did not work.

 

[PHV]

No On Error instruction somewhere in your procedure ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GClinic]

Actually, I had not got round to that part as I was still testing the code.

 

[randy700]

Try stepping through the code and checking values in the immediate window. I think you'll find that the last character in the value of tx.name is always a zero.


Randy

 

[TheAceMan1]

How are ya GClinic . . .

. . . and this:

[blue]   Dim frm As Form, idx As Integer, fldName As String, Pack As String
   
   Set frm = Forms![purple][b][i]FormName[/i][/b][/purple]
   
   For idx = 1 To 10
      fldName = "A" & CStr(idx)
      
      If Trim(frm(fldName) & "") <> "" Then
         If Pack = "" Then
            Pack = frm(fldName)
         Else
            Pack = Pack & ", " & frm(fldName)
         End If
      End If
   Next
   
   Debug.Print Pack[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[GClinic]

Thanks, TheAceMan1.
I must confess I did not quite understand the code you sent in but I tried it all the same. I got an error message.

 

[ck1999]

what is the value of "p" in this line of code

If Tx.Name = "A" & Y & P Then

should your p loop be before this line?

ck1999

 

[randy700]

You need to give us some information if you want help.

Thangs again, but it did not work.

What result DID you get?

I got an error message.

What error message?

Have you tried stepping through the code and checking your values in the immediate window?



Randy

 

[ck1999]

Just to clarify what this code is doing

assume your activecontrol is textbox named "A22"

Go through each control on form and determine if a control is a textbox
if there is a textbox AND its name is "a2" then
goto txtboxes "A21" "A22" "A23" "A24" "A25" "A26" "A27" "A28" "A29" "A210" and as long as textboxes have values and the value to impolist.

then display impolist in a msgbox

Is this what you want?

I doubt it.

ck1999

 

[GClinic]

Thanks Guys,
I got a tip to change the line: "For Each Tx In Screen.ActiveForm" to "For Each Tx In Screen.ActiveForm.Controls". This has solved the problem so far.
I appreciate your efforts.

 

[ck1999]

Did that tip have anything to do with PHV 2nd post!

which you responded with

Thangs again, but it did not work.

ck1999

 

[TheAceMan1]

. . . and in my code, replace [purple]FormName[/purple] with the actual form name. If there's any spaces in the names use brackets:

[blue]Set frm = Forms!ClientData
   or
Set frm = Forms![Client Data][/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886