[Resolvido]Campo com duplo critério

Bom dia

Queria por 2 critérios num campo de uma consulta

Tentei assim mas não funciona
Como "*" & [Forms]![Dialogo Datas]![Data] & "*" Ou Como "*" & [Forms]![CalendárioDia]![CDataGeral] & "*"

Isto é : estou a tentar abrir um relatório de dois form diferentes.

Obrigado

Olá, tente tirar o segundo Como e teste para ver se funciona:

Como "*" & [Forms]![Dialogo Datas]![Data] & "*" Ou "*" & [Forms]![CalendárioDia]![CDataGeral] & "*"

Bom dia Criquio

Tentei mas não resulta
Obrigado

A consulta tem um OU que separa as linha de critério. Tente colocar cada critério em uma linha.

Criquio

Colocando em duas linhas depois de fechar a consulta e voltar a abrir fica assim numa linha:
Como "*" & [Forms]![Dialogo Datas]![Data] & "*" Ou Como "*" & [Forms]![CalendárioDia]![CDataGeral] & "*"
Não funciona

Norbs

Se for individual não tem problema com o espaços
Como "*" & [Forms]![Dialogo Datas]![Data] & "*"
Como "*" & [CalendárioDia]![CDataGeral] & "*"

Não tem problemas

Obrigado aos dois....

E ambos os forms ficam abertos?

Criquio
Não

Aí não é possível mesmo. Os campos de um formulário só podem ter algum valor se eles estiverem abertos. Fechados nem dá para referenciá-los. O que pode ser feito, caso necessário e caso seja possível, seria carregar os valores dos campos em funções globais para serem usados na consulta.

Criquio

Mas tem sempre aberto o form aonde estão os dados, não precisa de estar aberto os dois forms

Se abrir este form seria lido este valor: [Forms]![Dialogo Datas]![Data]

Idem se abrir este form: [CalendárioDia]![CDataGeral]

Obrigado

Olá

Creio que uma solução é fazer uso do selmed

Algo assim:

iif(isnull(forms![Dialogo Datas]!Data);Forms!CalendárioDia!CDataGeral;Forms![Dialogo Datas]!Data)

Eu não tenho certeza se funcionaria com o LIKE

LIKE iif(isnull(forms![Dialogo Datas]!Data);Forms!CalendárioDia!CDataGeral
;Forms![Dialogo Datas]!Data)

A tecnica para o uso do selmed está nesta vídeo-aula, lá pelo minuto 15

http://www.usandoaccess.com.br/tutoriais/tuto31.asp?id=1#inicio

Sucesso!

Uma outra saída pode ser tambem colocar o critério no próprio formulário, no botão que abre o relatório.

Isso mesmo Valdino, seria muito mais simples!

Algo assim Assis:

docmd.OpenReport "NomeRelatório",acViewPreview ,,"NomeCampoData = #" & format("mm/dd/yyyy",me!CDataGeral) & "#"

Sucesso!

Boa Noite

A BD tem 2 Forms.
A ideia é visualizar o relatório "Movimentos Dia" a partir de um e de outro form.

O Form CalendárioDia é ao clikar no dia do calendário ver os registos do dia selecionado dia 28, ou 29 Janeiro

O Form Dialogo Datas a ideia é abrir o mesmo relatório e ver os registos do campo data em baixo.

Obrigado

Ola Assis;

Veja se serve assim, SEM criterios na consulta que alimanta o seu Relatório.

Faça o teste nos dois formularios, um de cada vez para a data de 28/01/2012 ou 29/01/2012.

http://dl.dropbox.com/u/771097/CampoComDuploCriterioAssis_OLD.rar

Boa noite JPaulo

Obrigado mas os critérios neste caso não podem estar no form, principalmente este Dialogo Datas, já que na caixa onde aparece o nome do relatório "Movimentos Dia", também aparecem outros relatórios que não são filtrados pela data, e chamados pelo mesmo botão de comando

