MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Como proceder para realizar uma chamada de procedimento ao fechar um formulário desacoplado.

    Compartilhe
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3952
    Registrado : 20/04/2011

    [Resolvido]Como proceder para realizar uma chamada de procedimento ao fechar um formulário desacoplado.

    Mensagem  Silvio em Qua Abr 18, 2018 8:57 am

    Bom dia Selva....

    Como faço para realizar uma chamada de procedimento que se encontra em um subformulário, ao fechar um formulário desacoplado ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1275
    Registrado : 21/01/2012

    Re: [Resolvido]Como proceder para realizar uma chamada de procedimento ao fechar um formulário desacoplado.

    Mensagem  Cláudio Más em Qua Abr 18, 2018 9:44 am

    Bom dia,

    Crie um procedimento em um módulo com o código do subformulário, com as eventuais adaptações necessárias, e chame esse procedimento no evento "Ao fechar" do formulário.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3952
    Registrado : 20/04/2011

    Re: [Resolvido]Como proceder para realizar uma chamada de procedimento ao fechar um formulário desacoplado.

    Mensagem  Silvio em Qua Abr 18, 2018 10:32 am

    Claudio bom dia.

    Problema aqui....
    Function Alterar()



    If Forms!Frmpedido!PrecoVista = True And Forms!Frmpedido!Forneoculta = "Araça Baby" And Me.CodProdutoOculta = Me.CboCodProd Then
    Me.PrecoVenda.Value = Forms!Frmpedido!LstPrecoAraca.Column(3)

    '30dd
    ElseIf Forms!Frmpedido!Forneoculta = "Araça Baby" And Forms!Frmpedido!Preco30 = True And Me.CodProdutoOculta = Me.CboCodProd Then
    Me.PrecoVenda.Value = Forms!Frmpedido!LstPrecoAraca.Column(4)

    '60dd
    ElseIf Forms!Frmpedido!Forneoculta = "Araça Baby" And Forms!Frmpedido!Preco60 = True And Me.CodProdutoOculta = Me.CboCodProd Then
    Me.PrecoVenda.Value = Forms!Frmpedido!LstPrecoAraca.Column(5)

    '90dd
    ElseIf Forms!Frmpedido!Forneoculta = "Araça Baby" And Forms!Frmpedido!Preco90 = True And Me.CodProdutoOculta = Me.CboCodProd Then
    Me.PrecoVenda.Value = Forms!Frmpedido!LstPrecoAraca.Column(6)

    '120dd
    ElseIf Forms!Frmpedido!Forneoculta = "Araça Baby" And Forms!Frmpedido!Preco120 = True And Me.CodProdutoOculta = Me.CboCodProd Then
    Me.PrecoVenda.Value = Forms!Frmpedido!LstPrecoAraca.Column(7)

    End If
    End Function

    Essa função que preciso fazer, mas ao compilar está dando erro "Uso invalido para palavra Me"


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Como proceder para realizar uma chamada de procedimento ao fechar um formulário desacoplado.

    Mensagem  Noobezinho em Qua Abr 18, 2018 10:44 am

    Silvio

    [Me] = Se refere ao Formulário em que vc está usando o código.

    Fora dele, deve usar o Forms!NomeDoFormulario!NomeControle.

    Pelo jeito nunca teve a curiosidade de saber o que essa simples palavra significa.

    [ ]'s


    Última edição por Noobezinho em Qua Abr 18, 2018 11:14 am, editado 1 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3952
    Registrado : 20/04/2011

    Re: [Resolvido]Como proceder para realizar uma chamada de procedimento ao fechar um formulário desacoplado.

    Mensagem  Silvio em Qua Abr 18, 2018 10:49 am

    Nossa Noob, nem fale viu.....

    A situação é meio complicada aqui. Sair da área de exatas...e ir para a humanas, tem sido meio complicado para mim.

    Depois lhe mandou um PVT lhe explicando o que está ocorrendo.

    Mas valeu o puxão sim....preciso focar mais a atenção.

    Quanto ao uso do Me, sim...eu procurei saber sim, pode ter a certeza disso.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5293
    Registrado : 15/03/2013

    Re: [Resolvido]Como proceder para realizar uma chamada de procedimento ao fechar um formulário desacoplado.

    Mensagem  ahteixeira em Qua Abr 18, 2018 11:20 am

    Olá a todos,

    Silvio, mesmo seguindo as indicações de ambos os colegas, ao chamar à função vai ter que estar aberto, nem que seja como oculto.

    Abraço a todos
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3952
    Registrado : 20/04/2011

    Re: [Resolvido]Como proceder para realizar uma chamada de procedimento ao fechar um formulário desacoplado.

    Mensagem  Silvio em Qua Abr 18, 2018 11:34 am

    Olá a todos...

    Então....

    O formulário com o sub, ficam abertos.

    Ao escolher um código do produto no subFrm, ele abre um formulário desacoplado que contém as cores que esse produto tem.

    Nesse Frm desacoplado, no evento on click de fechar o mesmo coloquei a chamada para o módulo e nada acontece.

    Evento ao clicar do Frm Desacoplado
    Código:
    Private Sub bt_voltar_Click()
    Call Alterar
    DoCmd.Close
    End Sub

    Módulo criado para alterar o preço. Esses preços estão no formulário principla ( FrmPedido )
    Código:
    Function Alterar()

    If Forms!FrmPedido!PrecoVista = True And Forms!FrmPedido!Forneoculta = "Araça Baby" And Forms!FrmPedido!SFrmDpedido!CodProdutoOculta = Forms!FrmPedido!SFrmDpedido!CboCodProd Then
    Forms!FrmPedido!SFrmDpedido!PrecoVenda.Value = Forms!FrmPedido!LstPrecoAraca.Column(3)

    '30dd
    ElseIf Forms!FrmPedido!Forneoculta = "Araça Baby" And Forms!FrmPedido!Preco30 = True And Forms!FrmPedido!SFrmDpedido!CodProdutoOculta = Forms!FrmPedido!SFrmDpedido!CboCodProd Then
    Forms!FrmPedido!SFrmDpedido!PrecoVenda.Value = Forms!FrmPedido!LstPrecoAraca.Column(4)

    '60dd
    ElseIf Forms!FrmPedido!Forneoculta = "Araça Baby" And Forms!FrmPedido!Preco60 = True And Forms!FrmPedido!SFrmDpedido!CodProdutoOculta = Forms!FrmPedido!SFrmDpedido!CboCodProd Then
    Forms!FrmPedido!SFrmDpedido!PrecoVenda.Value = Forms!FrmPedido!LstPrecoAraca.Column(5)

    '90dd
    ElseIf Forms!FrmPedido!Forneoculta = "Araça Baby" And Forms!FrmPedido!Preco90 = True And Forms!FrmPedido!SFrmDpedido!CodProdutoOculta = Forms!FrmPedido!SFrmDpedido!CboCodProd Then
    Forms!FrmPedido!SFrmDpedido!PrecoVenda.Value = Forms!FrmPedido!LstPrecoAraca.Column(6)

    '120dd
    ElseIf Forms!FrmPedido!Forneoculta = "Araça Baby" And Forms!FrmPedido!Preco120 = True And Forms!FrmPedido!SFrmDpedido!CodProdutoOculta = Forms!FrmPedido!SFrmDpedido!CboCodProd Then
    Forms!FrmPedido!SFrmDpedido!PrecoVenda.Value = Forms!FrmPedido!LstPrecoAraca.Column(7)

    End If
    End Function


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Como proceder para realizar uma chamada de procedimento ao fechar um formulário desacoplado.

    Mensagem  Noobezinho em Qua Abr 18, 2018 11:38 am

    Silvio

    Experimente no evento Ao desativar do form.


    Última edição por Noobezinho em Qua Abr 18, 2018 3:30 pm, editado 1 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3952
    Registrado : 20/04/2011

    Re: [Resolvido]Como proceder para realizar uma chamada de procedimento ao fechar um formulário desacoplado.

    Mensagem  Silvio em Qua Abr 18, 2018 3:17 pm

    Noob....nada acontece.

    Já tentei ao desativar, ao fechar.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3952
    Registrado : 20/04/2011

    Re: [Resolvido]Como proceder para realizar uma chamada de procedimento ao fechar um formulário desacoplado.

    Mensagem  Silvio em Qua Abr 18, 2018 4:25 pm

    Senhores, fiz uma solução caseira, sei que não é das melhores porém devido ao curto espaço de tempo foi o que fiz de melhor.
    Expresso aqui meus agradecimentos a todos indistintamente que me apoiaram e me ajudaram.


    Código:
    Private Sub CboCodProd_AfterUpdate()
    Me.CodProdutoOculta = Me.CboCodProd.Column(1)
    Me.Artigo = Me.CboCodProd.Column(2)
    Me.Cor = Me.CboCodProd.Column(3)
    Me.Tamanho = Me.CboCodProd.Column(4)
    Me.PrecoVenda = Me.CboCodProd.Column(5) 'preço de venda normal
    Me.TipoColecao = Me.CboCodProd.Column(11)
    Me.T12.SetFocus



    ' preço a vista
    If Forms!Frmpedido!PrecoVista = -1 Then
    Me.CodProdutoOculta = Me.CboCodProd.Column(1)
    Me.Artigo = Me.CboCodProd.Column(2)
    Me.Cor = Me.CboCodProd.Column(3)
    Me.Tamanho = Me.CboCodProd.Column(4)
    Me.PrecoVenda = Me.CboCodProd.Column(6) 'preço de venda a vista
    Me.TipoColecao = Me.CboCodProd.Column(11)
    Me.T12.SetFocus

        ' preço para 30DD
        ElseIf Forms!Frmpedido!Preco30 = -1 Then
        Me.CodProdutoOculta = Me.CboCodProd.Column(1)
        Me.Artigo = Me.CboCodProd.Column(2)
        Me.Cor = Me.CboCodProd.Column(3)
        Me.Tamanho = Me.CboCodProd.Column(4)
        Me.PrecoVenda = Me.CboCodProd.Column(7) 'preço de venda 30DD
        Me.TipoColecao = Me.CboCodProd.Column(11)
        Me.T12.SetFocus
           
        ' preço para 60DD
        ElseIf Forms!Frmpedido!Preco60 = -1 Then
        Me.CodProdutoOculta = Me.CboCodProd.Column(1)
        Me.Artigo = Me.CboCodProd.Column(2)
        Me.Cor = Me.CboCodProd.Column(3)
        Me.Tamanho = Me.CboCodProd.Column(4)
        Me.PrecoVenda = Me.CboCodProd.Column(8) 'preço de venda 60DD
        Me.TipoColecao = Me.CboCodProd.Column(11)
        Me.T12.SetFocus
       
        ' preço para 90DD
        ElseIf Forms!Frmpedido!Preco90 = -1 Then
        Me.CodProdutoOculta = Me.CboCodProd.Column(1)
        Me.Artigo = Me.CboCodProd.Column(2)
        Me.Cor = Me.CboCodProd.Column(3)
        Me.Tamanho = Me.CboCodProd.Column(4)
        Me.PrecoVenda = Me.CboCodProd.Column(9) 'preço de venda 90DD
        Me.TipoColecao = Me.CboCodProd.Column(11)
        Me.T12.SetFocus
       
        ' preço para 120DD
        ElseIf Forms!Frmpedido!Preco120 = -1 Then
        Me.CodProdutoOculta = Me.CboCodProd.Column(1)
        Me.Artigo = Me.CboCodProd.Column(2)
        Me.Cor = Me.CboCodProd.Column(3)
        Me.Tamanho = Me.CboCodProd.Column(4)
        Me.PrecoVenda = Me.CboCodProd.Column(10) 'preço de venda 120DD
        Me.TipoColecao = Me.CboCodProd.Column(11)
        Me.T12.SetFocus
        End If
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Como proceder para realizar uma chamada de procedimento ao fechar um formulário desacoplado.

    Mensagem  Noobezinho em Qua Abr 18, 2018 4:43 pm

    É isso Silvio

    Usamos a ferramenta ao nosso alcance Wink

    Amanhã se encontrar coisa melhor. se substitui.

    [ ]'s



      Data/hora atual: Sex Jul 20, 2018 11:47 am