goldwhispers
New member
- Local time
- Today, 11:05
- Joined
- Sep 5, 2006
- Messages
- 3
I really hope someone can help me here I am desperate
I've tried this several ways, either by using the actual period . or by using the chr(46) but it still turns out the same
this is my code, what it does is export files to a folder on the server
Sub IMNew()
Dim cc As String
Dim rs As DAO.Recordset
Dim bb As String
cc = "ABA"
Set rs = CurrentDb.OpenRecordset("SELECT TableName from ABA ")
', dbOpenSnapshot, dbSeeChanges)
Do Until rs.EOF
aa = rs!TableName
DoCmd.TransferDatabase acImport, "ODBC Database", _
"ODBC;DSN=FM_AVAF;UID=author;PWD=analyst;LANGUAGE=us_english;" _
& "DATABASE=FM_ABA", acTable, aa, aa
DoCmd.TransferText acExportDelim, , aa, "J:\external\FIM\IM\ABA\" & "FIN" & "." & cc & aa & ".csv", True
Dim dbs As Database
Set dbs = CurrentDb()
dbs.Execute "drop table " & aa
rs.MoveNext
Loop
dbs.Close
rs.Close
---------------
what happens is the fulll stop . always becomes a # and i am not sure what i am doing wrong
DoCmd.TransferText acExportDelim, , aa, "J:\external\FIM\IM\ABA\" & "FIN" & "."
can anyone help here?
I've tried this several ways, either by using the actual period . or by using the chr(46) but it still turns out the same
this is my code, what it does is export files to a folder on the server
Sub IMNew()
Dim cc As String
Dim rs As DAO.Recordset
Dim bb As String
cc = "ABA"
Set rs = CurrentDb.OpenRecordset("SELECT TableName from ABA ")
', dbOpenSnapshot, dbSeeChanges)
Do Until rs.EOF
aa = rs!TableName
DoCmd.TransferDatabase acImport, "ODBC Database", _
"ODBC;DSN=FM_AVAF;UID=author;PWD=analyst;LANGUAGE=us_english;" _
& "DATABASE=FM_ABA", acTable, aa, aa
DoCmd.TransferText acExportDelim, , aa, "J:\external\FIM\IM\ABA\" & "FIN" & "." & cc & aa & ".csv", True
Dim dbs As Database
Set dbs = CurrentDb()
dbs.Execute "drop table " & aa
rs.MoveNext
Loop
dbs.Close
rs.Close
---------------
what happens is the fulll stop . always becomes a # and i am not sure what i am doing wrong
DoCmd.TransferText acExportDelim, , aa, "J:\external\FIM\IM\ABA\" & "FIN" & "."
can anyone help here?