Impossible to select any value from the ComboBox

[GaioAugusto]

I need to synchronize combo boxes, so that when I select an item in the first combo box, the selection limits


the choices in the second combo box. I need to requery when I click in the second combo box (in the event was clicked for first) so I use the following code:


Private Sub Dettaglio_MouseDown


Posizione1 = Me.CurrentRecord
DoCmd.Requery
DoCmd.GoToRecord , , acGoTo, Posizione1
DoCmd.GoToControl "Dettaglio"
Me!Dettaglio = Me!Dettaglio.ItemData(0)


End Sub


The problem is that using this code become impossible select from the second combobox menu. Remain selectioned and blocked the first item. If I don't use the previous code become possible make a selection.

[amrut]

Use after update event.
See http://www.baldyweb.com/CascadingCombo.htm

[GaioAugusto]

Use after update event.
See http://www.baldyweb.com/CascadingCombo.htm

Same issue with update event, and same issue with this code too:

Private Sub Dettaglio_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)


Select Case [Forms]![Form]![Argomento]
Case "Capacità Razziali"
[Forms]![Form]![Dettaglio].RowSource = "Q Capacità Razziali"
Case "Dungeon Master"
[Forms]![Form]![Dettaglio].RowSource = "Dungeon Master"
End Select
Me!Dettaglio = Me!Dettaglio.ItemData(0)

End Sub

Thanks in advance

[GaioAugusto]

Use after update event.
See http://www.baldyweb.com/CascadingCombo.htm

Same issue with update event.

[GaioAugusto]

Solved: using GotFocus event instead of MouseDown event and using this simple code:

Private Sub Dettaglio_GotFocus()


Me.Dettaglio.Requery


End Sub