MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Operar campos de um sub-formulário de outro formulário

    avatar
    Sgsamuka
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 03/12/2020

    Operar campos de um sub-formulário de outro formulário Empty Operar campos de um sub-formulário de outro formulário

    Mensagem  Sgsamuka 17/3/2021, 17:50

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4118
    Registrado : 29/06/2012

    Operar campos de um sub-formulário de outro formulário Empty Re: Operar campos de um sub-formulário de outro formulário

    Mensagem  Noobezinho 21/3/2021, 13:57

    Samuel

    É necessário referenciar o sub formulário:

    Forms!Saida_Prod!Relacao_Prod_Saida.Form!SetFocus

    Onde tiver que referênciar o subformulário de um formuário, coloque a palavra Form após

    nome do sub formulário.

    Experimente, se não funfar retorne.

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 14/6/2021, 07:08