none
Formulário RRS feed

  • Pergunta

  • 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?


    sexta-feira, 20 de novembro de 2015 17:04

Respostas

  • 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

    sábado, 21 de novembro de 2015 02:20
  • 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


    terça-feira, 24 de novembro de 2015 18:26
    Moderador

Todas as Respostas

  • 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

    sábado, 21 de novembro de 2015 02:20
  • André, boa tarde.

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

    terça-feira, 24 de novembro de 2015 17:43
  • 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


    terça-feira, 24 de novembro de 2015 18:26
    Moderador