none
EXCEL VBA - Multipage RRS feed

  • Pergunta

  • Boa tarde!

    Estou tentando realizar uma caixa de seleção, onde quando marcada exiba as informações constantes em uma multipage.

    Ocorre que quando coloco o comando para exibir a multipage ele não exibe, e dá erro informando que o parâmetro é incompatível.

    Private Sub CheckBoxDS_Click()
    If CheckBoxDS.Value = True Then
    Elself: DSMENU.Show
    Else: DSMENU = False
    End If
    End Sub

    Alguém pode me orientar como corrigir este erro?

    quarta-feira, 2 de setembro de 2015 19:59

Respostas

  • Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

    ---

    Sobre sua dúvida, o que é DSMENU? Uma variável que representa um controle Multipage? Se sim, tente usar este código:

    Private Sub CheckBoxDS_Click()
        If CheckBoxDS.Value = True Then
            DSMENU.Visible = True
        Else
            DSMENU.Visible = False    
        End If
    End Sub

    ou, simpelsmente:

    Private Sub CheckBoxDS_Click()
        DSMENU.Visible = CheckBoxDS.Value
    End Sub
    


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 2 de setembro de 2015 20:46
    Moderador