Varios Dados Em Um Combo


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Varios Dados Em Um Combo

ventana

SANTOS
SP - BRASIL

Postada em 30/03/2006 13:18 hs

Ola Amigos

Alguem teria uma rotina que exibisse varios dados em um Combo.Da seguinte forma:

Eu seleciono um tem do Combo, o Nome de uma pessoa por exemplo e desa forma, o Combo me exibira outros dados da mesma, como endereco,cidade,estado,telefone etc.

Ou seja, preciso de um combo que exiba multiplas informacoes.

Obrigado a todos

>>|Bedin|<<

SANTO ANDRE
SP - BRASIL

Postada em 30/03/2006 14:46 hs

No módulo:

Sub CARREGA_SIGCLI(FORMU As Form)
AXSQL = "SELECT SIGCLI AS A FROM CLIENTE" 'REFERENTE A TABELA CLIENTE
Set MSS = DB.OpenRecordset(AXSQL)
While Not MSS.EOF
FORMU.SIGCLI.AddItem MSS("A") 'REFERENTE AO FORMULÁRIO
MSS.MoveNext
Wend
End Sub

Sub CARREGA_USUIP(FORMU As Form, SIGCLI As String)
AXSQL = "SELECT USUIP AS B FROM IP WHERE SIGCLI='" + SIGCLI + "'"
Set MSS = DB.OpenRecordset(AXSQL)
While Not MSS.EOF
FORMU.USUIP.AddItem MSS("B")
MSS.MoveNext
Wend
End Sub

No form:

no evento _Click() do seu combobox digite:
Call combobox1_LostFocus

.:Rodrigo Bedin:.

ventana

SANTOS
SP - BRASIL

Postada em 01/04/2006 17:17 hs

Obrigado Bedin, eu vou experimentar.

Um Abraço

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR