I am using the shell command to call dos ftp in order to download and upload files that I then import into my db (Access 2002). This is working great. I would like to check the file date before I import the file data into my db so that I do not import duplicate records. Unfortunately, the file date is modified when I grab a file. Is there a means to preserve the file date using the dos ftp utility? If not, is there some other way to do this in code so I can automate the procedure? The code I am currently using is:
'******* Code Start *****
'This code was originally written by Dev Ashish
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code Courtesy of
'Dev Ashish
'
Public Sub sFTP(stSCRFile As String)
'Usage Example:
' call sFTP("C: emp est.scr")
'Sample SCR File for NT/Win95 FTP
' lcd "c: emp"
' open ftp.someserver.com
' anonymous
' dash10@hotmail.com
' cd public
' binary
' get dead.letter dead.letter
' bye
Dim stSysDir As String
stSysDir = Environ$("COMSPEC")
stSysDir = Left$(stSysDir, Len(stSysDir) - Len(Dir(stSysDir)))
Call Shell(stSysDir & "ftp.exe -s:" & stSCRFile, vbNormalFocus)
End Sub
'********** Code End *******
I have a report that contains hyperlinks to various folders on our share drive at work. I distribute this report once a week using the EmailDatabaseObject built-in function in the macro builder. I specify the output of the report to be PDF format. Everything works great, except when it is converted, the hyperlinks do not work.
You can click on them within the PDF, and a message pops up asking me to "allow" it to connect to the address. (Only the address now contains "%20" scattered throughout the address. Is the link corrupted?).
The excel worksheet that I am importing into my database has some formula's, for an example =2+2. I am importing this worksheets, then checking fields against the main table, then exporting back to Excel. But I want to be able to keep the "=" signs when I import to remain so that when I export back into Excel the columns with the formulas will already be there.
Everything works great but I want to save the backup file with a unique name, like EX: myfile INTx.xls where intx = the date "Now", maybe, am I looking at this wrong. Thanks Bob
We are getting in files from a vendor that come in with today's date and different extensions and prefixes such as BA0003.20121217.pdf or MYLOOKUP.20121217.psv where the only constant is the date, there are over 100 files that I need to change the date part to today's date. I would like to find all the data before the first period and all the data after the last period and replace the date part with todays date.
So I currently have a module which automatically backs up my database to a separate file everyday on open of my database.
If is it possible to create a function which will allow me to delete these backups after a certain amount of days (eg 30 days). They all have different file names based on the time that the backup was created but have the same extension of "*.accdb". I ask because it stores EVERY backup so the storage space required will soon build up unless manually deleting the files which is not what my client will want,
I have tried using the "Kill(pathname)" function but have had no luck yet!
If possible, I would like this to be done automatically either on open or on close of my database.
What I would like to achieve via code on a button. From the table orders
Code: orderDate orderID ref name amt vat 02/02/2014 56789 01 magdi 600 100 22/06/2014 12122 01 magdi 654 100 22/06/2014 65897 02 simon 250 159 22/06/2014 12345 02 simon 156 140 23/07/2014 56781 01 magdi 400 250 01/08/2014 12457 01 magdi 250 900 01/09/2014 56787 02 simon 126 500 02/09/2014 56781 04 peter 400 250 02/09/2014 12345 02 simon 450 122 02/09/2014 65897 04 peter 250 231 02/09/2014 12122 05 hargr 654 100 02/09/2014 79457 05 hargr 254 200
I need to create csv files from the above based on unique date and ref and with filename showing date and ref. So from the above we should get 9 csv files in this format
I want to save NOW() (i.e. Date and time) into an event log file. But I just cannot work out the syntax. My insert statement works fine without the date field in, but fails on a syntax error (3134) when I include it.
I have a split database with a frontend that I semi-regularly update (when one of my users finds a bug I never would have thought for looking for). On my menu screen i have a text box that says: "Last Updated: ##/##/####".
At the moment I manually update the date every time I update the frontend.
Is there a way I can use the DateModifed property of the .mdb file for the frontend as the date in my textbox using VBA?
Someone decided to be clever and send a text file with a stupid date format, is it possible to show off a little here and get a working date format, it's a text file I am working with: Dec 18 2014 01:12PM.
Not that is an exactly cut/paste so spaces are as they are here, ideally would like to get 18/12/14 13:12.
I want to use the create date of a file which is stored as a linked table in my Access 2010 database. I have attempted this by creating a query (qrysysObjects) using the MsysObjects and that gives me the filename of the linked tables, well almost - a few are csv files and this does not have the file name in the database field text, but I have found it in the foreignname field except it is name#csv rather than name.csv so I can't simply concatenate this in a query.
I know there is a function called FileDateTime which you can use in vba or a query but can you use a variable with this rather than the actual path name? I tried this in the query qrySysObjects but it said unknown function.
I am having some difficulties with a Date/Time Field. I am importing a | delimted text file into a table and the Date Field is resulting in a Type Conversion Error.In the raw text file, the Date Field has the following Format (example): 01/03/2013 03:11 PM
My import Spec is as follows: File Format: Delimited Field Delimter: | Language: English
[code]....
The only thing I can think of, is that the mix of Leading Zeros in the Time AND AM/PM is causing a problem. But, I do not see a way to address this with an import spec.The odd thing is that if I import the DateOpened Field as Text, THEN change the DataType to Date/Time AFTER import, then save the table, it recognized/converts the DateOpened Fields correctly.I'd LIKE to get the import spec correct (I have to update twice daily), But, barring that, if I could import as Text then build a Macro that would:
1) import text file(s) 2) change certain fields datatypes to Date/Time 3) Save Table(s)
That would suffice. I could then use VBS (and perhaps windows scheduler) to run the macro when needed.
I have a vba code export a error message if the current date of a file is not correct.. I have tested the code it worked to send a error message to a error.txt file but he it doesn't look to the modified date
So instead of:
file1.txt (13-02-14) Then Send error message ("file not updated") to: Error.txt
IF NOT no action requeried
This code does the following :
file1.txt (Modified date: 13-02-14) Then Send error message ("file not updated") to: Error.txt
file2.txt (Modified date: 14-02-14) Then Send error message ("file not updated") to: Error.txt
Code: Sub CheckD() Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject") Dim objFile As Object: Set objFile = FSO.GetFile("C:Users ameDocumentsShow5621.txt") If objFile.DateLastModified <> Date - 1 Then
[Code] .....
So also if it is the current date he send the error message to the error.txt file, it could be possible that i did something wrong.
I have a CSV file and want to convert it in a text format with some filtered data and with some formatting. This is an everyday task for me. So I made a table and imported the data in to it by the command :
Actually I have a column "SERIES", contains various series like "EQ", "BE", "DR", "BZ", "D1" and so on. And one more column with the dates having 4 / 5 current months dates and one next months date and one next to next month's date. And every date has got several thousand records.
now the issue is that : After importing these several thousand records, I want to export it but with a specific date and with a specific series.
The other thing is that, these dates change every month so if hard coded, the problem will occur the next month.
this code is working fine but when the month will change, the code won't work.
Can we have a date & series picker attached to this query, so it can export the records with the specified SERIES & DATE.
I tried putting a textbox on the form named TxtDate and in a Query ( Design mode ) under the date column, in criteria I have put [Forms]![Futures]![TxtDate] and after putting this line, the query becomes empty and no data is there.
I have a form which i use for a user to select an excel file they want to import and then click a cmd button to import the file into a table which works fine, however i want to append a date into a date field from an unbound txtbx before the file is imported so it will look something like;
I have an excel file linked to a table in Access. Several fields are date data types in excel but are showing up as text fields in Access.
My real goal is to do a comparison between two tables, but only if the date of the one piece of data is newer than the other. I had planned on comparing the two date fields but even though I have formatted the date fields in my excel file to be "Date", when I look at the design view of my table it is showing up as "Text" and therefore I am unable to do this comparison.
I'm not sure if it's just something that I'm missing but maybe someone else knows an easy fix to this. I know this is probably a simple question, but I did search the forum and didn't find a thread that specifically dealt with this issue.
I recently upgraded a DB from 2003 to 2013 and ran into the following problem.
I have a button that opens a file dialog box and allows the user to upload a file to a predetermined location (and store the address as a hyperlink). I borrowed this code from someone else on here and modified it slightly.
In any case, the button still works, but now when it opens it doesn't have an option for "All files" under file types. So I can upload MS Office files, text files, etc., but not PDF files which are by far the most common types my users upload.
Private Sub Command35_Click() Dim dd As Integer Dim fileDump As FileDialog Set fileDump = Application.FileDialog(msoFileDialogOpen) dd = fileDump.Show Dim Yourroute As String Dim yourrouteName Yourroute = fileDump.SelectedItems(1) yourrouteName = StrReverse(Yourroute) yourrouteName = StrReverse(Mid(yourrouteName, 1, InStr(yourrouteName, "") - 1)) FileCopy Yourroute, "us170fp00dataWBO_Tool_RoomDrawings" & yourrouteName Me.Drawing_Link = yourrouteName & " # us170fp00dataWBO_Tool_RoomDrawings" & yourrouteName End Sub
I often create contract using mail merge. I have an access file that I want to use as data source for word file. But it does not automatically.
Please download the attached file !
If there are 1 customer and 1 property, I do not need to do anything. Conversely, if there are many customers and many properties, I take time to manipulate.
Firstly, I open the word file. I have to copy and paste paragraphs that I want. Highlight of the original paragraphs is blue.
Secondly, I click 'Insert Word Field' -> select 'Next Record'.
In short, I wish to use VBA in access file to automatically perform the steps that I have outlined.
I've got the forms and queries in one .accdb file and my tables in a separate .accdb file. The forms file links to the tables in the tables file. The tables file resides in a folder called simply enough C:acc_tables and thats where i browsed to (obviously) when i set up the linkage.
One of the users does not wish (for whatever goddamn reason) to create a C:acc_tables file to stick the tables file in , and wants the tables file in some other folder.. Unfortunately this user does not have the skills to delete the existing links and re-link to the tables file after putting it in the folder he wants.
Where in the file that holds the forms and and queries do i find the path setting to the tables linked file? Can it be changed without deleting links and then re-linking?
