ROTINA DENTRO DO FORM_LOAD
Tenho um formulário [ô]frmPerfis[ô] que ao abrir ele faz a rotina [ô]Rotina1[ô] do [ô]Form_Load[ô] que fiz.
Dentro deste form tem um outro form [ô]frmPerfisAlterar[ô] e quando o chamo daà ao clicar no botão salvar ele grava as informações e depois faz o seguinte:
...
Unload Me
frmPerfis.Show
...
Ao abrir o [ô]frmPerfis[ô] entendo que a rotina do [ô]Form_Load[ô] (a [ô]Rotina1[ô]) deveria ser executada também. Porém isso não ocorre.
Como posso fazer isso funcionar?
Dentro deste form tem um outro form [ô]frmPerfisAlterar[ô] e quando o chamo daà ao clicar no botão salvar ele grava as informações e depois faz o seguinte:
...
Unload Me
frmPerfis.Show
...
Ao abrir o [ô]frmPerfis[ô] entendo que a rotina do [ô]Form_Load[ô] (a [ô]Rotina1[ô]) deveria ser executada também. Porém isso não ocorre.
Como posso fazer isso funcionar?
Se entendi bem o que passou, a rotina [ô]Form_Load[ô] do [ô]frmPerfis[ô] não é executada pois ele já esta carregado na memória. Esta rotina só é executada no momento do carregamento do form na memória, como o próprio nome dela já diz: [Ô]Form_Load[Ô].
Exatamente, gostaria de uma sugestão de como fazer para funcionar
Se entendi bem o que quer fazer uma rotina assim ja resolveria:
Adapte ai conforme sua necessidade
Private Sub Command1_Click()
Dim f As New Form2
f.Show 1, Me
SuaFuncao
Set f = Nothing
End Sub
Private Sub Form_Load()
SuaFuncao
End Sub
Private Sub SuaFuncao()
[ô]metodos iniciais no Form_Load
End Sub
Adapte ai conforme sua necessidade
Certo MARCELOKROL, irei testar e retorno para dizer como ficou.
Fiz o seguinte:
Coloquei a [ô]RotinaRefresh[ô] como pública no [ô]frmPerfis[ô]. Ao salvar as alterações no [ô]frmPerfisAlterar[ô] daà usei o [ô]Call[ô] ficando assim o código:
...
Unload Me
Call frmPerfis.RotinaRefresh
frmPerfis.Show
...
Assim resolveu meu problema! Fica a dica
Coloquei a [ô]RotinaRefresh[ô] como pública no [ô]frmPerfis[ô]. Ao salvar as alterações no [ô]frmPerfisAlterar[ô] daà usei o [ô]Call[ô] ficando assim o código:
...
Unload Me
Call frmPerfis.RotinaRefresh
frmPerfis.Show
...
Assim resolveu meu problema! Fica a dica
Tópico encerrado , respostas não são mais permitidas