Sorry...add the kill line below...
Dim dbPath As String
Dim OldDbName As String
Dim NewDbName As String
Dim DbBackup As String
Dim Response As Integer
Dim fs As Object
dbPath = Application.CurrentProject.Path
OldDbName = "OldDatabaseName.mdb"
NewDbName = "BackUp" & "_" & Format(Date, "yyddmm")...
Sure...
Dim OldDbName As String
Dim NewDbName As String
Dim DbBackup As String
Dim Response As Integer
Dim fs As Object
'Get current path of the database currently open
dbPath = Application.CurrentProject.Path
'Current database name
OldDbName = "OldDatabaseName.mdb"
'Creates the new name of...
Try the following:
Dim dbPath As String
Dim OldDbName As String
Dim NewDbName As String
Dim DbBackup As String
Dim Response As Integer
Dim fs As Object
dbPath = Application.CurrentProject.Path
OldDbName = "OldDatabaseName.mdb"
NewDbName = "BackUp" & "_" & Format(Date, "yyddmm") & ".mdb"...
I am assuming you are using the Active X Calendar Control. Is so, try changing the DayFont property of the control. Then resize the calendar to incorporate the larger font size.
Not sure why you need to close the first form, but here is the code to open the second form to your record:
Dim stDocName As String
Dim stLinkCriteria As Variant
stDocName = "F_Project_Summary"
stLinkCriteria = Forms!F_Project_Summary_Index!Job_No
DoCmd.OpenForm stDocName, , , stLinkCriteria
Have a look at the following example. You'll need to manipulate the code to search each table individually, but this should get you started in the right direction. A sample database is included from John Big Booty...
If you are replacing the existing table, just click on it and hit DELETE. However, I would rename it and then link in the new table (just in case you need to reverse what you are about to do) or make a back-up copy before you proceed.
In case anyone wants the code....this will extract out the date from a file name (ex: EXT_EXTIMPORT_20100708.txt) from multiple files and import them into your table for a date range....
HTH...
Dim stDate, edDate As Date
Dim myConvtName As Date
'Prompt for the START and END import dates...
Re: Importing multiple cvs based on Modified Date
DC:
I tried but it doesn't import any files. If I swap out the "<" and ">" under If myFTime < stDate > edDate Then it imports everything except the files I want...any ideas?? Could it be because there is no time on the Start and End dates...
I have several .csv files in a common directory that are sporadically updated. Utilizing a Start Date prompt and an End Date prompt, I want to import the files in the directory that coincide to those prompted dates.
Start date: 7/12/2010
End date: 7/14/2010
Files in directory...