Na consulta era o ideal.

Ok;

Veja se serve assim, sem consulta e filtra como quiser.

Faça o teste para as datas 28/01/2012 ou 29/01/2012

http://dl.dropbox.com/u/771097/CampoComDuploCriterioAssisOLD_II.rar

1º Foi retirado o Record Source do Relatorio "Movimentos Dia"

2º Através de um codigo de verificação "IsLoaded" obtemos qual o form aberto, é enviada a data para o cabeçalho do relatorio.

Private Sub Report_Load()
If IsLoaded("Dialogo Datas") = True Then
Me.txtData.Value = Forms![Dialogo Datas]![Data]
Else
Me.txtData.Value = Forms![CalendárioDia]![CDataGeral]
End If
End Sub

3º No formulario do "CalendarioDia" ficou assim:

Private Sub Moldura_Click()
Dim strSQL As String
On Error GoTo 1
If MsgBox("Confirma a Impressão dos Movimentos do Dia " & [CDataGeral], vbYesNo, "Gestão de Despesas") = vbYes Then

strSQL = "SELECT * FROM tblVendas Where Data=#" & Me.CDataGeral & "#"

DoCmd.OpenReport "Movimentos Dia", acViewPreview, , , , strSQL

Else
DoCmd.CancelEvent
End If
On Error Resume Next 'erro 2501 caso você cancele a impressão
If Err = 2501 Then
Err.Clear
DoCmd.Close
End If

1: Me.Moldura.SetFocus

End Sub

4º No formulario "Dialogo Datas":

Private Sub cmdPreview_Click()
Dim strSQL As String
On Error Resume Next

If IsNull(Me.lstInformes) Then
MsgBox "Selecione primeiro o Relatório"
Else
If MsgBox("Confirma a Visualização do " & lstInformes & " ", vbYesNo, "Controle de Stoks") = vbYes Then

strSQL = "SELECT * FROM tblVendas Where Data=#" & Me.Data & "#"

DoCmd.OpenReport "" & lstInformes & "", acViewPreview, , , , strSQL

Else
DoCmd.CancelEvent
End If
On Error Resume Next 'erro 2501 caso você cancele a impressão
If Err = 2501 Then
Err.Clear
DoCmd.Close
End If
End If
End Sub

Boa noite JPaulo

Como o amigo diz

Existe muita maneira de fazer nestum .... mas é preciso saber as maneira de como o fazer...

Obrigado

Obrigado pelo retorno Assis, o forum agradece.

Boa tarde JPaulo

Estou a tentar aplicar para um abrir um formulário e não estou a conseguir.

Alterei o que está a vermelho mas o form não abre

Private Sub Moldura_Click()
Dim strSQL As String
On Error GoTo 1
If MsgBox("Confirma a Impressão dos Movimentos do Dia " & [CDataGeral], vbYesNo, "Gestão de Despesas") = vbYes Then

strSQL = "SELECT * FROM tblVendas Where Data=#" & Me.CDataGeral & "#"

DoCmd.OpenForm "NomeDoFormulário", acViewPreview, , , , strSQL

Else
DoCmd.CancelEvent
End If

1: Me.Moldura.SetFocus

End Sub

Para formulario é diferente;

Veja:



Private Sub Moldura_Click()
Dim strCriterio As String
On Error GoTo 1
If MsgBox("Confirma a Impressão dos Movimentos do Dia " & [CDataGeral], vbYesNo, "Gestão de Despesas") = vbYes Then

strCriterio = "[Data]=#" & Format(CDataGeral, "dd-mm-yyyy") & "#"

DoCmd.OpenForm "SeuFormulario", , , strCriterio

Else
DoCmd.CancelEvent
End If
On Error Resume Next 'erro 2501 caso você cancele a impressão
If Err = 2501 Then
Err.Clear
DoCmd.Close
End If

1: Me.Moldura.SetFocus

End Sub

Obrigado
JPaulo

Valew pelo retorno o forum agradece.