[Resolvido]Acionar um botão através de um subform

Boa tarde pessoal
tenho a seguente duvida

Tenho um formulário e dentro um subformulário. Nome do formulario (Frm_vendas) , nome do subformulario (Frm_vendasDet).
No formulário  (Frm_vendas)  existe  um botão de calculo, nome do botão (Calcular)
gostaria de saber se tem como acionar esse botão (Calcular) toda vez que eu atualizar um campo dentro do meu subformulario (Frm_vendasDet).

Bom dia Amigo


Crie o método que tem o calculo ex:

Public Sub Efetuar_calculo()

 ... dados do calculo

End Sub

E no evento do botão:

Private Sub btn_calcular_click()

    'chame o método
    Efetuar_calculo

End Sub

No  Frm_vendasDet, chame o metodo do Frm_vendas, assim:


No campo que ocorrerá o atualização é só chamar o método abaixo:

Form_Frm_vendas.Efetuar_calculo

Fernando

Na propriedade após atualização da caixa de texto:

Call Forms.FrmVendas.btnCalcular_click

Atente para isso:

O evento clicar do botão Calcular (veja que coloquei o nome de btnCalcular)  tem que ser public

Public Sub cmdCalcular_Click()

Para que o subformulário possa "enxergar" o evento do botão no formulário principal

Então é só mudar o private para public

[ ]'s

esta dando alguns erros vc tem algum exemplo ?

Aqui está um exemplo simples.

Não tem tabelas apenas o que precisa, como fazer para acionar o botão do formulário principal a partir do subformulário.

Veja que como não coloquei tabelas, tive que colocar a função Cdbl() para mudar de TipoCharacter(texto) para Double (número duplo) e

assim somar os dois números.

[ ]'s

ja existe no subform um camp com o nome ( aut_soma) com a funsão "=Soma([VALOR_TOTAL])"
e no formulario o campo (total) com a função "=[frm_vendasdet subformulário].[Formulário]![aut_soma]" e funciona normal
o erra e o seguinte toda x que ele atualiza a alteração ele sempre coloca o valor  anterior.
ja tentei colocar esses codigo para atualizar o subform ates  de executar a função.

me.requery
me.recalc
me.refresh  
If VarEspaco = 32 Then
  VarEspaco = 0
   Else
        Me.Recalc
        SendKeys "{F2}"
   End If
se for antes do codigo que
Me.txtTotal = CDbl(Me.subfrmTeste.Form!Texto1) + CDbl(Me.subfrmTeste.Form!Texto2)
o valor e "0"
depois do codigo não tem efeito continua jogando o valor do campo anterior
não consigo fazer com que o subform atualize o valor do campo "aut_soma"  ante de executar o codigo para que va o valor atualizado depois da alteração.

Fernando

Bem, agora só vendo o projeto para ver o que está pegando.

Se disponibilizar parte do teu projeto com as tabelas, consultas e formulários em questão, com alguns registros,

então poderemos analisar e tentar chegar a uma solução.

Alterei seu projeto de forma que fique da maneira que eu estou tendo dificuldade.
Ele esta com o mesmo erro do meu agora
O foco e no campo valor_REQ onde ele não tem a mesmo valor atualizado, após alterar o campo texto2

Aqui está o arquivo.

Desculpe a demora, correria :

[ ]'s

obrigado deu certo

Que bom que pude ajudar!

Valeu pelo retorno!

Boa sorte!

Saudações Caros!

Será que poderíamos ter acesso às alterações efetivadas no Projeto?