PEGAR VALOR NO COMBOBOX

NEGRON 05/10/2009 20:28:54
#324512
Boa noite Galera!!!!!

Galera é o seguinte...
criei um sistema onde tem uma combobox, que é alimentada indexando o código do banco de dados
veja o código abaixo

  Public Function ENCHERPROPCOMBO(COMBOPROP As Object) As Boolean
    ENCHERPROPCOMBO = False
    Set TABPROPRIETARIO = New ADODB.Recordset
    TABPROPRIETARIO.CursorLocation = adUseClient
    TABPROPRIETARIO.Open [Ô] SELECT CODIGOPROP,NOMEPROP,ENDERECOPROP,NUMEROPROP,BAIRROPROP,CIDADEPROP,CEPPROP,UFPROP,ESTCIVILPROP,NASCIMENTOPROP,CPFPROP,RGPROP,FONE1PROP,FONE2PROP,EMAILPROP from PROPRIETARIO[Ô], CONECTABANCO
    If Not TABPROPRIETARIO.EOF Then
        If Not TABPROPRIETARIO.EOF Then
            COMBOPROP.Clear
            Do While Not TABPROPRIETARIO.EOF
                COMBOPROP.AddItem (TABPROPRIETARIO.Fields([Ô]NOMEPROP[Ô]))
                COMBOPROP.ItemData(COMBOPROP.NewIndex) = TABPROPRIETARIO.Fields([Ô]CODIGOPROP[Ô])
                TABPROPRIETARIO.MoveNext
            Loop
        End If
    End If
    ENCHERPROPCOMBO = True
    TABPROPRIETARIO.Close
    Set TABPROPRIETARIO = Nothing
End Function

até aqui tudo bem
a minha dúvida é a seguinte....
gostaria que o formulário quando aberto já preenchesse o combo com um nome especifico
mas quando faço dá errado, por ter sido feito dessa forma
Qual é a forma correta de se fazer isso... já que não utilizo o indice do combo mas sim o código do cliente ???
Agradeço Galera!!!!!!!!!!!
MARCELO.TREZE 05/10/2009 20:40:46
#324513 Resposta escolhida
não entendi de um exmeplo de como vc gostaria que a combo carregasse, pois está certissimo o código acima
NEGRON 05/10/2009 21:14:16
#324516
MARCELO-TREZE
seria tipo assim

comboprop.listindex=10

vamos supor que a combo foi preenchida com os dados abaixo

codigo nome
059 Maria Betania
0456 Renata Banhara
aí eu queria que quando eu abrisse o formulario aparecesse o nome da Renata Banhara

ai eu coloco assim
comboprop.listindex= 0456, mas num dá certo... porque o combo vai pegar o indice que no caso é de
0 para maria betania
1 para renata banhara

ficou claro
é isso que não consigo fazer, ou seja, colocar o codigo da pessoa na rotina comboprop.listindex= 0456
MARCELO.TREZE 05/10/2009 21:39:04
#324518
colega fiz um POG pra resolver o problema veja

For f = 0 To Combo1.ListCount
If Combo1.ItemData(f) = 0456 Then
Combo1.ListIndex = f
Exit For
End If
Next f


a funçõ acima agirá como se fosse um Combo1.ListIndex = 0459 funcional

veja se ajuda
TECLA 05/10/2009 21:40:18
#324519
Já tentou assim?

Combo1.Text = [Ô]Renata Banhara[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar