[Resolvido]Caminho absoluto em consulta

Olá novamente,

Estou com problema serio com relação a algumas consultas

Tenho em algumas consultas com a referencia de onde esta sendo inserido a data, ate ai tudo bem

ex: Entre [forms]![producao_princ_port]![dt7] E [forms]![producao_princ_port]![dt8]

só que no entanto preciso criar uma nova caixa de data em um outro formulário que indique para esta consulta também...

ai a dúvida, eu consigo colocar um caminho absoluto onde os dois formularios consigam buscar a mesma consulta sem que eu tenha que criar outra consulta, ou alguma alternativa?

agradeço.

E a consulta serve para que propósito ? Alimentar um relatório ?

Olá,

serve para uma consulta de algumas informações de uma tabela inclusive de um campo data/hora onde é o x da questão

Pensei em algo assim:


Entre [forms]![producao_princ_port]![dt7] E [forms]![producao_princ_port]![dt8] ou Entre [forms]![producao]![dt7] E [forms]![producao]![dt8]

mas não funciona

Nobre, ficou assim funfou direitinho


Private Sub Comando73_Click()
Dim qry As QueryDef

Dim filtro As String

filtro = " WHERE [DATA_HORA_PORT_CHEG] Between #" & CDate(Format(Me!dt7, "mm/dd/yyyy")) & "# AND #" & CDate(Format(Me!dt8, "mm/dd/yyyy")) & "#;"

Set qry = CurrentDb.QueryDefs("tempo_permanencia_PortCheg_PortSaid")

qry.SQL = Mid(qry.SQL, 1, InStr(qry.SQL, "WHERE") - 1) & filtro

Set qry = Nothing

DoCmd.OpenReport ("tempo_permanencia_PortCheg_PortSaid"), acViewReport

End Sub




muito obrigado pela ajuda, até mais

Avelino,

desculpe a minha ignorancia, testei da ultima forma que me mostrou mas não rodou.

outra coisa no 1º exemplo funcionou só que notei que não aparece a data atual na pesquisa, bom eu utilizava formatar com o cdate e format
o campo DATA_HORA_PORT_CHEG devido ser um campo data geral (data e hora) ai sim rodava; conforme uma orientação q tive do Jpaulo.

Bom não era a forma que me mostrou no 2º momento, mas agora funcionou



Dim qry As QueryDef

Dim filtro As String

filtro = " WHERE CDate(Format([DATA_HORA_PORT_CHEG],'mm/dd/yyyy')) Between #" & CDate(Format(Me!dt7, "mm/dd/yyyy")) & "# AND #" & CDate(Format(Me!dt8, "mm/dd/yyyy")) & "#;"

Set qry = CurrentDb.QueryDefs("tempo_permanencia_PortCheg_PortSaid")

qry.SQL = Mid(qry.SQL, 1, InStr(qry.SQL, "WHERE") - 1) & filtro

Set qry = Nothing

DoCmd.OpenReport ("tempo_permanencia_PortCheg_PortSaid"), acViewReport

Nobre,

não esta executando mas com certeza ficaria menos complexa sem dúvida.

Tire o ponto e virgula do final

filtro = "CDate(Format([DATA_HORA_PORT_CHEG],'mm/dd/yyyy')) Between #" & CDate(Format(Me!dt7, "mm/dd/yyyy")) & "# AND #" & CDate(Format(Me!dt8, "mm/dd/yyyy")) & "#"

Boa! agora sim.

Parabéns

Valeu mesmo.