Programming Forums > Application Development > Visual Basic

u2cannv · Oct 20th, 2007, 11:27 AM

Ive created a macro that should import/export a file based of certain criteria's: filename and filedate.
\\c\desktop\"johndoe" & Right("0" & Month(Date()), 2) & Right("0" & Day(Date()), 2) & Right(Year(Date()), 2) & ".txt
when i insert the code into the field "filename" using the action "TransferText" i receive the following errors: microsoft access cant parse the expression or filename has to end in .txt or .csv. can someone inform me as to whats wrong with the code?

Thanks

OpenLoop · Oct 20th, 2007, 1:06 PM

Lets switch to VBA Macros again because they're easier to debug. I pulled your code from your previous post:

(Toggle Plain Text)

Option Compare Database
Option Explicit

Public Sub Import()
Dim Joe As Date
Dim John As String
Dim result As String
Jon = Format(Date, "MMDDYY")

DoCmd.TransferText acImportDelim, "3RPV EXPORT", "Johndoe*.txt", "johndoe*.TXT"

The first step would be to correctly figure out the file name. Where is the data file located? For now, I'll assume it at "C:\desktop\johndoeMMDDYY.txt" where MMDDYY is the current date:

(Toggle Plain Text)

fileDt = Format(Date, "MMDDYY")
fileNm = "C:\Desktop\" & "johndoe" & fileDt & ".txt"
MsgBox (fileNm)

I put the MsgBox to display the final filename. If this is the correct file name, use it in TransferText and this should work.

Oct 20th, 2007, 11:27 AM	#1
u2cannv Newbie Join Date: Oct 2007 Posts: 8 Rep Power: 0	Access Ive created a macro that should import/export a file based of certain criteria's: filename and filedate. \\c\desktop\"johndoe" & Right("0" & Month(Date()), 2) & Right("0" & Day(Date()), 2) & Right(Year(Date()), 2) & ".txt when i insert the code into the field "filename" using the action "TransferText" i receive the following errors: microsoft access cant parse the expression or filename has to end in .txt or .csv. can someone inform me as to whats wrong with the code? Thanks

Oct 20th, 2007, 1:06 PM	#2
OpenLoop Expert Programmer Join Date: May 2005 Location: East Lansing, MI Posts: 663 Rep Power: 4	Re: Access Lets switch to VBA Macros again because they're easier to debug. I pulled your code from your previous post: (Toggle Plain Text) Option Compare Database Option Explicit Public Sub Import() Dim Joe As Date Dim John As String Dim result As String Jon = Format(Date, "MMDDYY") DoCmd.TransferText acImportDelim, "3RPV EXPORT", "Johndoe.txt", "johndoe.TXT" Option Compare Database Option Explicit Public Sub Import() Dim Joe As Date Dim John As String Dim result As String Jon = Format(Date, "MMDDYY") DoCmd.TransferText acImportDelim, "3RPV EXPORT", "Johndoe.txt", "johndoe.TXT" The first step would be to correctly figure out the file name. Where is the data file located? For now, I'll assume it at "C:\desktop\johndoeMMDDYY.txt" where MMDDYY is the current date: (Toggle Plain Text) fileDt = Format(Date, "MMDDYY") fileNm = "C:\Desktop\" & "johndoe" & fileDt & ".txt" MsgBox (fileNm) fileDt = Format(Date, "MMDDYY") fileNm = "C:\Desktop\" & "johndoe" & fileDt & ".txt" MsgBox (fileNm) I put the MsgBox to display the final filename. If this is the correct file name, use it in TransferText and this should work.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
put method, main and member access specifiers separately	cairo	C++	9	Jul 5th, 2007 11:28 PM
ADSI Changing Password - Access Denied	bobfox	Visual Basic .NET	1	Sep 22nd, 2005 1:22 PM
How to connect with VB to an Access database on another computer	iown714	Visual Basic	5	Aug 4th, 2005 10:23 AM
Module Access	Cipher	Visual Basic	9	Apr 6th, 2005 4:23 PM

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

Access