Button to fill txt box with "Now ()"

[viper]

I have a DB where I am issued badges to visitors with ID numbers, in my Event Table (This is where I'm capturing the In & Out data) I have my Out txt box with a default value of "Now ()" so that once a new record is created it uses the system clock to time stamp the out field the Date and Time it was issued. What I want to do is have a button to use the "Now ()" function and enter that text into the In field to time stamp when the badge was returned. I cannot set the In field with the default value of "Now ()" because when a new record is created it will put a time stamp in the In field, I need it to be blank until the badge is returned.



What I've tried is creating a macro; I use the SetValue function with the following parameters.

Item: [Forms]![EventTable]![TimeIn].[OnClick]
Expression: [Forms]![EventTable]![TimeIn]=[Now ()]

But I keep getting an error stating

"Visual Basic can’t' convert the data type of one of the arguments you entered. You tried to run a Visual Basic procedures that executes a method or sets a property of an object. Check the component's documentation for information on the properties and methods it makes available for Automation operations."

Any ideas?

Thanks

[SoftwareMatters]

Add a button to the form and then add an event procedure on the OnClick event. In Vb put something like this:

Me!TextboxName = Now()

[viper]

Works perfict!! thanks...