[Resolvido]Form com Ref. Cruzada

Boa tarde!


Fiz uma consulta de referência cruzada e gostaria de vinculá-la a um formulário, porém não está funcionando.
Alguém pode me dizer ser Consultas de Ref. Cruzada não funcionam em Formulários, ou existe outra maneira mais adequada?
O meu problema é que esta consulta ficou com as informações exatamente do jeito que eu preciso...
Se alguém puder me ajudar...

O comando que estou utilizando no form e não está funcionando é este, porém parece que o Access não reconhece na Ref. Cruzada, apesar de eu utilizar este comando em vários pontos do meu BD.

Forms!frm_inicio_FAT.Form.RecordSource = "SELECT * FROM qry_FAT_TOTAL_B_CRIA_FAT_INICIO where dia between  '" & Dia_inicio & "' And '" & Dia_Fim & "'"

Grata
Janette

Veja;

http://maximoaccess.forumeiros.com/t95-form-filtra-consulta-de-referencia-cruzada

JPaulo,


Agradeço o seu exemplo, mas eu preciso aplicar a Ref. Cruzada em um formulário, na verdade eu já tenho um formulário pronto, formatado. Isso é possível? Quero que o resultado do meu filtro apareça no formulário.

Obrigada!

Janette

Será que este exemplo atende ?

A respeito dos filtros vindos dos formularios, eles têm de estar nos Parametros da consulta de referencia cruzada.

JPaulo,


O meu maior problema é que eu preciso aplicar filtro por DIA no formulário, eu tenho um campo no form Dia_Inicio e Dia_Fim, para fazer o cálculo dentro de um periodo.
Normalmente eu coloco o código abaixo em um botão e funciona, mas na Consulta de Ref. Cruzada não funciona, você poderia me ajudar?

Forms!frm_inicio_FAT.Form.RecordSource = "SELECT * FROM qry_FAT_TOTAL_B_CRIA_FAT_INICIO where dia between '" & Dia_inicio & "' And '" & Dia_Fim & "'"


Obrigada!

Tal como lhe disse, os filtros vindos dos formularios, têm de estar também nos Parametros da consulta de referencia cruzada.

em vez de:
Forms!frm_inicio_FAT.Form.RecordSource = "SELECT * FROM qry_FAT_TOTAL_B_CRIA_FAT_INICIO where dia between '" & Dia_inicio & "' And '" & Dia_Fim & "'"

não seria:
Forms!frm_inicio_FAT.Form.RecordSource = "SELECT * FROM qry_FAT_TOTAL_B_CRIA_FAT_INICIO where dia between #" & Dia_inicio & "# And #" & Dia_Fim & "#"

as datas acho que tem que ser entre ## (jogo da velha)
se eu não mim engano quando informamos via código uma data entra (jogo da velha) e reconhecida no formato MM/DD/AAAA ou seja
se você quiser informar dia 30 de janeiro de 2014 seria passado assim 01/30/2014!!

acho que usando o format(Dia_inicio,"MM/DD/AAAA") vc poderia ajustar...

bom fica a dica!

Torres, parece-me que o amigo está fora do contexto deste tópico, uma vez que estamos a falar de consulta de referencia cruzada.

De qualquer forma obrigado pela dica, mas gostaria que você fizesse o teste, com a instrução que passou para Consulta de Referencia Cruzada e retorna-se aqui o resultado.

JPaulo,

Eu fiz exatamente assim:

Na minha consulta qry_FAT_TOTAL_B_CRIA_FAT_INICIO eu defini os pârametros:

[Forms]![frm_inicio_fat]![Dia_inicio] = texto
[Forms]![frm_inicio_fat]![Dia_Fim] = texto

No critério do campo DIA:
Entre [Forms]![frm_inicio_fat]![Dia_inicio] E [Forms]![frm_inicio_fat]![Dia_Fim]

No meu formulário frm_inicio_Fat ACOPLADO na consulta no evento ao clicar de um botão:

Forms!frm_inicio_fat.Form.RecordSource = "SELECT * FROM qry_FAT_TOTAL_B_CRIA_FAT_INICIO where dia between '" & [Forms]![frm_inicio_fat]![Dia_inicio] & "' and '" & [Forms]![frm_inicio_fat]![Dia_Fim] & "'"


Porém aparece a msg de erro:

" O mecanismo de dados do Microsoft Access não reconhece " como nome de campo ou expressão válida"


Obrigada!

Você quer anexar somente parte do seu banco para analise ?

Oi JPaulo,

Segue meu banco anexado.

O Formulário é FRM_INICIO_FAT

Eu preencho os campos  DATA INICIO e DATA FIM  e clico no botão CALCULAR.


Abs
Janette

Não consigo testar porque as tabelas são vinculadas em ODBC.

Como nos parametros da consulta de referencia cruzada tem defenido "Integer", penso que no código deve enviar como Valor numerico;

Me.Dia_inicio = Val(Left([DataInicio], 2))
Me.Dia_Fim = Val(Left([DataFim], 2))

Por outro lado, como a consulta já tem filtro defenido, não deve aplicar o filtro no RecordSource no código do botão Calcular;

Será apenas;

Me.RecordSource = "SELECT * FROM qry_FAT_TOTAL_B_CRIA_FAT_INICIO"
Me.Requery

JP,

Muito obrigada! Funcionou!
Às vezes a solução é tão simples, a gente que complica, né? rsrsr


bjo

Janette

Fico feliz.

Obrigada pelo retorno o forum agradece.