Muti Value Export to Excel

[bboudreau]

Hi Guys



Im working on a code now that exports to excel but i am having difficulties exporting the files where I am using the Multi Value option in access 2007. I know after resourcing that the multi value option is a pain but i have everything the way that i would like it in the form that i have created.

The code i have is
Dim Carriers As Recordset
Dim Row As Integer
Dim Col As Integer
Dim ws As Worksheet

Set ws = wb.Worksheets("ActiveProviders")

Set Carriers = CurrentDb.OpenRecordset("select * from [qryactiveproviders]")


Row = 2

Do While Not Carriers.EOF
Col = 1

ws.cells(Row, Col + 0) = Carriers![Current Status]
ws.cells(Row, Col + 1) = Carriers![Type]
ws.cells(Row, Col + 1) = Carriers![Compliant]


The Carriers![Type] will not work because it is multi valued, does anyone know the code to get the value from the access query in the way that access has it (ex. Red, Blue, Black)

[June7]

Check this http://office.microsoft.com/en-us/ac...33722.aspx#BM7

If it all possible, think will have to export the multi-value data separately. Or do a query for the multi-value field and query for the other fields, join those two queries and export that.

I don't use multi-value fields so that is a wild guess.