I'v got stucked on this problems for days already. What I am trying to do is to change the data type of a sepcific colume within a table which I am importing to my Access database.
My code shows as following:
Expand|Select|Wrap|Line Numbers
- Option Compare Database
- Option Explicit
- Private Sub cmdUpdateLoanStorage_Click()
- DoCmd.TransferSpreadsheet acImport, , "Dynamic Loan Data Storage Trial", "P:\IRP\System Build\IRP 2012\Data Tables\Dynamic Loan Data Storage.xlsx", True
- Call ChangeField("Dynamic Loan Data Storage Trial", "Most Recent Master Servicer Return Date")
- End Sub
- Function ChangeField(ByVal TableName, _
- ByVal FieldName As String) As Boolean
- Dim Db As DAO.Database
- Dim strSql As String
- strSql = "ALTER TABLE " & TableName & " ALTER COLUMN " & FieldName & _
- " DATE;"
- End Function
Thanks in advance for any help!!