OpenArgs Problem: Error 438

[SwaziMan]

Private Sub Form_Load()


If Len(Me.OpenArgs & "") > 0 Then
Me![QstnID].DefaultValue = Me.OpenArgs
End If
End Sub

I keep getting an error 438

Object doesn't support this property or method

[RuralGuy]

Try:
Me.QstnID.DefaultValue = Chr(34) & Me.OpenArgs & Chr(34)

[boblarson]

If RG's reply doesn't work, I am thinking that it is trying to set the default of the field instead of control which won't work. So use the dot instead of the bang:

Private Sub Form_Load()
If Len(Me.OpenArgs & vbNullString) > 0 Then
   Me.QstnID.DefaultValue = Me.OpenArgs
End If
End Sub