When I click button I want to put todays date in textbox

[Ben2k]

Hi,

I have a form field like this

Label TextBox CommandButton

When I press the command button I want todays date to be inserted into the textbox.

So far i've tried getting the button to run a macro called GetTodaysDate

In the macro i've send it to RunCode, a function called FuncTodaysDate

This is where i'm stuck, where do I create the function and what code do I use?

Thanks

 

[Ziggy]

You can set the default value of the field (in table) or the forms control to put in todays date by puting in

Now()

but if you really want to use the button, here is one way:

double click the button and in the ONclick property activate the code builder by clicking the button with 3 dots.

Put in the following to match you control names:


Private Sub Command10_Click()

Text7.SetFocus

If IsNull(Me![Text7]) Then
'works also
'If Text7.Text = "" Then

todaysdate

End If

MsgBox "Field already filled", vbOKOnly

End Sub

Private Sub todaysdate()

Text7.Text = Now()

End Sub

 

[bat17]

Two comments here, it is probably better to use Date() rather than Now() as Now() is a Date/Time stamp and makes criteria like =#01/01/2004# a bit of a problem.

You can also add the date with the kb shortcut ctrl-;

HTH

Peter

 

[Ben2k]

Thanks guys, thats a great help. Its all starting to make sense now