MANTER ITEM SELECIONADO NO COMBOBOX
Boa Tarde Amigos
Tenho um problema nos meus ComboBox.Se eu tenho um item ja sendo exibido nele, quando eu clico no Combo, o item que estava selecionado deixa de estar.Eu apenas clico mas nao seleciono.
Logo eu gostaria que o item ja selecionado, continuasse selecionado, uma vez que eu apenas cliquei mas nao selecionei nada.
Obrigado e um Abraço
Tenho um problema nos meus ComboBox.Se eu tenho um item ja sendo exibido nele, quando eu clico no Combo, o item que estava selecionado deixa de estar.Eu apenas clico mas nao seleciono.
Logo eu gostaria que o item ja selecionado, continuasse selecionado, uma vez que eu apenas cliquei mas nao selecionei nada.
Obrigado e um Abraço
talvez posa ser isso vá nas propiedades da combobox e procure [Ô]STYLE[Ô] selecione a opção ( 2 - Dropdown List)
Por acaso você não está mudando a seleção da Combo em algum dos eventos dela? (Click, GotFoucus)
Dê uma verificada.
Caso não ache, crie uma nova ComboBox, só adicionando alguns itens nela. Isso só para fazer um teste se ocorrera também.
Dê uma verificada.
Caso não ache, crie uma nova ComboBox, só adicionando alguns itens nela. Isso só para fazer um teste se ocorrera também.
Muito obrigado por sua ajuda amigos (JAMESBOND007 e )
Mas infelizmente nao funcionou.
Continuo tentando
Um Abraço
Mas infelizmente nao funcionou.
Continuo tentando
Um Abraço
posta o form ai
pra ver o que ta conteceno
pra ver o que ta conteceno
Primeira coisa vc tem que ver e o seguinte.. vc trabalha com DAO ou ADO? e verifique o codigo para ver.. se voce fizer igual a mim.. por exemplo.. eu faço a leitura das informaçoes para preencher o combo, ele sempre vai mover para ultima linha da combo se abrir o mesmo.. olhe o codigo.
Private Sub txtBairro_GotFocus()
On Error GoTo ErrorLine
Set rsEnder = New ADODB.Recordset
rsEnder.Open [Ô]Select endbairro from cadpessoasendereco group by endbairro order by endbairro[Ô], Conexao, adOpenStatic, adLockReadOnly
txtBairro.Clear
rsEnder.MoveFirst
Do While Not rsEnder.EOF
txtBairro.AddItem IIf(IsNull(rsEnder!endbairro), [Ô][Ô], rsEnder!endbairro)
rsEnder.MoveNext
Loop
rsEnder.Close
ErrorLineExit:
Exit Sub
ErrorLine:
If Err.Number = 3021 Then
Resume Next
Else
MsgError
Resume ErrorLineExit
End If
End Sub
Tópico encerrado , respostas não são mais permitidas