MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Busca numa caixa de texto pesquisando em 2 campos do form

    augustopimenta
    augustopimenta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 19/03/2012

    [Resolvido]Busca numa caixa de texto pesquisando em 2 campos do form Empty Busca numa caixa de texto pesquisando em 2 campos do form

    Mensagem  augustopimenta 29/9/2012, 03:26

    Olá pessoal ..
    Tenho uma caixa de texto no form com o nome de txt_procura.
    No evento após atualizar desse campo tenho o seguinte código:
    Dim rs As Recordset
    If IsNull([txt_procura]) Then Exit Sub
    Set rs = Me.Recordset.Clone
    If IsNumeric(txt_procura) Then
    rs.FindFirst "[Fone1]=" & Val(Me.txt_procura)
    Me.Bookmark = rs.Bookmark
    If rs.NoMatch Then
    MsgBox "Não existe Cliente com este código!!!", vbCritical, "Código não encontrado..."
    End If
    Else
    rs.FindFirst "[NomeCliente] Like '" & Me.txt_procura & "*'"
    If rs.NoMatch Then
    MsgBox "Não existem Clientes com este Nome (Parte do Nome)!!!", vbCritical, "Cliente não encontrado..."
    Else
    rs.FindNext "[NomeCliente] Like '" & Me.txt_procura & "*'"
    If rs.NoMatch Then
    rs.FindFirst "[NomeCliente] Like '" & Me.txt_procura & "*'"
    Me.Bookmark = rs.Bookmark
    Else
    DoCmd.OpenForm "frmBuscaCliente"
    Forms![frmBuscaCliente]![KeepNome] = Me.txt_procura & "*"
    Forms![frmBuscaCliente]![cboCodigoNome].Requery
    End If
    End If
    End If
    Me.txt_procura = ""
    Me.txt_procura.SetFocus
    Meu problema é que tenho 2 campos de telefone nesse form: o Fone1 e o Fone2.
    Minha pergunta: Como faço para que ao digitar o número ele pesquise no campo Fone1 e no campo Fone2 ?
    Do jeito que o código está ele só pesquisa no Fone1. ALguma sugestão?
    Desde já agradeço ....
    Luís Augusto
    Luís Augusto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 28/10/2011

    [Resolvido]Busca numa caixa de texto pesquisando em 2 campos do form Empty Re: [Resolvido]Busca numa caixa de texto pesquisando em 2 campos do form

    Mensagem  Luís Augusto 7/10/2012, 19:22

    Veja esse excelente exemplo do mestre João Paulo.
    http://maximoaccess.forumeiros.com/t1030-localiza-registro-em-qualquer-campo?highlight=localiza
    augustopimenta
    augustopimenta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 19/03/2012

    [Resolvido]Busca numa caixa de texto pesquisando em 2 campos do form Empty Re: [Resolvido]Busca numa caixa de texto pesquisando em 2 campos do form

    Mensagem  augustopimenta 7/10/2012, 22:21

    Valeu Luis..
    Com esse exemplo consegui adaptar à minha situação....
    Valeu mesmo ...
    Sucesso !!!!
    Luís Augusto
    Luís Augusto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 28/10/2011

    [Resolvido]Busca numa caixa de texto pesquisando em 2 campos do form Empty Re: [Resolvido]Busca numa caixa de texto pesquisando em 2 campos do form

    Mensagem  Luís Augusto 8/10/2012, 00:07

    Disponha.
    O fórum agradece o retorno.

    Conteúdo patrocinado


    [Resolvido]Busca numa caixa de texto pesquisando em 2 campos do form Empty Re: [Resolvido]Busca numa caixa de texto pesquisando em 2 campos do form

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 22:52