[Resolvido]Chamar função de um Sub Formulario

Boa tarde
Tenho esta Função num Form que bloqueia o campo "ValorTotal".

Private Sub Form_Current()
If Me.ValorTotal.Value > 0 Then
Me.Peso.Enabled = False
Else
Me.Peso.Enabled = True
End If

Neste "Form Principal" tem um "SubForm" que tem um botão de comando. E eu que ao clikar nesse botão ele chama-se a função "Call Form_Current ", que está no "Form Principal".

Obrigado

Qual é a dúvida amigão?

Boas Hary

É a dúvida de não saber como ....

Ola Assis, estou a caminho das amendoas.

Transforme em Public em vez do habitual Private

Public Sub Form_Current()
If Me.ValorTotal.Value > 0 Then
Me.Peso.Enabled = False
Else
Me.Peso.Enabled = True
End If


No subform chame assim;

Private Sub SeuBotão_Click()
Call Parent.Form_Current
End Sub

Feliz Pascoa

Bem... apesar de eu nõ saber o que é "caminho das amendoas" rsrsrs
creio que a resposta do mestre João paulo diz tudo...

Abraços a todos

Boa noite JPaulo
Obrigado e Feliz Pascoa

Obrigado pelo retorno Assis.

Harysohn Amigão, é o simples:

Estamos na Páscoa e as amendoas são a minha perdição....rsrsrsr....