Formulário

Question

Pessoal, boa tarde.

Existe a possibilidade de abrir o mesmo formulário duas vezes? Ou seja, minimizar um formulário (1), de cadastro por exemplo, e abrir outro formulário (2). E depois de preencher o formulário (2) e fechá-lo, maximizar o formulário (1) e continuar o preenchimento?

Answer 1

Você pode esconder um UserForm e exibir o outro e vice-versa, conforme exemplo:

'Código do Form 1
Private Sub UserForm_Click()
Me.Hide
UserForm2.Show
End Sub

'Código do Form 2
Private Sub UserForm_Click()
Me.Hide
UserForm1.Show
End Sub

Answer 2

André, boa tarde.

A dúvida é abrir o mesmo formulário. Como se fosse uma cópia e depois preencher o 1º.

Answer 3

Num módulo ordinário, coloque o código:

Sub Main()
    Dim frmA As UserForm1
    
    Set frmA = New UserForm1
    frmA.Show
End Sub

No módulo de UserForm1, crie um botão de comando e coloque o códigoi:

Private Sub CommandButton1_Click()
    Dim frmB As UserForm1
    
    Set frmB = New UserForm1
    frmB.Show
End Sub

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br