MANTER ITEM SELECIONADO NO COMBOBOX

SIDSIL 17/08/2010 15:11:42
#350532
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
JAMESBOND007 17/08/2010 15:14:49
#350534
talvez posa ser isso vá nas propiedades da combobox e procure [Ô]STYLE[Ô] selecione a opção ( 2 - Dropdown List)
JONATHANSTECKER 17/08/2010 15:16:52
#350535
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.
SIDSIL 17/08/2010 18:43:34
#350558
Muito obrigado por sua ajuda amigos (JAMESBOND007 e )

Mas infelizmente nao funcionou.

Continuo tentando

Um Abraço
GERARDA 17/08/2010 19:02:29
#350559
posta o form ai

pra ver o que ta conteceno
XXXANGELSXXX 18/08/2010 01:05:58
#350571
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