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.
View RepliesHow can I add 7 days in todays date to store target date in the table?
Code:
ssql = "Insert into tblUpdate([Update_ID],[Date],Username,Status,Target_Date) values('" & j & "',#" & Format(Date, "mm/dd/yyyy") & "#,'" & k & "','Open')"
CurrentDb.Execute ssql, dbFailOnError
I have a database which stores information relating to club members, which I'm in the middle of giving a bit of a facelift and one thing I want to automate is the calculation of the expiry date.
My memberships expire annually at the end of December and the expiry date is set as a default value within the table properties. This has to be manually changed every September (every new member from then pays for 15 months) to the following December.
Is there a formula I can insert in the defaul value field that will return December the current year if todays date is between January and August, and December next year if todays date is between September and December?
What's the formula we can use to calculate days between no of days between date job is open and today's date in a query. I am using formulat below formula but the DATE_OPEN and Today (todays date) pops us as enter parameter value. I dont want those enter parameter windows pops us. The date job is open is in a linked table and linked table is getting the information from BPCS software. The date in Liinked is in format YYYYMMDD.
Total Days: DateDiff("d",[Date_Open],[Today])
The SQL Details are below. AUNPRDF_AAA802 is a linked table and information gets updated on 12 am everyday
SELECT DateDiff("d",[Date_Open],[Today]) AS [Total Days], AUNPRDF_AAA802.AAAGE AS Age, AUNPRDF_AAA802.AAORD AS [Job Number], AUNPRDF_AAA802.AAWKSP AS Workshop,
AUNPRDF_AAA802.AASWKT AS WorkType, AUNPRDF_AAA802.AANAME AS [Customer Name], AUNPRDF_AAA802.AANME AS [Service Admin], AUNPRDF_AAA802.AASDE1 AS Complaint,
[Code] ....
I'm trying to create a button that posts an order and before it post certain criterias need to be meet. One of them is a date needs to be selected in the order, if not a popup show to explain. The trouble I'm having is referring to todays date in the VBA code. I've been reading and trying different things but not getting anywhere, hopefully someone can fill me in.
This is the code I'm working with.
If [PayOrderMoneyReceivedSubform].[Form]![OrderDate] = TodaysDate Then
dosomething
else
donothing
end if
The part I'm having trouble with is TodaysDate, what should I be putting there?
:confused:Hi,
I'm quite new to Access, and would like help with a query.
I need to show all records with the date field 14 days before todays date.
If i havn't explained this clearly enough then i'll have another go.
Thanks
Dan
One the face of it it sounds quite simple - i have a table that holds various bits of info about a customer but also a field that contains a holiday period - what i want to be able to do is show all records that do not equal todays date.
So if today was 11/04/06 - and one of my customers had 11/04/06
as one of his holiday days he would not appear on the report but all the others would.
Any help would be greatly appreciated
regards
I have a basic trouble ticket type database that I built. It records troubles and auto fills the date and time when a new records created. I want a simple query that will display the number of calls that each person has taken today.
The problem being that If I use >Date()-1 I will get calls from this time yesterday until now. Is there a way to round down the time to today only? I don't want to lose my time stamp.
I'm wondering what would be the best way to update a list of records based on today's date. Right now I have it to open the form based on the LAST record and then navigate to the record they would like to update, I would only like to show what was entered that day.
View 1 Replies View RelatedWhen a form in my database is loaded I want access to check if a textbox on the form is showing today's date and if not send me an email. I'm quite new to VBA so not 100% sure what to do but I've had a few attempts and none seem to work. I have managed what is probably the hard part and can get it to email me but can't seem to get the 'If the textbox is not today's date then' bit right.
The textbox is linked to a table and the data type is 'Date/Time', it does show the time and the date so don't know if this makes a difference? The text box is [DateUpdated] and the form is [Site].
I have an access database with a query which inserts system date/time from Now() function to a column. My system date is 12-05-14 (12 May 14) and when it is inserting in the table is taken as 05-12-14 (5 Dec 14).
View 2 Replies View RelatedI have a "Status" combobox, I'd like the "Date Case Closed" field to auto fill today's date when "Status" combobox = Closed. The way I know how to do this is by using an IIf with Date() function, but, if I do that, the date is gonna keep changing everyday. Do I have options to do this?
View 3 Replies View RelatedI am new to Access. I am after a vba script to run an update query.
I have a table named MYOB_Invent.
I have a Query Named MYOB_Update.
The query is showing records where my field named Test1 is null.
I want to update records with null in the field to today's date (the date of the day that it is run) formatted as 18/08/2014 and the field next to it is named Updated (which is yes/no) from un-ticked to ticked for the updated values.
I would like a vba script to automate the process as I want to automate it via a commandbutton for users.
How do I write a Access 2010 Web database expression to give me the number of days between a particular field eg [sold date] and todays date?
Being a Web database I know I am restricted to a smaller list of available expressions - normally part of my expression would include eg date().
I am new to access 2010. I have a table called "Forecasts", and I wish to update the timestamp with todays date, whenever the user makes a change to the qty of goods forecasted.
I have been researching online for the solution to the correct format to datetime, but it doesnt seem to work.
Code:
Dim todayDate As Date
todayDate = Date
Dim sqlString As String
sqlString = "UPDATE [Forecasts] " & _
[Code] .....
The messagebox shows:
UPDATE [Forecast] SET Branch_Plant=123, Item_Number_Short='222', Description='AAA', UOM='EA', Estimated_Cost=123, Requesting_Business_Unit='AAA', End_Customer='CCC', Project ='Secret', Timestamp=#26/12/2013# WHERE ID =24
Then I hit a syntax error. Whats wrong with sqlString?
Hi
i have 2 fields in a form - 'Balance' and 'Date'. Quite simply I need the date field to change automatically to todays date each time the data in the 'Balance' field is changed. Can anyone advise me on how to accomplish this.
Many thanks
Geoff
Hi all,
I had a form with a command button which invokes email sending option to send a report..I am using code from a sample database . The code which I am using is here:-
'This will create the e-mail
DoCmd.SendObject acReport, "Rpt_Customer", "RichTextFormat(*.rtf)", "", "", , "Customer Report", "", False, ""
'Tbis explains all the section of the e-mail see SendObject in help
Rem example from help DoCmd.SendObject [objecttype][, objectname][, outputformat][, to][, cc][, bcc][, subject][, messagetext][, editmessage][, templatefile]
The code is working perfect and my question is that can I change the file format from RichTextFormat to word format????? I tried by chaning "WordDocument (*.doc)" but it didn't worked???? Is there any way I can change that to word format (*.doc)???? any suggestions appreciated .
thanks in advance
Thanks
Hi,
We've got an old database consisting of just an MDE file and its point to the UNC path of a server we need to decommission. Is there anyway I can amend the Links to an external mdb so it points to either the new server or folder?
Thanks.
I've converted my DB into an MDE file as I understand this secures all the code and doesn't allow any changes to the database (table structure, queries, etc.).
However, when I now view my MDE file, I can still delete queries and change tables. But I cannot view forms in design mode and therefore get access to the code.
Any ideas?
Previously, using Windows Professional 2000 and Office Professional 2000, a Access File > Export... would always assume (default to) Excel (.xls) as the "Save type As...".
Now, my system has been upgraded to XP Professional and Office Prof 2003, and now the File > Export... always defaults to Access (*.mdb,...) as the file type. It is not a big problem, just a nuisance. I don't like repeatedly re-selecting *.xls from the drop down list every time I export. (After all, computers and even upgrades should make our life easier, not harder, right?)
Can I somehow select or configure Access to use *.xls as the default Export... file type?
I have a query that runs based on a parameter a user selects on a form.
I want to dynamically create the sendobject file name based on the parameter the user selects.
Example:
My form has a parameter named medicine. When the user checks the checkbox next to medicine it runs a query for records labeled as medicine but sends the e-mail output as the query name. I want something like medicine.txt etcc...
thanks
:confused:
DoCmd.OutputTo acOutputReport, "Estimate", acFormatPDF, "c:TestMyReport.pdf"
the following code saves my report in a folder called test as a pdf file with the name MyReport. I have a string variable called RepName. How can I make the report get saved under that name.
I tried
DoCmd.OutputTo acOutputReport, "Estimate", acFormatPDF, "c:Test&MyReport&.pdf" but it dosent work.
I've been able to find the code I need to import the file, but there are headers that come through from the group sending the excel file that will not import - they have a "." in them and that won't work. I need to find a way to remove the character and bring the excel header in line with the access table I'm importing to. I'm using the following to import the file:
Sub Example()
'the path to the excel workbook
Dim strExcelPath As String
strExcelPath = "C: est est esting.xls"
'import data from excel
Call DoCmd.TransferSpreadsheet(acImport, _
acSpreadsheetTypeExcel8, "testtable", strExcelPath, _
True, "A1:AA11")
End Sub
And that work fine up until it hits the offending headers. what is a good, quick bit of code to plug in to alter the headers and what, if any references would need to be added?
I'm currently looking to change the ending of all filepaths of imported files whenever I run the import. I want to change the path ending from .txt to .doc. So basically, the link/path to the file should be got, the ending changed from .txt to .doc and then the path (with the .doc ending) put into the table.
Code:
Private Sub bimportinternal_Click()
On Error Resume Next
strFolderPath = "S:Foo reportsSearchable"
strFolderPathSave = "S:Foo reportsSearchableArchiveword" & objF1.Name
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strFolderPath)
Set objFiles = objFolder.files
[code]...
I have been trying to set up a batch file to allow users to copy the latest version of the front end whenever a change is made. The following is the code that I am trying to get to work properly. The first part works fine, the old front end is copied to a folder on the user's desktop as a backup. But I cannot get the copy of the server - the "P" drive, to overwrite the current copy on the user's desktop. Actually I cannot get the code to copy the new front end from the server and install it on the user's desktop. I think the path is correct for I seem to be able to run the new front end from the server.
When I look for the location on my computer, the server locations is listed as:
General (Servernamefiles) (P: ) (there is no space after the P: it seems to result in a smiley face when I type it and try to post it).
for /f "tokens=2-4 delims=/ " %%a in ('date /T') do set year=%%c
for /f "tokens=2-4 delims=/ " %%a in ('date /T') do set month=%%a
for /f "tokens=2-4 delims=/ " %%a in ('date /T') do set day=%%b
set TODAY=%year%-%month%-%day%
rem echo %TODAY%
[Code] .....
This code works so I thought that the path was correct
rem this works
rem start the new DB front end
Start P:AccessMainSplitBENewFrontEndDBMain.accdb
But this code does not.
echo f | xcopy /f/y/ P:AccessMainSplitBENewFrontEndDBMain.accdb c:UsersUserNameDesktopDBMain.accdb
Neither does this:
echo f | xcopy /f/y/ ServerNamefilesP:AccessMainSplitBENewFrontEn dDBMain.accdb c:UsersUserNameDesktopDBMain.accdb
Hi, I'm newbie.
I did create LANDesk Date Control in the form but the date format shown MMDDYYYY.
I want change the date format to DDMMYYYY...how?
& how do I link the LANDesk Date Control into tables as database?
p/s - can I change font color date of "Sat" & "Sun" to red color instead? Please guide.
Thanks.:D