DefaultValue

[hqengint]

I have a form that has a text box that contains a date. When I push the 'UpdateDate' button I would like to change the default value of the text box to the current date. This I can do, but the default value is not saved the next time I open the form. Rather, it resorts to the original default value. How can I perminately save a change in a text box? My code follows:

Private Sub UpdateDateCommand_Click()
ModifiedDate.DefaultValue = Date
DoCmd.Close acForm, "FileSearch"
End Sub

 

[Travis]

Set the Default to a Function that Retrieves the value stored in:

1. A Single Record Table
2. The Registry
3. An INI File