OpenArgs Property

[JimP]

Can I use the OpenArgs property of DoCmd.Openform to set the DefaultValue of
a Control?

e.g.
DoCmd.OpenForm "MyForm",,,,,acDialog,"MyValue"

Private Sub Form_Open(Cancel As Integer)
Me!MyControl.DefaultValue = Me.OpenArgs
End Sub

This sets the value of MyControl to "#Name?", not "MyValue"

 

[Dirk Goldgar]

Can I use the OpenArgs property of DoCmd.Openform to set the DefaultValue
of a Control?

e.g.
DoCmd.OpenForm "MyForm",,,,,acDialog,"MyValue"

Private Sub Form_Open(Cancel As Integer)
Me!MyControl.DefaultValue = Me.OpenArgs
End Sub

This sets the value of MyControl to "#Name?", not "MyValue"

The proper format for the DefaultValue property depends on the data type of
the control. The safest way is to force it to a quoted
representation of a string literal. Try this:

Me!MyControl.DefaultValue = """" & Me.OpenArgs & """"

 

[fredg]

Can I use the OpenArgs property of DoCmd.Openform to set the DefaultValue of
a Control?

e.g.
DoCmd.OpenForm "MyForm",,,,,acDialog,"MyValue"

Private Sub Form_Open(Cancel As Integer)
Me!MyControl.DefaultValue = Me.OpenArgs
End Sub

This sets the value of MyControl to "#Name?", not "MyValue"

Use the form's Load event to make sure all the control's are in fact
loaded.
Also, the value must be a string, i.e. "Jones", so you need to
include the "s in the value, which in turn must be concatenated into
the expression.

If Not IsNull(Me.OpenArgs) Then
Me![MyControl].DefaultValue = """" & Me.OpenArgs & """"
End If