Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia galera,
Estou desenvolvendo um banco de dados aqui, porém estou com problemas no campo de pesquisa do form (que usa uma consulta SQL, abaixo vem a imagem de como está o formulário:
Então...
"Buscar por:" o nome do campo é: cb_tipo
"Procurar: " o nome do campo é: txt_busca
"Resultados:" o nome do campo é: lst_result
No evento OnChange do campo txt_busca tenho a seguinte rotina:
Private Sub txt_busca_Change()
Dim tipo As String
tipo = Me.cb_tipo.Value
If tipo = Null Then
MsgBox "Erro, selecione o filtro de busca 'buscar por' antes de digitar um nome.", vbCritical, "Erro na pesquisa"
Else
If Me.txt_busca.Value = "" Then
Me.lst_result.RowSource = ""
Else
Me.lst_result.RowSource = "SELECT dados_pessoais.*, dados_cobrança.* FROM dados_pessoais INNER JOIN dados_cobrança ON dados_pessoais.CPF = dados_cobrança.CPF WHERE dados_pessoais." & tipo & " like '" & Me.txt_busca.Value & "*'"
End If
End IfAlguém poderia me dar uma luz????
Desde já, muito obrigado desde já.
[]s.
Carregando comentários...