combo box won't select

[qwertyjjj]

I have some combo boxes on a form with values that I have typed in directly.
I would like the user to click on these and the option selected will dynamically change a resultset.
Unfortunately, when I click on the combobox, the optionsare displayed, but clicking on each of the options doesn't do anything... i.e. the option does not become selected.

Am I missing a setting somewhere ?

 

[RuralGuy]

Is your ComboBox bound (has a ControlSource)? Is your form's RecordSource updateable?

 

[qwertyjjj]

The combobox is unbound - it is being populated directly from a VBA SQL query.
The Forms recordsource is not updateable - I have set deletions, additions, edits, etc. to No.

 

[RuralGuy]

I have some combo boxes on a form with values that I have typed in directly.

The combobox is unbound - it is being populated directly from a VBA SQL query.

OK, you have succeeded in confusing me. These two quotes seem to be in opposition to one another.

 

[qwertyjjj]

Right sorry.
When I wrote the original message I hadn't yet coded for the SQL.
But now it is definitely being populated from some VBA SQL.
Same problem however! The drop down works but I cannot select anything.

 

[RuralGuy]

There are a lot of things at work here. I would start by creating another ComboBox that does the same thing and see if the results are the same. What is your RowSourceType set to?

 

[qwertyjjj]

Row SOurce Type is Table/Query

 

[RuralGuy]

Does a new Wizard created ComboBox act the same?

 

[qwertyjjj]

Yeah, it was created with the wizard.
I tried one without and the same problem.

 

[qwertyjjj]

any ideas on what to try next? I'm stuck.
On a new form, a combo box works correctly and I can select values. Just not on my current form

 

[qwertyjjj]

I am using this to populate the combo boxes:
Private Sub Form_Load()
DoCmd.Maximize

combo_DivLevel.RowSource = "SELECT DISTINCT [Div Level] FROM Structure WHERE DivisionID = 3"
'combo_DivLevel.DefaultValue = combo_DivLevel.
combo_BusinessLevel.RowSource = "SELECT DISTINCT [Bus Unit Level] FROM Structure WHERE DivisionID = 3"
combo_RegionalLevel.RowSource = "SELECT DISTINCT [Regional Level] FROM Structure WHERE DivisionID = 3"
combo_CostCentreLevel.RowSource = "SELECT DISTINCT [Cost Centre] FROM Structure WHERE DivisionID = 3"

End Sub

 

[RuralGuy]

Sorry but I'm out of ideas for now.

 

[cubbyamber]

One thing that I have found in my database creation endeavors is that if you have the allow edits set to no then you can not pick the option in the dropdown box. So try setting allow edits to yes and see if that works for you.

Tracy