How to enter date automagically from calulated yes/no box?

[nickbarnes]

Hi,

Im an Access beginner and I really need some help setting a date field based on a whether a calculated tick box is true or false within a web database which will be stored on SharePoint.

I have 4 yes/no fields for users to tick when they have finished a part of a job:
AddressingComplete
EstimateComplete
PurchaseOrderComplete
TelemetryComplete
Once all of these are ticked, a calculated yes/no field "TasksComplete" changes to True.

Is it possible for me to have the field "ExchangeCompleteDate" automatically enter Date() when the "ExchangeComplete" box gets ticked?

Hopefully you get the jist of what Im trying to do!

Thanks for your help guys!

Nick

 

[Montez659]

I am not extremely knowledgeable about Sharepoint, but essentially, this is a calculation that should be done on the front end and not the back end anyways. Also, you say that a calculated field "TasksComplete" is Yes/No depending on the other 4 fields, correct? If so, are you storing this calculated value, because if you are you are really just storing redundant information and any queries based on whether that field of "TasksComplete" is true or not can be run just as easily checking all four of the fields that it depends on.

But anyways, I digress. Here is something that should help:

Private Sub myCheckBox_Click()
If Me.myCheckBox.Value = True Then
    Me.myDateField.Value = Date
End If
Me.Dirty = False
End Sub

 

[nickbarnes]

Thanks for your help, that worked perfectly!

How could I modify it so that if the box is unticked then the date also disappears?

Also, I get the first part of the code but what exactly does "Me.Dirty=False" do? Sorry Im an Access noob

Thanks again!

 

[Montez659]

How could I modify it so that if the box is unticked then the date also disappears?

Lol, I was thinking about including this but decided against it! A simple "Else" statement would fix that. Like this:

Private Sub myCheckBox_Click()
If Me.myCheckBox.Value = True Then
    Me.myDateField.Value = Date
Else
    Me.myDateField.Value = ""
End If
Me.Dirty = False
End Sub

As far as the Me.Dirty = False, "Dirty" means that the info loaded into the form has not been saved. Setting this property to false forces the save. Sometimes I come across code that executes and does something similar to what you are doing, but I also have other pieces of code taking place after it. This insures that the data is saved before continuing on with any of the other code.

 

[nickbarnes]

Again, just what I needed!

Thanks so much for your help and your quick response!