none
EXCEL VBA - Multipage RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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