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.
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.