Format loss on import
Hey everyone, i'm having a weird problem when i import an excel
spreadsheet into a table. all data is imported fine except some of the feilds that are meant to be dates are converted to text... but some remain dates...???
Code:
Function funcImport(strTableName, strFileName As String)
On Error GoTo funcImport_Err
' Close Table
DoCmd.Close acTable, strTableName
' Delete Table
DoCmd.DeleteObject acTable, strTableName
' Import Spreadsheet into table
DoCmd.TransferSpreadsheet acImport, 8, strTableName, strFileName, True, ""
funcImport_Exit:
Exit Function
funcImport_Err:
MsgBox Error$
Resume funcImport_Exit
End Function
any help would be appreciated... thankyou
|