I'm printing to a text file the contents of a user selected database and field.

How do I get round the fact that they could have selected any field?

e.g.
string = rs!variable
write #1 string

where variable is the name of a string variable not a recordset field called variable

Hi

You could get the field names from the recorset. Use for example:

For Each Field In RS.Fields
        varA = (Field.Name)
        Debug.Print (varA)
Next

Let me know if you need more detail

Regards
Marnus

Hi,

I've got the field names using TableDef and populate a listbox with each table name and relevant field name.

But then whichever field is selected I want to print the distinct values to a text file.

It's just how do I write the content of just the selected field?

To get the value that has been selected in the listbox use:

For X = 0 To List1.ListCount - 1
             ' If the item is selected...
             If List1.Selected(X) = True Then
                'Get the Selected item.
                varField = (List1.List(X))
             End If
Next X

With this you will end up with the selected field name in the listbox, in varField. You could then use this to query the DB to get the data and loop through the values and write them to text file.

Just to add on to that...

You will have the field name in varField. Assuming that you have already run the query use:

Do Until RS.EOF
Z = RS(varField)
"""write Z to txt file using fso"""
rs.movenext
Loop

Is this what u are looking for?

acdsky,

I agree with what you have said and have done something similar.

I populate my list box with each table name field name then query the database with a statement:

"select distinct " & gstrF & " from " & gstrTB

Which gathers the distinct values within the user selected field (gstrF) from the user selected table (gstrTB).

But my problem is simply outputting those recordset values via a loop to a text file
. There is only one field in the recordset.

For i = 1 To rs.RecordCount - 1
        strText = rs!variable
        Write #1, strText
        rs.MoveNext
Next

Where variable is the name of a string variable (gstrF) taken from the listbox selected field name - not a recordset field called variable

Yes!!

That was all I wanted the RS(varfield). I just couldn't think of the format avoiding rs!varfield

Thanks!!