Propriedade Selected(0) e Index(0) não funcionam.

Bom dia amigos

Uma situação que deveria ser simples mas está dando uma baita dor de cabeça!

Possuo duas listbox, a segunda é alimentada automaticamente conforme a linha escolhida na primeira, até aí tudo perfeito. Porém, a segunda listbox já deveria vir com a primeira opção selecionada mas isto não está acontecendo, já tentei tanto com a propriedade selected(0) quanto com a propriedade index (0) mas nada muda.

Segue o código:

         Private Sub plano_AfterUpdate()
         Me.DURACAO.RowSource = "SELECT MESES FROM TBL_PLANO WHERE plano = '" & Me.PLANO & "'"
         Me.DURACAO.Selected(0) = True
         End Sub

Se alguém puder me dar uma luz, agradeço imensamente!

Access 2016.

Katia

Olá Katia,

Tente isso:

Private Sub plano_AfterUpdate()
Me.DURACAO.RowSource = "SELECT MESES FROM TBL_PLANO WHERE plano = '" & Me.PLANO & "'"
Me.DURACAO.Requery
Me.DURACAO.Selected(0) = True
End Sub


Boa sorte.

Olá

Pois é.... também não funcionou!
Não aparece nenhuma mensagem de erro, mas também não aparece selecionado o primeiro item.

Katia

Katia,
Se possível, disponibilize uma cópia do teu db, somente partes envolvidas, para analisarmos.
Grato.

[]'s

Segue o arquivo com as combobox que não focam....