[Resolvido]Filtro com Data Inicio e Fim Como SeImed

oi galera boa noite!

todos os filtros do meu formulário só fazem a função deles após eu pressionar o botão que corresponde ao requery.

porém não consigo fazer isso pra data

se eu por Entre [Forms]![FrmMain]![SubMain]![DataInicio] E [Forms]![FrmMain]![SubMain]![DataFim]

não consigo fazer os outros filtros sem colocar a data -.-

tentei fazer da forma abaixo porém não filtra corretamente to esquecendo algo aí ?

Como "*" & SeImed([Formulários]![FrmMain]![SubMain]![selDataInicio]=Verdadeiro;[Formulários]![FrmMain]![SubMain]![DataInicio]) & "*"

Como "*" & SeImed([Formulários]![FrmMain]![SubMain]![selDataFim]=Verdadeiro;[Formulários]![FrmMain]![SubMain]![DataFim]) & "*"

Mizael

Olha a pegadinha dos subformulários:

Entre [Formulários]![FrmMain]![SubMain].[Formulário]![DataInicio] E [Formulários]![FrmMain]![SubMain].[Formulário]![DataFim]

{ }'s

Balem

Olá Balem,

mesmo eu pondo

Entre >=[Formulários]![FrmMain]![SubMain]![DataInicio] E <=[Formulários]![FrmMain]![SubMain]![DataFim]

tem algo errado

o cadastro foi feito dia 19/02/2021 correto?

se eu colocar no filtro dia 19/02/2021 e 19/02/2021 não é pra trazer o único cadastro feito dia 19 ?

eu não entendo o que está havendo.

Maninho

Analise por favor


A correta:

Entre [Formulários]![FrmMain]![SubMain].[Formulário]![DataInicio] E [Formulários]![FrmMain]![SubMain].[Formulário]![DataFim]

Faltou o  FrmMain na primeira parte.

Agora tenho certeza que está correto

ainda continuo sem ver os dados na folha de dados antes do filtro -.-

acho que deveria ser com critério

Como "*" & SeImed([Formulários]![FrmMain]![SubMain]![selDataInicio]=Verdadeiro;[Formulários]![FrmMain]![SubMain]![DataInicio]) & "*"

tipo dessa forma em cima, ele só ativa o filtro se eu marcar uma caixa de selação.

Nesse SeImed() que é um IIF()  é assim:

     Seimed( X=1;ParteVerdadeira;ParteFalsa)

    SeImed(sexo="Masculino";"Senhor";"Senhora")

Na tua expressão só tem a parte verdadeira.

Estou achando que o caminho não é esse, frisando; estou crendo, não afirmando.

Melhor postar esse formulário e a tabela dele pra gente ver o podemos fazer.
tabela com dados fictício.

Boa tarde Balem,

desculpe não pude responder por alguns dias, mas estou postando o projeto com a tela com problema existente,

eu uso caixa de seleção para que os filtros fiquem ativos com SeImed. em todos ficaram bom, menos no de data inicio e data fim.

Mizael

Me diga onde você quer colocar esse código.


Como são dos campos  Inicia e Final O código ficará assim:


campo ou variável >= [DataInicio] and <= [DataFim]

Balem

Bom dia Balem, como você pode perceber, sem usar filtros ele me trás o nome dos parceiros, mesmo eu não digitando nada.

se eu pôr o filtro que você está utilizando sem SeImed como nos outros filtros, ele não me trará nada, fica vazio é justamente por isso que estou tentando utilizar o SeImed para um filtro de Data de Cadastro.

imagina só você entrar em uma tela no sistema, ir procurar um parceiro por exemplo SAMSUNG, daí ter que lembrar e colocar a data que cadastrou, pq se não o filtro não retorna nenhuma SAMSUNG, ele só vai retornar se o periodo datainicio e datafim estiverem corretos meu caro.

é isso que eu quero remover,

Como SeImed talvez consiga usar datas e outros filtros somente quando estiverem preenchidos e com a caixinha de seleção ativa.

Mizael

Quer listar os parceiros independente da data ou não?

Preciso saber mais pra ver que caminho pegar.

Balem, exatamente meu nobre, se possível me da essa força!

Mizael

Como não costumo dar o peixe (raras exceções), procuro ensinar a pescar.

Veja esse exemplo, e adapte ao teu projeto.

Divirta-se

{}'s

Balem

Bem noob, acho que se fosse PRO em VBA não estaria perguntando algumas besteiras aqui como esse filtro com críterio SIM/Não, enfim acho que não me ajudou,

to tentando algo mais simples, que fique dentro da consulta mesmo, sem codigos vba.

de qualquer maneira agradeço sua ajuda.

OK

Boa sorte, então

Balem

up...

up.....

up....

Bom dia, explorei explorei as opções até que consegui

Objetivo:
Mostrar todos os registro dentro da Consulta independente dos critérios de Data Inicio e Data Fim sejam preenchidos.

>=[Forms]![FrmMain]![SubMain]![datai] And <=[Forms]![FrmMain]![SubMain]![dataf] Or [Forms]![FrmMain]![SubMain]![datai] Is Null Or [Forms]![FrmMain]![SubMain]![dataf] Is Null


