Transfer spreadsheet formated column

[webisti]

Hi I am using this code for transfering a query results to excel:

Private Sub SEND_ACQ_Click()
Dim Filename As String
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12xml, "S_EXPORT", "C:\users\**\S_EXPORT.xlsx", True


MsgBox " table created" & vbCrLf _
& "FILE SAVED " & vbCrLf, vbYes + vbInformation, " - SUCCESSFULLY CREATED"
End Sub

Actually What I want is that the three colums I do export : Student Name / Phone / birthday should be formated like Text / Number / Date/
So I want have the famous erro number stored as text.


Any ideas are appreciated

Webisti

[June7]

Why would you want phone as a number? I just tested export and phone number does not have the warning but zip code does because have only 5 digits. Is the warning really an issue? Data still works.

[webisti]

I must have it as a number, is there any way?

[June7]

Phone number value is not saved in table with punctuation - parens and hyphens?

I tested export of phone number from text field saved without punctuation and used Val() function on the field. The column in spreadsheet did not have warning. But I did get an unexpected warning message before the export "Unable to append record" to which I replied Yes and the data exported. Apparently was because some records did not have phone number and the Val() function errors with Null. So if Nulls are possible, try:

Val(Nz([Fieldname],0))

[webisti]

Phone number value is not saved in table with punctuation - parens and hyphens?

I tested export of phone number from text field saved without punctuation and used Val() function on the field. The column in spreadsheet did not have warning. But I did get an unexpected warning message before the export "Unable to append record" to which I replied Yes and the data exported. Apparently was because some records did not have phone number and the Val() function errors with Null. So if Nulls are possible, try:

Val(Nz([Fieldname],0))

Thanks the val/nz function worked out...
great

Webisti