Hi
I have 3 date fields. I am trying to work out number of days when
=[FIELD1 - FIELD2 OR FIELD3]
should do the calculation in field 4 NUMBER OF DAYS. but it comes up with date only. FIELD1 will always be filled, if field 2 is field then the number of days must be based on that. but if field2 is blank then it should be field1 - field 3. I may need a help on the formula does it need any if, else statement or not. If so can someone please help
I don't think the below code is right, is it close?
Code:
Option Compare Database
Private Sub Test_AfterUpdate()
If Me.Test = "LR" Then
Me.Due_Date Date = [Date Received] + 4
End If
End Sub
Just trying to add 4 days to a field. (the Date Received field is in the format m/dd AM or PM)
Anyone help please ? I'm still fairly new to ACCESS so forgive me if I'm completely on the wrong track !
I wish to add a control button to a form that will prompt me to enter a date and then calculate and display a date nn (fixed) number of WORKING days in the future.
I've seen some functions suggested in the forum and as I'm unfamiliar with this topic, I have tried putting together some code (see below) related to an On Click event for the button. I'm having syntax problems and have been battling away at this for some time without success.
Suggestions please !
Steve
Private Sub cmdDate_Click()
Dim FirstDate As Date ' Declare variables.
Dim Number As Integer
Dim dtEndDay As Date
Dim dtinterimday As Date
Dim intcount As Integer
Dim lnginterimdate As Long
Dim intdays As Integer
Dim Msg
FirstDate = InputBox("Enter a date - dd/mm/yy")
Number = 20
dtinterimday = FirstDate
intdays = Number
Do Until intcount = Abs(intdays)
If intdays > 0 Then dtinterimday = dtinterimday + 1 Else dtinterimday = dtinterimday - 1
lnginterimdate = dtinterimday
If WeekDay(dtinterimday, 2) <> 6 And WeekDay(dtinterimday, 2) <> 7 Then
intcount = intcount + 1
End If
End If
Loop
Msg = "New date: " & dtinterimday
MsgBox Msg
End Sub
I have a query and I need the records to display 3 working days before the 15 working day deadline.
I used the following in the criteria box below the received date field and it doesn't pull the correct number of workdays, it's pulling calendar days instead.
<=DateAdd("w",-12,Date())
Can anyone help, thanks for your time!!!
I have a query and I need the records to display 3 working days before the 15 working day deadline.
I used the following in the criteria box below the received date field and it doesn't pull the correct number of workdays, it's pulling calendar days instead.
<=DateAdd("w",-12,Date())
Can anyone help, thanks for your time!!!
i have a form where I enter two dates i.e. a commence day and a final day and I also have a save button.I would either
a. have a control on the save button which pops up a message if the final day is greater than the commence day and so preventing the save record
b. Or if the final day is entered and is recognised as a date before the commence day then to pop a message saying so and preventing the save record.
How 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 need to calculate the final date based on the begin date and the number of days.
The name of the fields are: sdatainicio; diasatribuidos; sdatafim.
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 have a form where the user enters a date into a field (box 1). Next they select a time frame in days from a drop down (box 2). What I want is for Access to take the date entered from box 1 add the number of days selected from box 2 and place the new (later) date into box 3. From there I can run simple queries. It's for a small data base to track the recall of pacemaker patients.
I enter their appointmet (today) date 1st box and then select whether they should return in 30, 90, or 180 days for a follow up 2nd box. When I choose the interval I want a 3rd box to automatically show their next appointment due date.
I am obviously not an Access expert and I think this should be simple. But 3 cups of coffee and 2 handfuls of my own hair have taken me further from a solution. THANK YOU for looking!!
Hi
I have two date fields.
I would like to lock the second one and make it reliant on the first one e.g. plus 13 days.
Can someone explain how i do this?
Thanks
Hi one and allI am basically trying to do what another member has detailed in this threadhttp://www.access-programmers.co.uk/forums/showthread.php?t=77802&highlight=add+dayswhere someone has suggested another link http://www.access-programmers.co.uk/forums/showthread.php?t=62570which the person states has solved the problem - however it seems this link is dead, perhaps as a result of the site hack.I am sure you can see my question coming like a rabbit in headlights - does anyone know how to do this?!?Basically, I want to add a certain number of days (as specified in a text box-(txtDaysToAdd)) to a date, where weekends and self defined holidays are excluded (I have already set up my tbleHolidays to enter such dates).Any ideas?Thanks in advance
View 3 Replies View RelatedHey guys,
I'm trying to pull data that has a due date within 30 days from the current date. I'm trying to use
WHERE x <= Now() + 30
but I'm getting incorrect records. Can someone please help me out? Thanks.
I want set two dates by vba but i don't no how to do it ... for more understand look the simple example
If Date = #12/20/2013# Then
MsgBox "Wrong", vbExclamation, "attention"
End If
But I want set date between two days for example like that
If Date = between #12/20/2013# and #12/20/2014# Then
MsgBox "Wrong", vbExclamation, "attention"
End If
Is it possible to make one column automatically count 21 days from the date of another column, and if so how?
View 1 Replies View RelatedI am trying to add a certain number of days onto a date field to create a due date within a Table but can't work out how to do it. I know that to add days on I can use the function DateAdd but the only way I can see how to do this is to create and update query to run and add the date on. Is there anyway that I can set the field to automatically update the due date dependent on the priority of the record e.g. immediate (1 day) standard (3 days) and request (28 Days)?
View 3 Replies View RelatedI need to find the LATEST date in field Recdate that is 45 days or older in a query. I have tried <Date()-45, etc. but it returns all dates not just the last one. Does this require a range of dates to do this ? If not, how would I id the last date input ?
Thanks
Is there a function in Access that will allow you to add business days to a date? I want to pull a date with a query and then add 5 business days to it to display in a report. Anyone know if this is possible?
Thanks.
In a query i have setup, i work out when a tenant is next due to pay their rent.
Looks like this
Tenant Last Payment Date Payment Terms Next Payment Date
User1 01/07/13 Monthly 01/08/13
User2 01/07/13 Weekly 07/07/13
The next payment date is calculated using an IF statement and DateAdd in the query, so if it is weekly it adds 7 days, if it is monthly it adds 1 month.
What i am trying to do is write sub query of this one which shows which tenants are due to pay within the next 7 days.
But the access query seems to ignore the criteria I'm putting in....in the next payment date criteria i have tried specifying >Now() + 7 or >Date() +7 but neither seem to work, it just shows up every record...
Hello,
I have two fields in a table, both containing dates. I would like to write a query that returns the difference between the dates in an year, month, day format (i.e. 26y 2m 3d). If that isnt possible, can the difference be returned as years,days (i.e. 26y 63d).
Thankyou.
i am trying to run a query from a form which will bring up the no of days difference between the start and end date also on the same form.
The query doesn't bring back any results can someone please guide in what i am doing wrong.
Here is the query
SELECT DateDiff('d',[start date],[end date]) AS [no of days]
FROM [booked property]
WHERE ((([booked property]![start date])=[forms]![booking]![booked property]![start date]) AND (([booked property]![end date])=[forms]![booking]![booked property]![end date]));
Thanks
Hi
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
Any advice would be appreciated.
Tks
Allan
At work I can enter +15 in a date field and it automatically sets the date 15 days after todays date. Our companies computer is operating on a ERP system. I would like to do that in an Access database I'm designing for a friend. Any hints.
View 2 Replies View RelatedI have a large database filled with customer records. Some customers come one time. Other customers come 50 times at year. I want to find all customers that have records that are less than 30 days apart so I can ultimately see the types of products they buy. How do I write the query?
I attached a picture of a sample database. The 30 day (+/-) field doesn't exist but I would like the query results to build it.
How to amend the below, so that instead of doing 4 days, it does 4 working days?
<=DateAdd("d",4,Date())
Ok, so I'm sure this is a pretty simple criteria, but I just can't seem to get the syntax right.
I'm trying to allow my user to select any start date and the query will return that date plus the next three days.