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


    Filtrar dados do formulário contínuo usando comandos SQL via VBA

    avatar
    MayconM
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 22/01/2016

    Filtrar dados do formulário contínuo usando comandos SQL via VBA Empty Filtrar dados do formulário contínuo usando comandos SQL via VBA

    Mensagem  MayconM 9/4/2016, 03:43

    Boa Noite,

    Criei um formulário contínuo com a finalidade apenas de mostrar os dados de uma tabela. Tal formulário é proibido de Introdução de dados e novas adições (serve mesmo apenas como uma espécie de consulta de dados com uma estética melhor). Ele funciona carregando 4 dados por página, com um botão próximo e um anterior, que tem função de passar de 4 em 4 registros até o fim dos registros que contém na tabela. O Código utilizado para essa função foi:

    Me.RecordSource = "SELECT Top 4 tblCliente.CodCliente, tblCliente.CNome, tblCliente.CPF, tblCliente.Endereço, tblCliente.Cidade, tblCliente.UF, tblCliente.telefone1, tblCliente.telefone2, tblCliente.email FROM tblCliente WHERE (((tblCliente.CodCliente) Between [Forms]![frmControleClientes]![Subformulário]![Controle] And [Forms]![frmControleClientes]![Subformulário]![Controle2]));"
    https://www.dropbox.com/s/d6yjoagxhb36zm7/Captura%20de%20tela%202016-04-08%2023.10.52.png?dl=0
    https://www.dropbox.com/s/6dkji00g2gj9hjg/Captura%20de%20tela%202016-04-08%2023.11.05.png?dl=0

    Essa primeira parte funciona perfeitamente, inclusive ele faz todo o procedimento conforme descrevi. O problema é que decidi adicionar um campo pesquisa e para isso, precisei aprimorar a filtragem do código. Nas duas melhores tentativas, obtive os seguintes resultados (No evento ao clicar no botão pesquisar):

    Me.RecordSource = "SELECT Top 4 tblCliente.CodCliente, tblCliente.CNome, tblCliente.CPF, tblCliente.Endereço, tblCliente.Cidade, tblCliente.UF, tblCliente.telefone1, tblCliente.telefone2, tblCliente.email FROM tblCliente WHERE (((tblCliente.CNome) Like [Forms]![frmControleClientes]![Subformulário]![CtPesquisar]));"  (Aqui, o formulário agrupa todos os registros, mas não consigo passar para a página 2 em razão do VBA pular alguns códigos)
    https://www.dropbox.com/s/5ees7rj273qn6az/Captura%20de%20tela%202016-04-08%2023.11.31.png?dl=0

    Me.RecordSource = "SELECT Top 4 tblCliente.CodCliente, tblCliente.CNome, tblCliente.CPF, tblCliente.Endereço, tblCliente.Cidade, tblCliente.UF, tblCliente.telefone1, tblCliente.telefone2, tblCliente.email FROM tblCliente WHERE (((tblCliente.CodCliente) Between [Forms]![frmControleClientes]![Subformulário]![Controle] And [Forms]![frmControleClientes]![Subformulário]![Controle2]) And ((tblCliente.CNome) Like [Forms]![frmControleClientes]![Subformulário]![CtPesquisar]));"(Consigo passar de página, mas o formulário não agrupa os registros)
    https://www.dropbox.com/s/k7lqkytwqf1qj1l/Captura%20de%20tela%202016-04-08%2023.26.02.png?dl=0
    https://www.dropbox.com/s/89wvn75dc054029/Captura%20de%20tela%202016-04-08%2023.26.03.png?dl=0

    As possíveis soluções que imagino resolver o problema: 1 - Conseguir colocar o TOP 4 entre dois valores (procurei em todo fórum e não encontrei nada a respeito). 2 - Outra solução, seria conseguir capturar o número do último código de cada página, porém em formulários contínuos o formulário só consegui fazer o formulário ler o primeiro código. 3 - fazer a troca de página por uma contagem de número de registros, e não pelo número do código de numeração automática.

    Agradeço desde já qualquer tipo de ajuda (desculpem pelo post longo). Caso seja necessário posso postar o banco de dados.
    avatar
    MayconM
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 22/01/2016

    Filtrar dados do formulário contínuo usando comandos SQL via VBA Empty Re: Filtrar dados do formulário contínuo usando comandos SQL via VBA

    Mensagem  MayconM 13/4/2016, 19:34

    UP,

    pra facilitar o entendimento do meu problema, segue um exemplo do formulário:

    https://www.dropbox.com/s/d92d0gonf19y28l/Exemplo.rar?dl=0

    Problema: fazer um código para o botão próximo e anterior funcionarem após o uso da pesquisa, que embaralha todos os registros (atualmente o campo está filtrando pelo nome).
    Pensei em usar o comando DoCmd.GoToRecord , , acGoTo, mas não sei como.
    Desde já agradeço qualquer tipo de ajuda.

      Data/hora atual: 29/3/2024, 01:28