Displaying entire column of data into text box

[FinnMan]

Having a little trouble here.... :-(

I'm trying to display an entire column of data from an access table into a text box. I can hit the first record and even jump between them but can't seem to populate the entire text box with the column of data. Any suggestions?

 

[Foada]

Make the data from the column a single string and add a vbCrLf between lines then set the textbox text to the string. Assuming you are using ADO:

Do Until rs.EOF
rs.Open
rs.MoveFirst
str = rs("columnName&quot & vbCrLf
rs.MoveNext
Loop

rs.Close

text1.Text = str

Also make sure you set the textboxes multi-line property to true. Hope this helps. If you choose to battle wits with the witless be prepared to lose.

 

[FinnMan]

Thx for the info, I think I'm getting the idea now...but no, I'm not using ADO. Struggling with the proper syntax for a non-ado query....Suggestions appreciated and very welcome

 

[FinnMan]

Got it!!

Used the following:

Private Sub Form_Load()
Dim list As String
Set dbs = OpenDatabase("data.mdb&quot
Set rstList = dbs.OpenRecordset("Sheet1", dbOpenTable)
Do Until rstOrders.EOF = True
list = list & rstOrders("Column2&quot & vbCrLf
rstList.MoveNext
Loop
rtbList.Text = list
End Sub


Thx for getting me on the path