In Access, VB, I am needing help with a IF/THEN scenario involving dates.

Anonymous

I have a form that I use for task scheduling and keeping track of dates when I performed that task. It is a simple form where I have a "STATUS" field combo box with "Not Started" and "Completed" for source options. Also, in the sourced table, I have columns identified for each of the four quarters in the year. I need help with the code that, if "STATUS" is selected "Completed", and today is, for example, is in the second quarter of this year, THEN enter "TODAYS DATE" in the "Quarter2" field.

Thanks,

Jeff Bomberger

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

Anonymous

I think you need something like

DIM Q AS BYTE
Q = DatePart("q", Date()) 

If Q = 1 Then CompletedDate1 = Date() 
If Q = 2 Then CompletedDate2 = Date() 
If Q = 3 Then CompletedDate3 = Date() 
If Q = 4 Then CompletedDate4 = Date()

0 comments

11 additional answers

Anonymous

2025-05-27T15:59:14+00:00

Then show the code........
Was this answer helpful?

0 comments No comments
Anonymous

2025-05-27T15:52:04+00:00

I need to store multiple dates in the table is the reason for the 4 fields. I have a task that is completed every quarter, and I need to know the exact date in that quarter that I completed that task. I tried to use a "IF NULL" or "BLANK" Then Else statement, but it did not work right...

Thanks,

Jeff
Was this answer helpful?

0 comments No comments
Anonymous

2025-05-27T15:30:44+00:00

I am not very happy with the 4 fields. Once you have a date, the quarter is derived data.

Maybe you can just store the date in a field (DateCompleted). If you want to show the quarter, use the DatePart function to calculate the quarter. There is no need to store that.

Look HERE
Was this answer helpful?

0 comments No comments