Assigning value to combo not working

[GraeagleBill]

I have a form where under certain conditions I need a combo box pre-selected. I thought my OPEN code would do that trick, but no. What am I missing?

If IsNull(Me.OpenArgs) Then
    Me.cmbGroups.DefaultValue = "[cmbGroups].[itemdata](0)"
Else
    Me.cmbGroups.Value = Me.OpenArgs
End If

[ranman256]

you cant put quotes around a form object, it wont resolve, so try:

Me.cmbGroups= cmbGroups.itemdata(0)

[GraeagleBill]

Oops! That statement is older than I am . I've removed the quotes.

However, the OP has to do with the use of an combo item value passed to the form in OpenArgs where I want to set the combo accordingly when the form opens. I.e., have the OPEN code behave as though the user has already selected the value from dropdown and pressed enter. (I'll probably also need to call the After_Update event code to trigger the corresponding action)

[Welshgasman]

I would have thought you would need the load event, before any data was available?

[GraeagleBill]

Yes, that was one of my thoughts as well.

   If Not IsNull(Me.OpenArgs) Then _
        Me.cmbGroups = Me.OpenArgs

In the OnLoad didn't seem to have any effect on the initial conditions of the receiving form.

[moke123]

Me.cmbGroups.DefaultValue = "[cmbGroups].[itemdata](0)"

Try .value instead of .defaultvalue.

[GraeagleBill]

I'm not trying to set the default value, just effectively pre-select a value when a form opens/loads.

[GraeagleBill]

In the OnLoad event:

   If Not IsNull(Me.OpenArgs) Then
        Me.cmbGroups.SetFocus
        Me.cmbGroups.Text = Me.OpenArgs
   End If

Problem solved.

[Welshgasman]

I'm not trying to set the default value, just effectively pre-select a value when a form opens/loads.

Well, that is not what your code was showing?

[Micron]

I've read this at least twice and am not sure if it's solved or not. Why not just like this?

Private Sub Form_Load()
If Not Isnull(Me.OpenArgs) Then Me.cmbName = Me.OpenArgs
End Sub

EDIT - so I missed the line "problem solved" but at least I know that what I posted works. Not sure why the set focus and text thing should be necessary. I don't see that it matters if you use the load event because you don't need data in the form if the combo value is governed by the open args property. Oh well...

[GraeagleBill]

I reverted my code, as I once had it, back to what you suggest and my form opens WITHOUT the OpenArgs appearing as being selected. The intent is to make the form, when opened, appear as though the user has already dropped the combo and selected the item that was passed in OpenArgs.

Private Sub Form_Load()
   If Not IsNull(Me.OpenArgs) Then Me.cmbGroups = Me.OpenArgs
       ' Me.cmbGroups.SetFocus
       ' Me.cmbGroups.Text = Me.OpenArgs
   'End If

[Micron]

my form opens WITHOUT the OpenArgs appearing as being selected.

Don't know what to tell you then except that it works for me.

Private Sub Command15_Click()
DoCmd.OpenForm "form2", , , , , , 1236

[Welshgasman]

I reverted my code, as I once had it, back to what you suggest and my form opens WITHOUT the OpenArgs appearing as being selected. The intent is to make the form, when opened, appear as though the user has already dropped the combo and selected the item that was passed in OpenArgs.

Private Sub Form_Load()
   If Not IsNull(Me.OpenArgs) Then Me.cmbGroups = Me.OpenArgs
       ' Me.cmbGroups.SetFocus
       ' Me.cmbGroups.Text = Me.OpenArgs
   'End If

Have you tested that you have a value in OpenArgs?
Is the parameter correct in the open form?

[GraeagleBill]

Have you tested that you have a value in OpenArgs?
Is the parameter correct in the open form?

Yes, those kinds of tests are among the first when intended behavior fails.

[Welshgasman]

Yes, those kinds of tests are among the first when intended behavior fails.

You say that, but you'd be surprised at the number of people who do not even do that.