G
geert.vanransbeeck
It has been quiet a while (several years) since I did some programing in VBA. I was and still am a newbee in VBA.
So would someone be so kind to help me with this one.
Beneath I put some code which imports some csv data into an access table. For years it worked in Access 2003. But now we moved tot Access 2011 and data doesn't fit anymore in the appropriate field. I get a series of comma delimited data in 1 field, another comma delimited data into another etc.
Some I suppose I have to ad some extra code in order to get rid of this andput every separate data into the right consecutive field.
info: 'TBL_field_names' serves as to give each field in my table a new nameand changes the imported old name into a new fieldname.
I hope I made myself understandable.
Thanks
Geert
Private Sub Command81_Click()
Dim rst_data As Recordset
Dim oldname As String, newname As String
DoCmd.DeleteObject acTable, "TBL_import_TPXP_Radi_Evvd"
DoCmd.TransferText acImportDelim, , "TBL_import_TPXP_Radi_Evvd", "N:\APPLSHARE\PRD\QSIG\MKTDISTPWB\USPB1815\RADIEV\IMPACT.CSV", False, ""
Set rst_data = CurrentDb.OpenRecordset("TBL_field_names")
With rst_data
..MoveFirst
Do Until .EOF
oldname = .Fields(0).Value
newname = .Fields(1).Value
changefieldnames oldname, newname
..MoveNext
Loop
End With
Set rst_data = Nothing
'DoCmd.RunSQL "ALTER TABLE [TBL_import_TPXP_Radi_Evvd] ALTER COLUMN [Ontlener] text"
'DoCmd.RunSQL "UPDATE TBL_import_TPXP_Radi_Evvd SET TBL_import_TPXP_Radi_Evvd.Ontlener = Right('000000000000' & [TBL_import_TPXP_Radi_Evvd]![Ontlener],12);"
So would someone be so kind to help me with this one.
Beneath I put some code which imports some csv data into an access table. For years it worked in Access 2003. But now we moved tot Access 2011 and data doesn't fit anymore in the appropriate field. I get a series of comma delimited data in 1 field, another comma delimited data into another etc.
Some I suppose I have to ad some extra code in order to get rid of this andput every separate data into the right consecutive field.
info: 'TBL_field_names' serves as to give each field in my table a new nameand changes the imported old name into a new fieldname.
I hope I made myself understandable.
Thanks
Geert
Private Sub Command81_Click()
Dim rst_data As Recordset
Dim oldname As String, newname As String
DoCmd.DeleteObject acTable, "TBL_import_TPXP_Radi_Evvd"
DoCmd.TransferText acImportDelim, , "TBL_import_TPXP_Radi_Evvd", "N:\APPLSHARE\PRD\QSIG\MKTDISTPWB\USPB1815\RADIEV\IMPACT.CSV", False, ""
Set rst_data = CurrentDb.OpenRecordset("TBL_field_names")
With rst_data
..MoveFirst
Do Until .EOF
oldname = .Fields(0).Value
newname = .Fields(1).Value
changefieldnames oldname, newname
..MoveNext
Loop
End With
Set rst_data = Nothing
'DoCmd.RunSQL "ALTER TABLE [TBL_import_TPXP_Radi_Evvd] ALTER COLUMN [Ontlener] text"
'DoCmd.RunSQL "UPDATE TBL_import_TPXP_Radi_Evvd SET TBL_import_TPXP_Radi_Evvd.Ontlener = Right('000000000000' & [TBL_import_TPXP_Radi_Evvd]![Ontlener],12);"