[Resolvido]Problema com filtro

Pessoal é o seguinte eu to com um problema ao utilizar um campo como filtro pra um relatorio

Eu vou ter uma tabela vinculada no meu access.Nessa tabela vai ter um campo data/hora
Eu vou ta utizando em um formulário vários campos onde vai ter a função DContar, onde vou ta contando certas coisas.
O problema q eu estou tendo é o seguinte. O usuario vai entrar com uma data que vai um atributo da função DContar.Como na tabela o campo está data e hora, eu preciso retirar somente a data desse campo.Quando estou fazendo isso o DContar está dando erro. Ele somente aceita sem problemas caso eu referencia o dia,mes, ano separado como está no formulário no arquivo de access que estou disponibilizando aqui. Eu queria pedir a ajuda de vocês para descobrir onde estou errando e como conserto esse problema. Preciso referenciar a data toda pra facilitar minha vida em outras coisas.

http://dl.dropbox.com/u/68319379/Teste.accdb
http://dl.dropbox.com/u/68319379/Teste1.xls

Acima está o arquivo que vai ser vinculado e o access com o formulario mais ou menos do jeito que ta dando errado.

Desde já agradeço a ajuda.

Boa tarde Vitor...

Caso a contagem envolva apenas uma tabela, faça a contagem diretamente na tabela. não precisa fazer na consulta

A expressão a seguir realiza isto:

=DContar("*";"tblExemplo";"cpData =#" & [txtData] & "#")


Aqui estamos supondo uma tabela

Nome da tabela: tblExemplo
Nome do campo Data: cpData
Nome da caixa texco no form: txtData.


Não utilize palavras reservadas do access em nome de campos ou objetos. Isto fatalmente ensejará em erro.


Olhe as dicas nos links na minha assinatura abaixo.


Cumprimentos.

O problema é que eu nao posso fazer direto da tabela porque na tabela o campo data está data/hora, então tenho que fazer uma consulta e incluir um campo retirando so a data desse campo ou tem como incluir um outro campo em uma tabela vinculada?

Outra coisa eh que esse codigo =DContar("[Dia]";"Plan1 Consulta";"[Data]="#" & [txtData] & "#"") ele diz q ta faltando alguma coisa, já procurei mas não to achando onde to errando.

É Vitor tens razão... falta alguma coisa mesmo...

Falta você dar uma lida no primeiro link em minha assinatura e dar uma estudada sobre normalização de dados....

Veja que utilizou espaços no nome da sua consulta... e nome com espaços é melhor ser evitado.

Coloque o nome da consulta entre colchetes [Nome da sua consulta] ou renomeeie a mesma e retire os espaços.


Teste este código diretamente na tabela mesmo sendo campo Data/Hora.


Ps. Não se esqueça de ler sobre normalização de dados.


Cumprimentos.

Para consulta em tabela com um campo Data com Horas:

=DContar("*";"tblExemplo";"Format(cpData,'dd/mm/yyyy') =#" & [txtData] & "#")


Basta formatar o campo na expressão.


Cumprimentos.

Fiz as mudanças que você indicou. Não ta dando mais erro, só que o campo n ta contando a data, ele fica dando zero sempre. Aqui em baixo o link com as mudanças

http://dl.dropbox.com/u/68319379/Teste.accdb
http://dl.dropbox.com/u/68319379/Teste11.xls

Eis... teste.. fiz em uma tabela no BD. Adapte ao teu.


https://dl.dropbox.com/u/26441349/VitorGOn%C3%A7alves.rar


Cumprimentos.

O modelo que postou está contando sim.

COloque este código:

=DContar("*";"[Plan1]";"Format([DataCentral],'dd/mm/yyyy') =#" & [txtData] & "#")


coloque uma data, depois clique encima da caixa texto txtData.

A questão ai é apenas onde efetuará o Requery na caixa txtData... para assim que colocar a data efetuar a atualização da contagem.

Cumprimentos.

Ele está funcionando só para alguns casos. Tenta ai no teu mesmo que fe contar datas em que o dia ou mes só tenho um digito, no meu da zero nesses. Exemplo tenta contar datas assim 5/10/2012 ou 8/9/2012, a resposta é zero, tentei consertar mas não consegui. Suas dicas já me fizeram mudar bastante coisa no meu trabalho. Obrigado pela ajuda.

Vamos para o VBA...

Em eventos após atualizar do campo data:



Private Sub txtData_AfterUpdate()
Dim StrDday As Integer

'Carrego a variável StrDay com o dia da data selecionada
StrDay = Day(Me.txtData)
'Faço a contagem do comprimento da variável para saber se é de 1 dígito ou dois, caso seja dois dígitos vai executa a primeira condição, caso contrário a segunda
If Len(StrDay) = 2 Then
Me.txtCount = DCount("*", "tblExemplo", "Format(cpData,'dd/mm/yyyy') =#" & Me.txtData & "#")
Else
Me.txtCount = DCount("*", "tblExemplo", "Format(cpData,'mm/d/yyyy') =#" & Me.txtData & "#")
End If
End Sub

Cumprimentos.



Cumprimentos.

eu consegui resolver de outra forma.Eu formatei as duas datas do mesmo jeito ai ele aceita, não importando se o dia ou mes da data tenha dois digitos ou não.Com esse código abaixo

=DContar("*";"[Plan1]";"Format([DataCentral],'dd/mm/yyyy') = Format([txtData],'dd/mm/yyyy')")

Obrigado pela ajuda que você prestou.

Estranho isso, fui justamente para o VBA porque no BD que lhe enviei não aceitou essa expressão...

E é a forma mais correta, não sei o porque não aceitou. Vou até ver isso agora.


Cumprimentos.


Ps. Só faltou o resolvido no tópico Amigão.

Topico resolvido

O Fórum agradece o Retorno.