Olá amigos,
Estou com seguinte problema
Tenho um formulário (Saida_Prod) e dentro dele tenho um sub-formulário (Relacao_Prod_Saida). Realizando um tipo de venda especial eu clico em um botão do formulário (Saida_Prod) que me leva a outro formulário (Saida_Anotada), deste formulário eu configuro os padrões dessa saída e concluo a venda. Ao clicar em concluir a venda no formulário (Saida_Anotada) ele roda um código (códibo abaixo), que deveria acessar o formulário (Saida_Prod) que já esta aberto, depois acessar o sub-formulário (Relacao_prod_Saida), focar no campo indicado pelo código (Att_Saida_Prod_Estoque) e depois pular para a próxima linha deste sub-formulário.
Este campo ao qual estou tentando acessar (Att_Saida_Prod_Estoque), possui um código que roda ao executar o evento (ao sair) e por meio deste código ao dou baixa no estoque dos produtos. O código deste campo está funcionando, quando faço as vendas direto do formulário (Saida_Prod) ele roda perfeitamente, porém ao tentar realizar o procedimento que descrevi acima, é como se ele não conseguisse acessar esse campo do subformulário.
Vocês poderiam me ajudar?
Código que roda ao concluir a venda do formulário (Saida_Anotada):
If MsgBox("Deseja concluir a venda armazenando o débito ao respectivo cliente?", vbInformation + vbYesNo, "Aviso") = vbYes Then
Forms![Saida_Prod]![Mostrar_Cliente] = Me.Cliente_Venda_Referente
Forms![Saida_Prod]![Soma_Preco_Prod_Venda] = Forms![Saida_Prod]![Relacao_Prod_Saida]![Soma_Valor_Saida]
Forms![Saida_Prod]![BC_ICMS_Venda] = Forms![Saida_Prod]![Relacao_Prod_Saida]![Soma_BC_ICMS]
Forms!Saida_Prod!Relacao_Prod_Saida.SetFocus
DoCmd.GoToRecord , , acFirst
Do While Forms!Saida_Prod!Relacao_Prod_Saida!Quant_Prod_Saida > 0
Forms!Saida_Prod!Relacao_Prod_Saida.SetFocus
Forms!Saida_Prod!Relacao_Prod_Saida!Att_Saida_Prod_Estoque.ColumnHidden = 0 'Exibir coluna com o campo de atualização
Forms!Saida_Prod!Relacao_Prod_Saida!Att_Saida_Prod_Estoque.SetFocus
DoCmd.GoToRecord , , acNext 'Vai para o próximo registro no subformulário
Forms!Saida_Prod!Relacao_Prod_Saida!Att_Saida_Prod_Estoque.ColumnHidden = -1 'Não exibir coluna com o campo de atualização
Loop
Estou com seguinte problema
Tenho um formulário (Saida_Prod) e dentro dele tenho um sub-formulário (Relacao_Prod_Saida). Realizando um tipo de venda especial eu clico em um botão do formulário (Saida_Prod) que me leva a outro formulário (Saida_Anotada), deste formulário eu configuro os padrões dessa saída e concluo a venda. Ao clicar em concluir a venda no formulário (Saida_Anotada) ele roda um código (códibo abaixo), que deveria acessar o formulário (Saida_Prod) que já esta aberto, depois acessar o sub-formulário (Relacao_prod_Saida), focar no campo indicado pelo código (Att_Saida_Prod_Estoque) e depois pular para a próxima linha deste sub-formulário.
Este campo ao qual estou tentando acessar (Att_Saida_Prod_Estoque), possui um código que roda ao executar o evento (ao sair) e por meio deste código ao dou baixa no estoque dos produtos. O código deste campo está funcionando, quando faço as vendas direto do formulário (Saida_Prod) ele roda perfeitamente, porém ao tentar realizar o procedimento que descrevi acima, é como se ele não conseguisse acessar esse campo do subformulário.
Vocês poderiam me ajudar?
Código que roda ao concluir a venda do formulário (Saida_Anotada):
If MsgBox("Deseja concluir a venda armazenando o débito ao respectivo cliente?", vbInformation + vbYesNo, "Aviso") = vbYes Then
Forms![Saida_Prod]![Mostrar_Cliente] = Me.Cliente_Venda_Referente
Forms![Saida_Prod]![Soma_Preco_Prod_Venda] = Forms![Saida_Prod]![Relacao_Prod_Saida]![Soma_Valor_Saida]
Forms![Saida_Prod]![BC_ICMS_Venda] = Forms![Saida_Prod]![Relacao_Prod_Saida]![Soma_BC_ICMS]
Forms!Saida_Prod!Relacao_Prod_Saida.SetFocus
DoCmd.GoToRecord , , acFirst
Do While Forms!Saida_Prod!Relacao_Prod_Saida!Quant_Prod_Saida > 0
Forms!Saida_Prod!Relacao_Prod_Saida.SetFocus
Forms!Saida_Prod!Relacao_Prod_Saida!Att_Saida_Prod_Estoque.ColumnHidden = 0 'Exibir coluna com o campo de atualização
Forms!Saida_Prod!Relacao_Prod_Saida!Att_Saida_Prod_Estoque.SetFocus
DoCmd.GoToRecord , , acNext 'Vai para o próximo registro no subformulário
Forms!Saida_Prod!Relacao_Prod_Saida!Att_Saida_Prod_Estoque.ColumnHidden = -1 'Não exibir coluna com o campo de atualização
Loop