Append to TextBox Not OverWrite

[runthis457]

I am using ADO to cycle through data in a table. I want to be able to display in a textbox on a form each record that the textbox cycled through. My problem is that each subsequent record that is cycled overwrites the value that is already there, so the result I get is only the final record that is touched. How would you set VBA to show all?

[pbaldy]

Not knowing your code or what look you're going for, this would be one way:

Me.TextboxName = Me.TextboxName & rs!FieldName & "; "

Trim off the trailing "; " after the loop if you wish.

[runthis457]

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strSQL As String
Set conn = CurrentProject.Connection

Set rst = New ADODB.Recordset

strSQL = "Select fileName from tblTest"

rst.Open strSQL, conn

Do Until rst.EOF
Debug.Print rst("fileName")

placeHolder = Forms![Form1]![Slave].Value
MsgBox rst("fileName")
Forms![Form1]![Master].Value = Replace(placeHolder, "_Main", rst("fileName"))

rst.MoveNext
Loop

rst.Close
Set rst = Nothing
conn.Close
Set conn = Nothing
End Sub

And I want

placeHolder = Forms![Form1]![Slave].Value
MsgBox rst("fileName")
Forms![Form1]![Master].Value = Replace(placeHolder, "_Main", rst("fileName"))

To show each fileName in the textbox Master on my form, not overwrite.

[pbaldy]

Did you try my suggested method (replacing with your specifics of course)?

[runthis457]

I didn't really follow what you were suggesting, thought it might be easier to post my code and let you say definitively.

[pbaldy]

My suggestion was to concatenate the existing contents of the textbox with the new value. I added a semi-colon to separate them, but you can use anything including a carriage return (vbCrLf in VBA). In other words,

Target = Target & NewValue & Delimiter

[runthis457]

So if I am following you it would read like this:

Master = Master & NewValue & vbCrLf

[pbaldy]

Forms![Form1]![Master].Value = Forms![Form1]![Master].Value & Replace(placeHolder, "_Main", rst("fileName")) & "; "

[runthis457]

Works Perfect!!! Thank you!

[pbaldy]

Happy to help!