Srs.,
Preciso de uma ajuda.
Tenho uma tabela de Pedidos e uma de Detalhe de Pedidos. Utilizo um form de Pedidos para criar um pedido e um sub-form de Detalhe de Pedidos para atualizar os itens produtos do Pedido.
O problema é o seguinte:
Quando incluo um item no Detalhe do Pedido, testo se é para um Cliente específico, que está na tabela de Pedidos. Se for o Cliente X, preciso atualizar a tabela de Produtos desse Cliente, que não é a tabela de Produtos que está sendo utilizada pelo Sub-Form de Detalhe está no foco.
Como devo fazer isso, por favor? Já tentei de várias formas, mas não consigo atualizar essa outra tabela. Essa outra Tabela tem o nome de "ProdsLoja". O campo que preciso atualizar é o de quantidade de estoque "numQtdEst" da tabela "ProdsLoja".
O código que estou usando é esse:
If Forms!Pedido!TxnomeCli = "INTERNO CAFES" Then
Set rs = CurrentDb.OpenRecordset _
("SELECT codProd FROM ProdsLoja WHERE codProd = " & Me.cmbCodProd, dbOpenDynaset)
rs.Edit
rs!numQtdEst = rs!numQtdEst + Me.txQtd
rs.Update
End If
Agradeço antecipadamente.
Victor Trindade.
Preciso de uma ajuda.
Tenho uma tabela de Pedidos e uma de Detalhe de Pedidos. Utilizo um form de Pedidos para criar um pedido e um sub-form de Detalhe de Pedidos para atualizar os itens produtos do Pedido.
O problema é o seguinte:
Quando incluo um item no Detalhe do Pedido, testo se é para um Cliente específico, que está na tabela de Pedidos. Se for o Cliente X, preciso atualizar a tabela de Produtos desse Cliente, que não é a tabela de Produtos que está sendo utilizada pelo Sub-Form de Detalhe está no foco.
Como devo fazer isso, por favor? Já tentei de várias formas, mas não consigo atualizar essa outra tabela. Essa outra Tabela tem o nome de "ProdsLoja". O campo que preciso atualizar é o de quantidade de estoque "numQtdEst" da tabela "ProdsLoja".
O código que estou usando é esse:
If Forms!Pedido!TxnomeCli = "INTERNO CAFES" Then
Set rs = CurrentDb.OpenRecordset _
("SELECT codProd FROM ProdsLoja WHERE codProd = " & Me.cmbCodProd, dbOpenDynaset)
rs.Edit
rs!numQtdEst = rs!numQtdEst + Me.txQtd
rs.Update
End If
Agradeço antecipadamente.
Victor Trindade.