Rename files in TransferDatabase

[AndieV]

I have the following code set up in my program. I would like to know if there is a way for me to change the name of the dbaseIII file without having to go into the code.

ie. I would like to export Newtable to Monday.dbf on Monday, Tuesday.dbf on Tuesday etc.

Is there a way to do this easily? Thanks in advance for any help.


DoCmd.TransferDatabase acExport, "dBase III", "c:\filefolder", acTable, "Newtable", "Monday.dbf"

Andie

 

[PaulF]

use the Date WeekDay functions

First establish a variable to capture the Day of the Week in Text format

Dim strDayOfWeek As String

Then use a Select Case Statement to Determine the Day of the Week based on the Date

Select Case WeekDay(Date)
Case vbSunday
strDayOfWeek = "Sunday"
Case vbMonday
strDayOfWeek = "Monday"
Case vbTuesday
strDayOfWeek = "Tuesday"
Case vbWednesday
strDayOfWeek = "Wednesday"
Case vbThursday
strDayOfWeek = "Thursday"
Case vbFriday
strDayOfWeek = "Friday"
Case vbSaturday
strDayOfWeek = "Saturday"
End Select

Use this Code which replaces "Monday.dbf" with what you want

DoCmd.TransferDatabase acExport, "dBase III", "c:\filefolder", acTable, "Newtable", & strDayOfWeek & ".dbf"

PaulF