Default Value for Cascading Combo Box

[P5C768]

I have 2 combo boxes, one of which is populated by the result of the other. In some cases, there is only one possible selection in the combo box dropdown, based on the selections.

I would like to have the combobox automatically show the single selection, if there is only one possible option. However, if the result of the first selection allows for more than one option in the second combo box, I would like it to remain balnk and let the user choose the result.

Any help?

[pbaldy]

This type of thing:

  If Me.cboCities2.ListCount = 1 Then
    Me.cboCities2 = Me.cboCities2.ItemData(0)
  End If

[P5C768]

Thanks Paul, this works for the 2nd combo box in my set, but the third one that is cascading from the first two no longer requeries after updated and won't go to the default value. Thoughts?

Here is the code:

Private Sub CboCname1_AfterUpdate()
CboPtype1 = vbNullString
CboPtype1.Requery
If CboPtype1.ListCount = 1 Then
CboPtype1 = CboPtype1.ItemData(0)
End If
End Sub

Private Sub CboPtype1_AfterUpdate()
cboRfreq1 = vbNullString
cboRfreq1.Requery
If cboRfreq1.ListCount = 1 Then
cboRfreq1 = cboRfreq1.ItemData(0)
End If
End Sub

[pbaldy]

No longer works implies that it did at one time? Did something in the query change? I'd double check that the query criteria is correct. Can you post the db?