Auto date based on check box

[bkirsch]

I have a "Recevied" check box and a "RECEPTION_DATE" text box and I want RECEPTION_DATE to update when Received is checked and be null when it is unchecked...I assume the easiest way is to write the code for "on click" of "Received" but i cant seem to get it...


Any chance someone could quickly write the correct code for me?

Thanks

[Robeen]

I have this code behind a command button [cmdCheckedOr_Not]

You can put the code behind the On Click event of your check box - or in the On Lost Focus event of the check box.

 
Private Sub cmdCheckedOr_Not_Click()
 
If Received.Value = True Then
    RECEPTION_DATE.SetFocus
    RECEPTION_DATE.Text = "Put the Date you want here."
Else
    RECEPTION_DATE.SetFocus
    RECEPTION_DATE.Text = ""
End If
 
End Sub

Hope this helps.

[bkirsch]

This is what I entered into the on click code but it is returning an error...It says Invalid use of Null...?

Private Sub Received_Click()
If Received.Value = True Then
RECEPTION_DATE.SetFocus
RECEPTION_DATE.Text = "Now()"
Else
RECEPTION_DATE.SetFocus
RECEPTION_DATE.Text = "Null"
End If
End Sub

[Robeen]

Your Code 'looks' correct - but unless I have your db to look at - I can't tell you why you are getting the 'invalid use of Null' message.

Can you post your db here?

In my experience that has usually meant that there is something in the code that assumes there will be a value - but there is a Null instead.

By the way - do you really want to put the literal text "Now()" in that text box?
Or do you want to put the current system Date Time in there?

If you want just the Date - use
RECEPTION_DATE.Text = Date()

For Date AND TIME:
RECEPTION_DATE.Text = Now()

[bkirsch]

ok after playing with it I got it to work but I still get an error everytime that says the macro or function set to the beforeupdate or validationrule property for this field is preventing MS access from saving the data in the field....?


Private Sub Received_Click()
If Received.Value = True Then
RECEPTION_DATE.SetFocus
RECEPTION_DATE.Text = Now()
Else
RECEPTION_DATE.SetFocus
RECEPTION_DATE.Text = ""
End If
End Sub

[Robeen]

The validation rule message tells me you should look in either:
1. the design for the Table to which the field belongs or in
2. the Property Sheet -> Data Tab -> Validation Rule [or Input Mask???] for the text box on the Form.

one of those might have some kind of Validation set up.
If what you're trying to put in there [Now()] doesn't match the validation - then you might get that message.
In short - you're trying to put something in that text box or table field that is contrary to what it has been set up to receive.

I hope this helps!!

[ssanfu]

This is what I entered into the on click code but it is returning an error...It says Invalid use of Null...?

Private Sub Received_Click()
If Received.Value = True Then
RECEPTION_DATE.SetFocus
RECEPTION_DATE.Text = "Now()"
Else
RECEPTION_DATE.SetFocus
RECEPTION_DATE.Text = "Null"
End If
End Sub

You don't need to set the focus to the field.
You don't need ".VALUE". It is the default property.
The ".Text" property holds the uncommitted value. Not appropriate in this case.
You are trying to put the text string "Now()" into a date type field. (raises an error)


If [Received] is a boolean (Yes/No) type field in the table and [RECEPTION_DATE] is a date type field, try this code in the after update event of the [Received] check box:

Private Sub Received_AfterUpdate()
   If Me.Received = True Then
      'if you want only the date, use
      Me.RECEPTION_DATE = Date
      'if you want date and time, use
      '      Me.RECEPTION_DATE = Now()
   Else
      Me.RECEPTION_DATE = Null
   End If
End Sub

[bkirsch]

Awesome thanks so much.