[Resolvido]Pesquisar BD por meio de combos diferentes

Boa tarde sabios amigos do forum!

Eu tenho um formulario desvinculado com um botao de pesquisar que habilita uma combobox para localizar registros pelo nome cadastrado no BD. Esse metodo eu peguei aqui mesmo no forum, e é de autoria do JPaulo, e diga-se de passagem é muito util nos projetinhos que desenvolvi. Mas eu gostaria de saber se é possivel criar mais 2 botoes e 2 camobos, pra que eu possa pesquisar por CPF e Apelido tambem. No caso a pesquisa seria por Nome ou Apelido ou CPF. Podem me ajudar?

Certo de sua ajuda e apoio agradeço antecipadamente


Leonardo

Eu tenho um exemplo disto que voce quer mas esta na empresa, é fim de semana e só volto trabalhar na quarta, mas achei em outro forum esta solução exemplo testa ai...

WHERE RG like *" & me.txtValorAPesquisar.value & "* OR Nome like *" & me.txtValorAPesquisar.value & "*"


Boa sorte

Oi Scandinavo, como vai?

O meu maior problema nesse caso que voce apresenta seria a correta digitação dos valores a serem pesquisados, por isso sempre opto pela combo box, a fim de selecionar o valor a ser pesquisado por meio dela. Eu agradeço muito sua atenção e agradecerei mais uma vez se voce publicar o exemplo que voce tem no seu trabalho pra ver se posso adequa-lo ao meu projeto. Grande abraço!

Leonardo

Pesquisa tudo o que escrever na caixa superior.

Nome,,, Nº Utente,,,, Data de Nascimento

Leonardo
Ajudou ?

Oi Assis, boa tarde. Usei seu modelo em um outro modulo do meu projeto, é de fato muito util, mas para o modulo de pesquisa de registros que eu estou criando eu preciso mesmo de um conjunto de controles grupo de opçoes com os item "Nome", "Apelido" e "CPF", alem de um botão que habilite uma combo a pesquisar os registros nos campos de mesmo nome dos itens acima, de acordo com o que for selecionado. Tem algum modelo nesses moldes? Agradeço muito sua atenção e ajuda

Leonardo

Alguns exemplos.

Boa sorte

Amigos, agradeço pela boa vontade mas ainda não é isso...deixem-me explicar de outra forma. Eu tenho um banco de dados com um formulario desvinculado onde eu posso localizar registros por meio de uma combo que carrega os nomes de todos os registros. Funciona perfeitamente. Mas eu gostaria de criar uma forma de pesquisar, por meio de outra combo ou dessa mesma, registros pelos campos "Apelido" ou "CPF". Teria então tres formas de procurar os registros, por Nome, Apelido ou CPF, sendo um ou outro. Segue o codigo que eu estou usando cujo autor é o mestre JPaulo:

Código:


Private Sub con_AfterUpdate()
'By JPaulo ® Maximo Access
On Error Resume Next
Me.con.visible = False

Dim Db As DAO.Database
Dim rs As DAO.Recordset
Dim strsql As String
'Me.btPesquisar.enabled = True
On Error Resume Next
con.SetFocus

If con.Value > 0 Then
strsql = "SELECT * FROM qryMotorista WHERE Nome = '" & con.Value & "'"
 
'aux.AbreConexao aux.chave
Set Db = CurrentDb
Set rs = CurrentDb.OpenRecordset(strsql)
If Not rs.BOF Then
Me.txtCódigo.Value = rs("Código")
Me.txtNome.Value = rs("Nome")
Me.txtApelido.Value = rs("Apelido")
Me.txtDataNascimento.Value = rs("DataNascimento")
Me.txtIdade.Value = rs("Idade")
Me.txtCPF.Value = rs("CPF")
Me.txtCnh.Value = rs("Cnh")
Me.txtRegistro.Value = rs("Registro")
Me.txtCategoria.Value = rs("Categoria")
Me.txtEmissao.Value = rs("DataEmissao")
Me.txtValidade.Value = rs("DataValidade")
Me.txtCep.Value = rs("Cep")
Me.txtEndereco.Value = rs("Endereco")
Me.txtNumero.Value = rs("Numero")
Me.txtComplemento.Value = rs("Complemento")
Me.txtBairro.Value = rs("Bairro")
Me.txtCidade.Value = rs("Cidade")
Me.txtEstado.Value = rs("Estado")
Me.txtTelResidencial.Value = rs("TelResidencial")
Me.txtTelComercial.Value = rs("TelComercial")
Me.txtTelCelular.Value = rs("TelCelular")
Me.txtNextel.Value = rs("Nextel")
Me.txtEmail.Value = rs("Email")
Me.txtRegPref.Value = rs("RegiaoPreferencial")
Me.txtUfPref.Value = rs("EstadoPreferencial")
Me.txtProprietario.Value = rs("proprietario")
Me.txtBloqueado.Value = rs("Bloqueado")
rs.Close
Set rs = Nothing
Db.Close
Set Db = Nothing
End If
Me.txtNome.SetFocus
Me.con.visible = False
Call fncCarregaCboC
End If
End Sub


Citei 3 combos e 3 botoes, mas nao sei como criar um codigo que oriente minha combo pré existente a pesquisar nos outros dois casos. Se houver jeito, com certeza ficaria muito mais pratico, mas eu preciso condicionar isso ao meu grupo de opçoes "Nome" ou "Apelido" ou "CPF", de forma que o usuario defina o campo a ser pesquisado.


Muito obrigado pela ajuda, todos voces, os exemplos guardo comigo para futuros projetos.

LeoAvila7, Boa Tarde!
Acredito que não será necessário 3 botões. Penso da seguinte maneira:

Crie uma combo com as opções que deseja, ex: Nome, Apelido, CPF e crie 3 combos ocultas, ou seja, sobrepostas. No evento atual do form deixe as 3 combos como Visible=False

No evento após atualizar da combo Não acoplada (Nome, Apelido, CPF) crie o evento (If)

If me. [Nome da combo1]="CPF" Then
me.[Nome da Combo1].Visible=true
me.[Nome da Combo2].Visible=False
me.[Nome da Combo3].Visible=False, neste caso só será visualizada a combo com o nome que pesquisará o CPF e siga este sucessivamente para todas 3 combos alterando somente as combos que ficarão visíveis, ok.

No evento de cada combo após atualizar defina a consulta que será o resultado da pesquisa.

Abraços e boa sorte...

Testa este......não é meu só mexi os pauzinhos.

Amigos, consegui da seguinte forma:

Criei as outras duas combos com as mesmas caracteristicas da primeira e com o codigo acima, com as devidas adequaçoes.

Como existia uma função chamada fncCarregaCboC que carregava os dados da primeira combo, tambem fiz adequaçoes nela para buscar nos campos CPF e Apelido.


Agora esta funcionando exatamente como eu queria.

Agradeço a todos voces pela ajuda.

Leonardo
Pode postar o exemplo para todos do forum verem ?
Obrigado

Só se for agora mestre Assis. Abraço!