Boas pessoal,
Tenho uma seguinte sequencia:
tblPedido.................tblPedidoDetalhe..................tblPedidoDetalheObs
PEDIDO 1..............DETALHE DO PEDIDO 1...............OBSERVACAO 1
PEDIDO 1..............DETALHE DO PEDIDO 1...............OBSERVACAO 2
PEDIDO 1..............DETALHE DO PEDIDO 2
PEDIDO 1..............DETALHE DO PEDIDO 3...............OBSERVACAO 3
Como podem ver um pedido pode ter vários detalhes e um detalhe pode ter varias observações ou nenhuma observação.
Tenho que localizar todas as observações de todos os detalhes de um pedido.
Os relacionamentos estão assim:
tblPedido.................tblPedidoDetalhe..................tblPedidoDetalheObs
IdPedido.....................IdentPedido
..................................IdDetalhe........................IdentPedidoDetalhe
Como eu poderia concluir esta consulta?
idDeta = Nz(DLookup("IdDetalhe", "tblPedidoDetalhe", "IdentPedido = " & Me.IdPedido & ""), "-1")
Set rsObs = CurrentDb.OpenRecordset("SELECT Comentario FROM tblPedidoDetalheObs WHERE IdentPedidoDetalhe = " & idDeta & And ??? & "")
Tenho uma seguinte sequencia:
tblPedido.................tblPedidoDetalhe..................tblPedidoDetalheObs
PEDIDO 1..............DETALHE DO PEDIDO 1...............OBSERVACAO 1
PEDIDO 1..............DETALHE DO PEDIDO 1...............OBSERVACAO 2
PEDIDO 1..............DETALHE DO PEDIDO 2
PEDIDO 1..............DETALHE DO PEDIDO 3...............OBSERVACAO 3
Como podem ver um pedido pode ter vários detalhes e um detalhe pode ter varias observações ou nenhuma observação.
Tenho que localizar todas as observações de todos os detalhes de um pedido.
Os relacionamentos estão assim:
tblPedido.................tblPedidoDetalhe..................tblPedidoDetalheObs
IdPedido.....................IdentPedido
..................................IdDetalhe........................IdentPedidoDetalhe
Como eu poderia concluir esta consulta?
idDeta = Nz(DLookup("IdDetalhe", "tblPedidoDetalhe", "IdentPedido = " & Me.IdPedido & ""), "-1")
Set rsObs = CurrentDb.OpenRecordset("SELECT Comentario FROM tblPedidoDetalheObs WHERE IdentPedidoDetalhe = " & idDeta & And ??? & "")