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

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 ?

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.

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"

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

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.

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

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

Silvio

Experimente no evento Ao desativar do form.

Noob....nada acontece.

Já tentei ao desativar, ao fechar.

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

É isso Silvio

Usamos a ferramenta ao nosso alcance

Amanhã se encontrar coisa melhor. se substitui.

[ ]'s