autofill combo if only one option

[Adam]

I have what seems to be an easy question.

I have a form with multiple combo boxes. For a few selections, the remaining
always have one choice left but you still have to click the drop down on the
combo box to select it.

How can i get the form to auto-complete the combo boxes that have only one
option left?

thanks in advance.
Adam

 

[Ron2006]

Are the combo boxes Cascading?

 

[Douglas J. Steele]

In code, you'd have to recognize that there's only a single row and then
select that row.

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

 

[Marshall Barton]

I have what seems to be an easy question.

I have a form with multiple combo boxes. For a few selections, the remaining
always have one choice left but you still have to click the drop down on the
combo box to select it.

How can i get the form to auto-complete the combo boxes that have only one
option left?

The code could be like:

If Me.somecombo.ListCount = 1 Then
Me.somecombo = Me.somecombo.ItemDate(0)
End If

Where you put that depends on the details of what you are
doing with your combo boxes and data entry scenarios.

 

[Arvin Meyer [MVP]]

If there's only 1 item, you only have to set the focus to that combo to get
its value.

Me.cboWhatever.SetFocus
Debug.Print cboWhatever

 

[Adam]

I am somewhat new to Access, but yes i think they are cascading.

I have 13 combo's, and going in order (1-13) you choose something and it
filters the next combo to fit what was chosen in the previous.

I tried the:
If Me.Combo1.ListCount = 1 Then
Me.Combo0 = Me.Combo0.ItemData(0)
End If

but had no luck. any other ideas?

 

[Adam]

Thanks Arvin, the GotFocus thing made it work.

If there's only 1 item, you only have to set the focus to that combo to get
its value.

Me.cboWhatever.SetFocus
Debug.Print cboWhatever
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

 

[Arvin Meyer [MVP]]

That would be SetFocus, GotFocus is an event property.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com