Balem, os códigos VBA são bons demais mas as vezes a gente precisa de algo que agilize o trabalho.

Se tiver um formulário com SubForm

Em SeuBotao_Click()

Dim strfiltro As String

strfiltro = "Consulta.campo Between #" & Format(Me!CampoDataInicio, "mm/dd/yyyy") & "# AND #" & Format(Me!CampoDataFim, "mm/dd/yyyy") & "#"
FrmSubMain.Form.Filter = strfiltro
FrmSubMain.Form.FilterOn = True

enfim resolvido

deixo aqui a experiência, acredito que o conhecimento deve ser compartilhado para que outras pessoas sejam ajudadas,

Quanto ao tempo....

Veja quanto tempo se passou para achar tua solução que "seria" mais fácil,

ao passo que se tivesse feito em vba, estaria adiantado na programação.

Se é pra ganhar tempo, usa o que se sabe de pronto.

Vamos perder tempo em programar, quando não se sabe exatamente como fazer.

E muita coisa no Access dá pra se fazer de várias formas.

E eu sou adepto de ir pelo simples.

E o que tem passei é o  básico em VBA.

Boa sorte!

Balem

é ainda não consegui totalmente,

agora temos outro problema

quando eu coloco esse critérios os outros filtros com SeImed não funcionam somente quando eu ponho a Data Inicio e Data Fim.

por exemplo

tenho o campo descrição na consulta que tem o seguinte critério:

Como "*" & SeImed([Formulários]![FrmMain]![SubMain]![selDescricao]=Verdadeiro;[Formulários]![FrmMain]![SubMain]![descricao]) & "*"

o campo data

>=[Forms]![FrmMain]![SubMain]![datai] And <=[Forms]![FrmMain]![SubMain]![dataf] Or [Forms]![FrmMain]![SubMain]![datai] Is Null Or [Forms]![FrmMain]![SubMain]![dataf] Is Null

e ambos não são individuais

pois o o primeiro depende do Segundo, ainda surge a dúvida não há uma forma de fazer isso com a expressão Como SeImed, pra apenas filtrar quando a caixinha de seleção estiver = True


?

Então

Acredito que não conseguirá  fazer uma consulta que ignore campos de critérios vazios.

E é exatamente isso que o que o VBA que te passei faz.

Bem, nem devia insistir nisso, uma vez que rechaçou a ajuda, sem analisar o código que te enviei.

Mas  vou dizer o seguinte:

Abra a página de VBA do formulário principal e analise a  sub função  AdicionarAWhere()

e veja o que ela faz.

Balem

então está me dizendo que não existe uma maneira de usar a expressão na consulta ?

com critérios de Sim/Não ?

se for isso pelo menos eu tenho uma resposta.

Não

Essa tua pergunta me diz claramente que não chegou a analisar o que indiquei.

O que estou dizendo:

Tem 3 campos na consulta digamos que sejam> id_Cliente, endereço, data nascimento e estado civil.
Colocando as condições de cada campo, irá retornar o(s) registro(s) desejados.
Numa outra hora, quer que essa mesma consulta retorne apenas 2 campos, então 2 deles ficarão em branco.

Entendeu até aqui?

Se sim, conseguirá fazer a  segunda consulta retornar os resultados desejados ?

Explique tua resposta.

Bom dia!

Bem vou dá como resolvido, pois encontrei uma maneira de colocar na Própria consulta os filtros

Como SeImed que eu tenho em vários campos e ainda fazer o Entre DataInicio e DataFim.

ao abrir essa consulta e não digitar nenhuma filtro nem de campos e nem de data ele me retorna todos os registro como eu queria.

e ao usar filtro como por exemplo "Nome" e depois usar a Data ele me retorna o Nome, com aquela Data.

o fato é que sou iniciando em access venho aqui pedir ajuda, legal sua iniciativa de me mandar um código extraordinário destes, testei achei muito bom, mas não sei fazer ou adaptar não consegui, pois os filtros que tenho são de campos Sim/Não, são filtros de várias formas e no seu exemplo só existe filtro de caixa de combinação e isso eu não uso.

daí na maioria das suas postagens é como se você estivesse se negando a ajudar, como se você fosse o único detentor de todo conhecimento que há em access, isso é muito crítico cara, se você não tem problemas com Egocentrismo ou egoísmo eu duvido, e se tiver querendo da uma de professor está errado viu!! pq professor faz primeiro exemplifica, mostra a solução pra quando seu aluno ver começar a praticar e ter gratidão pela pessoa que a ensinou.

Enfim, vou continuar sendo amigo do Fórum, fazendo minhas pesquisar, tentando da continuidade do programinha que estou fazendo pra trabalho.

abraços a todos fiquem em paz.

Ótimo que tenha resolvido do teu jeito.

Mas se precisar, é só dar um alô

Não perguntou por que não quis, estou aqui para tentar ajudar.

Sou tão  egocêntrico que uso o nicke de Noobezinho, ou vc não sabe o que é um Noob?

Mas eu ajudo que quer realmente ser ajudado.

Fique tranquilo, continue no fórum, que é ótimo, não existe só eu aqui.

Boa sorte