VBA help please

[bdjb]

I am using access xp, and the following code in a module:
Public Sub Get_Input()

Dim strMsg As String

strMsg = "Enter the Fiscal Year and Fiscal Month in the format YYMM"
strInput = InputBox(strMsg)

'Change the path below to the live path
strPath_AP = "C:\nfslawson\" & strInput & ".VAPGLTRANS.csv"

The portion ".VAPGLTRANS.csv" actually gives the output of "#VAPGLTRANS.csv" - any idea why or how to fix that?

Thanks

What happens if you get scared half to death twice?

Bob

 

[SkipVought]

Hi,

I cannot reproduce your error. The code works just fine.

Skip,

_[red][/red]

 

[bdjb]

Hi Skip,
Sorry, I left off a chunk of the code, it's when the file export runs that I get the # instead of . in the file name

Option Compare Database
Public Sub Get_Input()

Dim strMsg As String

strMsg = "Enter the Fiscal Year and Fiscal Month in the format YYMM"
strInput = InputBox(strMsg)

'Change the path below to the live path
strPath_AP = "C:\nfslawson\" & strInput & ".VAPGLTRANS.csv"
strPath_AR = "C:\nfslawson\" & strInput & "_VARGLTRANS.csv"
strPath_IN = "C:\nfslawson\" & strInput & "_VINGLTRANS.csv"
strPath_PJ = "C:\nfslawson\" & strInput & "_VPJGLTRANS.csv"
strPath_SJ = "C:\nfslawson\" & strInput & "_VSJGLTRANS.csv"

DoCmd.TransferText acExportDelim, , "ExportFile_AP", strPath_AP
DoCmd.TransferText acExportDelim, , "ExportFile_AR", strPath_AR
DoCmd.TransferText acExportDelim, , "ExportFile_IN", strPath_IN
DoCmd.TransferText acExportDelim, , "ExportFile_PJ", strPath_PJ
DoCmd.TransferText acExportDelim, , "ExportFile_SJ", strPath_SJ

End Sub

What happens if you get scared half to death twice?

Bob

 

[SkipVought]

Did you want a [red]DOT[/red] or [red]UNDERLINE[/red]???

'Change the path below to the live path
strPath_AP = "C:\nfslawson\" & strInput & "[b][red].[/red][/b]VAPGLTRANS.csv"
'...

Skip,

_[red][/red]

 

[bdjb]

I actually want a dot, the underlines were just testing to see if that worked correctly.

What happens if you get scared half to death twice?

Bob