Assign and Clear Date values with check box

[JohnLanc]

I am trying to assign the current date to a field or clear the date from a field by clicking a checkbox. The problem I have is:

When I check the box I cannot get the date field to display the date (or clear it) until I click on it and the control won't allow me to use the "Setfocus" property to do this automatically.

The Code I am using:

Private Sub StepCredited_Click()
If StepCredited.Value = True Then
CreditDate.Value = Now
Else
CreditDate.Value = Null
End If
End Sub

I have tried using the requery command on the form but it say the field must be saved first!?

Any suggestions gratefully accepted!

 

[oharab]

I would use the AfterUpdate event of the checkbox:

Private Sub StepCredited_AfterUpdate()
If Me.StepCredited.Value = True Then
Me.CreditDate.Value = Date()
Else
Me.CreditDate.Value = Null
End If
End Sub

Let me know if that works.

Ben

----------------------------------------------
Ben O'Hara

http://www.RobotParade.co.uk

"Where are all the stupid people from...
...And how'd they get so dumb?"
NoFX-The Decline
----------------------------------------------

 

[JohnLanc]

Thanks Ben, but it still won't update the field until I click on it!

 

[JohnLanc]

Got it working:

Private Sub StepCredited_click()
If StepCredited.Value = True Then
CreditDate.Value = Now
Else
CreditDate.Value = Null
End If
Me.Requery
End Sub

 

[oharab]

Nice one! Not sure why that's need tho, it works fine on my test form!

Cheers

Ben

----------------------------------------------
Ben O'Hara

http://www.RobotParade.co.uk

"Where are all the stupid people from...
...And how'd they get so dumb?"
NoFX-The Decline
----------------------------------------------

 

[JohnLanc]

Thanks for your effort Ben