B
Bob Barnes
line input# will pull in a WHOLE line into one variable, and then you must
write your own code to parse out the data....
Tips on how to handle any comma, apostrophe, double-quotes with a pair of
double-quotes?? IE...
"Fred","Smith", "Fred's info"
"John","Jones", "John's info
with a return in it"
...or..
"Bob Smith","Acme's "Clothes", Inc."
I use code like..
Open "C:\Bob\" & Y For Input As iNumOne
Set Z = CurrentDb
Set RS = Z.OpenRecordset("FromCSV")
Do Until EOF(iNumOne)
Input #iNumOne, vSvc, vCust, vTypeSvc, vInvV, vStore, vQty '---> Declared
at top of module
With RS
.AddNew
!SvcDate = vSvc: !Cust = Trim(vCust): !TypeSvc = Trim(vTypeSvc)
!InvVesco = Trim(vInvV): !Store = Trim(vStore): !QTY = Trim(vQty)
.Update
End With
Loop
TIA - Bob
write your own code to parse out the data....
Tips on how to handle any comma, apostrophe, double-quotes with a pair of
double-quotes?? IE...
"Fred","Smith", "Fred's info"
"John","Jones", "John's info
with a return in it"
...or..
"Bob Smith","Acme's "Clothes", Inc."
I use code like..
Open "C:\Bob\" & Y For Input As iNumOne
Set Z = CurrentDb
Set RS = Z.OpenRecordset("FromCSV")
Do Until EOF(iNumOne)
Input #iNumOne, vSvc, vCust, vTypeSvc, vInvV, vStore, vQty '---> Declared
at top of module
With RS
.AddNew
!SvcDate = vSvc: !Cust = Trim(vCust): !TypeSvc = Trim(vTypeSvc)
!InvVesco = Trim(vInvV): !Store = Trim(vStore): !QTY = Trim(vQty)
.Update
End With
Loop
TIA - Bob