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]Pesquisa em um Forme SubForm

    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/11/2010

    [Resolvido]Pesquisa em um Forme SubForm Empty Pesquisa em um Forme SubForm

    Mensagem  Pablo Weber 25/1/2013, 12:16

    Olá pessoal, gostaria de saber se poderiam me ajudar a confeccionar um botão de pesquisa, que ao clicar abrisse uma janela tipo inputbox, no qual se digitaria o dado a ser buscado (por exemplo nome, ou RG, etc) e que apoós o enter os campos do form e subform fossem populados com os referidos dados. Acontece que na minha aplicação eu retirei o rodapé do meu fomr onde continhas os botões de navegação de registros, e os botões padrão do access de exclusão, pesquisa, etc, e adicionei icones, com as mesmas funções, fcando com uma aparencia melhor. O engraçado é que eu peguei a macro de excluir registro do acccess de uma aplicação antiga minha e adicionei ao icone botão excluir e deu certo, porém a de pesquisar não retorna valor algum. Daí a minha solicitação aos senhores. Grande abraço.
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 713
    Registrado : 07/05/2010

    [Resolvido]Pesquisa em um Forme SubForm Empty Re: [Resolvido]Pesquisa em um Forme SubForm

    Mensagem  Jungli 25/1/2013, 12:27

    Bom dia crie uma combobox no seu formulário e no evento AfterUpdate da mesma coloque.

    Dim txtCriterio As String
    'Por Glicério Júnior ... Jungli - http://maximoaccess.forumeiros.com
    Dim rs As DAO.Recordset
    ' Define o criterio de busca
    txtCriterio = "Campo a ser Buscado = '" & Me.Combinação62.Column(0) & "'" 'em caso de número: "Campo a ser Buscado = " & Me.Combinação62.Column(0)
    '...
    Set rs = Me.RecordsetClone
    ' Procurando...
    rs.FindFirst txtCriterio
    'Opa não achei...
    If rs.NoMatch Then
    MsgBox "Registro não encontrado"
    Else
    'He he... Achei... olha aí
    Me.Bookmark = rs.Bookmark
    End If

    'com o registro encontrado, se a ligação do subform estiver correta ele será carregado automáticamente


    abraços.
    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/11/2010

    [Resolvido]Pesquisa em um Forme SubForm Empty Re: [Resolvido]Pesquisa em um Forme SubForm

    Mensagem  Pablo Weber 25/1/2013, 13:00

    Obrigado pela atenção amigo Jungli, mas na minha tabela possui pessoas com nomes parecidos, por exemplo gostaria de buscar a pessoa de nome Joao, na procura do access, eu clicava no campo Nome e selecionava qualquer parte do campo, e digitava "João" e ele buscava todos os registros com esse nome, ai eu iria passando de registro em registro pelas setas de navegação até encontrar o desejado, seria isso. Pois na minha comboNome, consigo visualizar os nomes, porem terei que olhar os mais de 600 registro, que contem nela, o que demanda tempo. Não sei se me expressei direito. Obrigado.
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 713
    Registrado : 07/05/2010

    [Resolvido]Pesquisa em um Forme SubForm Empty Re: [Resolvido]Pesquisa em um Forme SubForm

    Mensagem  Jungli 25/1/2013, 14:12

    Veja se assim dá certo,

    Filtra por qualquer parte do nome do cliente, e pode usar as setas pra ir passando os clientes automaticamente.

    abraços.
    Anexos
    [Resolvido]Pesquisa em um Forme SubForm AttachmentPabloWeber.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 44 vez(es)
    Pablo Weber
    Pablo Weber
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/11/2010

    [Resolvido]Pesquisa em um Forme SubForm Empty Re: [Resolvido]Pesquisa em um Forme SubForm

    Mensagem  Pablo Weber 30/1/2013, 12:18

    Ok, amigo, vou o exemplo é muito bom, vou fazer algumas alterações na minha aplicação, e qualquer coisa se der algum erro ou surgir alguma dúvida lhe retorno. Darei por resolvido o tópico. Grande abraço mais uma vez.
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 713
    Registrado : 07/05/2010

    [Resolvido]Pesquisa em um Forme SubForm Empty Re: [Resolvido]Pesquisa em um Forme SubForm

    Mensagem  Jungli 30/1/2013, 13:45

    beleza, obrigado pelo retorno.

    Conteúdo patrocinado


    [Resolvido]Pesquisa em um Forme SubForm Empty Re: [Resolvido]Pesquisa em um Forme SubForm

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 04:28