changing a default value with a command button

[cayden2007]

I want to place a command button on a form and be able to change the default value of a field using the command button.

Is there an easy way to do this?

Please help.

Thanks,
Jerome

 

[MajP]

Private Sub Command11_Click()
 Dim strFormName As String
 Dim strDefault As String
 strDefault = InputBox("Enter default")
 strFormName = Me.Name
 DoCmd.OpenForm strFormName, acDesign
 Forms(strFormName).strLastName.DefaultValue = "'" & strDefault & "'"
 DoCmd.SetWarnings (False)
 DoCmd.Save acForm, strFormName
 DoCmd.OpenForm strFormName
End Sub

 

[MajP]

Opening in design view allows the change to be permanent. If the change is temporary then do not open in design just comment out this line
' DoCmd.OpenForm strFormName, acDesign

 

[cayden2007]

I am trying to figure out what I change in this code for it work for me.

I changed this line:

Forms(strFormName).strLastName.DefaultValue = "'" & strDefault & "'"

to

Forms(strFormName).strPayment.DefaultValue = "'" & strDefault & "'"[code]

I am getting this error:  Run time error 2465 - Application-defined or object defined error

What am I doing wrong?