Set text entered into a form textbox as default value

[iojbr]

Hi:

How do I use vba to set the current text entered into an unbound form's textbox (txt1) as that control's default value so when I close and open the form again, that value will be the one appears in that textbox. I tried using the after update property of the textbox in question, and using Me.txt1.default Value = Me.txt1.text, but it's not working. Thanks.

 

[dhookom]

The only way the default value will stick is if your form is saved while in design view. You could also use code to save the default to a table and then retrieve the value when the form opens.

Private Sub Form_Open(Cancel As Integer)
   [COLOR=#4E9A06]'assuming txt1 is a string value[/color]
    Me.txt1.DefaultValue = """" & DLookup("Default", "tblDefaults", "FormName = 'MyFormName' AND CtrlName='txt1'") & """"
End Sub

Duane
Hook'D on Access
MS Access MVP