Export csv file - save as cell from table or query

Function export_File_csv()

'Reading from Database cell

Dim db As Database

Dim TicketNumb As DAO.Recordset

Dim ticketvar As String

Dim TicketNum As String

'Open connection to current Access database

Set db = CurrentDb()

'Create SQL statement to retrieve value from qry_tblMAIN

ticketvar = "select Ticket from qry_tblMAIN"

Set TicketNumb = db.OpenRecordset(ticketvar)

'Retrieve value if data is found

If TicketNumb.EOF = False Then

TicketNum = TicketNumb("Ticket")

Else

TicketNum = "Not found"

End If

TicketNumb.Close

Set TicketNumb = Nothing

GetTicket = TicketNum

'Export csv file

Dim trz As Integer

Dim strCSV As String

For trz = 1 To 511

Close #trz

Next trz

trz = FreeFile

Open "C:\Users\Name\Documents\" & (TicketNum) & ".csv" For Output Access Write As #trz

With CurrentDb.OpenRecordset("qryRESUME ")

Dim x As Integer

For x = 0 To .Fields.Count - 1

strCSV = strCSV & strColumnDelimiter & .Fields(x).Name & ", "

Next x

Print #trz, Mid(strCSV, Len(strColumnDelimiter) + 1)

Do Until .EOF

strCSV = ""

For x = 0 To .Fields.Count - 1

strCSV = strCSV & strColumnDelimiter & Nz(.Fields(x), "") & ", "

Next x

Print #trz, Mid(strCSV, Len(strColumnDelimiter) + 1)

.MoveNext

Loop

End With

Close #trz

End Function