[Solved] Default date field to today with macro

[contremaitre]

Hi,

I spent hours searching in google how to set today date in a form with a macro and couldn't find a solution (the only solution given was to add a SQL command to default new record but it's not working when the date field is not attached to a table row)
So I thought I would share mine here, hope this is a good place.

- Create a macro like :

Code: Select all

Sub SetDate (oEvent As Object)
	oForm = oEvent.Source
	oForm.getByName("inputDate").Text = Date()
End Sub

Call this macro on "loading" event of the form containing the input date.

[F3K Total]

Hi,
if you just want to display todays date, you can do it without a macro, by using e.g. this SQL Command as form content:

Code: Select all

SELECT CURRENT_DATE CD FROM INFORMATION_SCHEMA.SYSTEM_TABLES WHERE TABLE_NAME = 'SYSTEM_ALIASES'

See attached example. Note, that where using an already existing table from INFORMATION_SCHEMA to display CURRENT_DATE within a formatted field.
R
EDIT: Villeroys solution, see next post, is once more much easier. For tryout, I added it to the example file.

[Villeroy]

Hi,
... (the only solution given was to add a SQL command to default new record but it's not working when the date field is not attached to a table row)

In that case you can simply use menu:Insert>Fields>Other , tab "Document" Date (not the fixed one).

[contremaitre]

Thanks, but it seems your solutions can only display the date.
I need a field where the user can change it, maybe I was not clear enough in my original post.