How to set a table field to date by year?

[Collins]

If Me.control.DefaultValue = "" Then
Me.control.DefaultValue = Me.control


Else
Me.control.DefaultValue = ""
End If

Maybe use a Toggle button instead of Command button.

If Me.toggle Then
Me.control.DefaultValue = Me.control
Else
Me.control.DefaultValue = ""
End If

This is awesome June thanks... But I am trying to learn VB so as I see code I'm trying to understand what I'm looking at. So I get the if statement. But I'm fuzzy on the "ME" statement. Where does ME come from? How do I know when I'm writing code that I have to use ME? I then get the Toggle. That's the action and I get the Then statement. But I'm stuck on the ME again and what control "control" is referencing. But Default Value is the value placed in the field at the time this event is run so I kinda get that. And then I get the Else statement and the to leave the field empty with the "".

Correct?

[June7]

Me is shorthand reference for the form or report the code is behind.

Control and toggle would be the names of controls. So replace with the actual names of your controls.

[Collins]

Me is shorthand reference for the form or report the code is behind.

Control and toggle would be the names of controls. So replace with the actual names of your controls.

So as long as the code resides in a particular form or report I can refer to it as ME. Is that what you're saying?

And control is the name of what ever control I'm going to use. Toggle, Button, Radio. Located right after SUB... Right? Like Sub Toggle1_Click()

[June7]

Yes, sounds like you get it.

Suggest you assign more meaningful names, like: tglSetDate

[Collins]

Yes, sounds like you get it.

Suggest you assign more meaningful names, like: tglSetDate

So it would read like this:

If Me.tglSetDate Then
Me.tglSetDate.DefaultValue = Me.tglSetDate
Else
Me.tglSetDate.DefaultValue = ""
End If

[June7]

No, you don't set DefaultValue of toggle.

You want to set the default of textbox or combobox. Control is reference to that data control. See my example again.

[Collins]

No, you don't set DefaultValue of toggle.

You want to set the default of textbox or combobox. Control is reference to that data control. See my example again.

Private Sub Toggle18_Click()

If Me.toggle Then - So this toggle name does not change.
Me.control.DefaultValue = Me.control
Else
Me.control.DefaultValue = "" - but these controls would be Toggle18?

End If

End Sub

[June7]

Toggle would be Toggle18 or tglSetDate or whatever you name the toggle button.

Control would be Combo1 or Text1 or cbxDate or tbxDate or whatever you name the data control.

[Collins]

Gotcha... Man... I'm starting to think i'm not cut out to be a programmer...

[Collins]

So this???

Private Sub tglSetDate_Click()
If Me.tglSetDate Then
Me.tbxDate.DefaultValue = Me.tbxDate
Else
Me.tbxDate.DefaultValue = ""
End If
End Sub

[June7]

Yes, that should do it.

[Collins]

Yes, that should do it.

LOL...OMG!!! Finally!!!

Thanks for your patients June... I appreciate it...

[June7]

Oops, I was wrong - Toggle button does have Default Value property. It can be bound to a Yes/No field and serve as a data control. (corrected my earlier posts)

Command button does not have Default Value property.