Modules & VBA :: SQL Make Existing Date Into Today?
May 20, 2015
I've been using Allen Browns method [URL] to copy form and sub form data, and it works perfectly after some adaptation.
It changes dates to today from whatever the date 'was'.. perfect.. however, as I'm still learning SQL, is there a way, to make the copied subform's date into today as well...this is my adapted code from the SQL part..
Code:
'Duplicate the related records: append query.
If Forms!FRMREGISTERMain!frmJustSubRecordsDEPOSITS.Form.RecordsetClone.RecordCount > 0 Then
strSql = "INSERT INTO [tblSplits] ( TopLineID, TransDate, Memo, Category, SubCategory, Credit, Debit) " & _
[Code].....
As I'm still learning, am I right in thinking that I'll use SELECT and/or WHERE somewhere in there?
I want to find out the last 6 months date from todays date. So as todays date is 27th january 2015 so the code should give me the date which is 6 months back from todays date so it will be something like 27th July 2014.
I have a query where I display the [OPEN DATE] and [CLOSE DATE] of my cases. However, when I run this query sometimes the cases are not closed yet, therefore there are null values. However, I also have a field to calculate the datediff between these two dates. I need the [CLOSE DATE] field to display today's date when it is a null value so that I can still get a count of the days using datediff when I run the query.
Hi I have a form that I use to capture information. The "DateReceived" field prefills with todays date. I also have a "DateResolved" field that I would like to prefill with the current date, however that date would be different from the Date Received date. The reason for this is because user logs information then goes back into the form and closes the case by entering a Date Resolved. Thank you
Hi i know it is simple but can someone tell me how to work out an age of someone using their date of birth and the date now please. thanks i cannot remember the formula.
I have placed a calender object in Access 2003 on a form of mine and would like it to show the current date. Is there a way to set a default? IF it is code, where does it go?
I have a form that people have to fill in to report when someone is off sick.
The first notification they have is that the person is off sick - so they can only enter a start date on the form, and have to leave the end date blank
I want the end date to always be "today" - and to automatically update to "today" until an end date is entered by the user. To enter the end date, the user will go back to the original record where they put the start date in, and then enter the end date.
Any ideas... using date () will put today's date in, but then when I go in tomorrow, it will say yesterday's date...
In a query I am trying to return all dates (birth dates) within seven days either side of the current date. The properties of the field and the query are set to Medium Date and the criteria I am using in the query is:
Between Date()-7 And Date()+7
and returns nothing.
I have tried several options suggested in other threads without success. Access 2002 and Australian date format - 14-Sep-07
I have form which automatically takes a start value for today the fieldname is Date.
Now what I want to do is calculate the difference between Date and Today's date in days with 2 criteria's
Ist criteria will be choosing the field which has a boolean field named Was Issue Resolved and has value as Null or False and 2nd criteria will be to show only days with greater than 21 days
This is what I m trying to do
Expr3: DateDiff("d",[Date],[date()])
but gives me error on date() as it can't find this parameter
I tried this also: >=DateAdd("d",-21,Date())
But its not population difference between the Date and Today Date ...
Having issues with getting auto update of Yes/No field dependant on todays date.
When users open the form the code runs through and checks all entries and updates the records if either of the dates in two separate fields is less than today. The issue I have is when some users are already using this form a second user cannot open it. Error shows other user information as having the form locked and code halts at highlighted spot below. Is there another way of ensuring this field is updated to Yes or No if the date in the field is less than current date.
Code: Private Sub Form_Open(Cancel As Integer) Dim rst As DAO.Recordset Dim dbs As DAO.Database Set dbs = CurrentDb
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?
I've got a members table where my members pay an annual fee. The fee is paid 12 months on from when they originally registered. So, for example, 12 months from today, i would expect to pay my next annual fee.
Now, with different members registering at different times of the year, it isn't so straightforward. I would like my calculated field to indicate to me if a payment is required.Furthermore, I would like to include a '' date range '' so that the calculated field entitled ''Payment Required?'' shows yes for a fortnight. Here is my attempt at the expression which partially works:
PaymentRequired?: IIf((Format(Date(),"dd/mm")>= [RenewalDate] And Format(Date(),"dd/mm")<=[RenewalDateAdd14])Or ([Subscription Paid?]=0),"Yes","No")
i used the Format Date method. But i've got a case where someone is due to pay at the end of November...and today being teh 3rd of December.they should have a good few days yet to pay the fee (before teh aforementioned 14 days is up)
I'm using this control to allow users to select a date as input to a subform. The control is working just fine, but I have a problem, I need to reset the value to today on certain events (for instance a reset button to reset the values back to today). I have tried:
Me!calThru.Today and Me.calThru.Value = Date and calThru.Value = Date
I have a database which I've creating but now want to make others available to update - in the past this has not gone well! The database uses data from two excel sheets and the problem has been people do not always check if these have been updated today before running and therefore the database gets loaded with old data.I have found code that will check and display a message showing datelastmodified for a file but what i'm trying to find is code which will check both files' datelast modified, if they are modified today then run the update macro, if one or both are not modified today, then to display a message saying that the excel is not updated.
I have a report that have a datebox(Short date) and a timebox(Short time) and also a box that contains numbers like 36:59 and so on. That number is hours and minutes, I would like to take the date, time and add my 36:59 and get a new date from that and put that in another box. The date and time is used as planned date and planned time for some work to happen. 36:59+planned time+planned date=should be planned finishing date and time. Does anyone know what I have to do, to make this happen ???
I have table1 in my (Access 2010) database that has exising records. I have another table2 that after I run a query, it first deletes the data in table 2, then imports new records into that table. I run the import into table 2 on a semi regular basis but have yet to copy those records into table 1.
With that said, using either a query or VB, how do I copy all the (new) records from table 2 into table 1 without altering any records that already exist in table1?
BTW, Table 1 has a main form with a subform within it
What event would I attach code to, to have a message box pop up warning the user when that he is editing existing records.
I would like the message to appear not as the form loads, or as he tabs to the first control, but right as he makes any changes to the data displayed. Preferably the box should have a "OK" to continue the edit and a "Cancel" to undo it.
