geert.van...@belfius.be
unread,Jul 17, 2013, 6:38:06 AM7/17/13You do not have permission to delete messages in this group
Sign in to report message
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to
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 and put every separate data into the right consecutive field.
info: 'TBL_field_names' serves as to give each field in my table a new name and 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);"