PESQUISAR COM UMA COMBOBOX
eu quero uma pesquisar quando eu selecio um item na comobox
aparece o resutado em uma text
aparece o resutado em uma text
Existem duas formas, ou você escolhe pelo texto que é mostrado na combo, ou pelo código do item que é mostrado na combo.
Se for pelo texto, faça assim:
Dim sql as String
sql = "SELECT * FROM SuaTabela WHERE SeuCampo = '" & Me.cboCombo.List(Me.cboCombo.ListIndex) & "' "
Agora, se for pelo código do item, vai depender de como você está carregando a combo, eu utilizo assim:
carrego o recordset e preencho a combobox assim, atribuindo o ItemData
With rs
Do Until .EOF
With Combo37
.AddItem rs("nome")
.ItemData(.NewIndex) = rs("codigo")
End With
.MoveNext
Loop
.Close
End With
E na consulta, você acessa o código assim:
sql = "SELECT nome FROM SuaTabela WHERE codigo = '" & Me.cboCombo.ItemData(Me.cboCombo.ListIndex) & "' "
Segue esse link, para ajudar também:
Ajuda com ComboBox
Se for pelo texto, faça assim:
Dim sql as String
sql = "SELECT * FROM SuaTabela WHERE SeuCampo = '" & Me.cboCombo.List(Me.cboCombo.ListIndex) & "' "
Agora, se for pelo código do item, vai depender de como você está carregando a combo, eu utilizo assim:
carrego o recordset e preencho a combobox assim, atribuindo o ItemData
With rs
Do Until .EOF
With Combo37
.AddItem rs("nome")
.ItemData(.NewIndex) = rs("codigo")
End With
.MoveNext
Loop
.Close
End With
E na consulta, você acessa o código assim:
sql = "SELECT nome FROM SuaTabela WHERE codigo = '" & Me.cboCombo.ItemData(Me.cboCombo.ListIndex) & "' "
Segue esse link, para ajudar também:
Ajuda com ComboBox
Pega meu exemplo aqui.
Tópico encerrado , respostas não são mais permitidas