Pergunte aqui
1

Reconher o botão clicado em MsgBox

perguntadas 2017-12-19 00:18:22 +0200

updated 2018-01-04 00:53:19 +0200

Na macro abaixo:

Sub Incluir2
Dim Nome As String
Dim Idade As String
Dim Cidade As String
Dim sMsgBox As string
Dim Resposta As Integer
    Nome = InputBox("Nome a Incluir ?" )
    Idade = InputBox("Idade a incluir ?" )
    Cidade = InputBox("Cidade a incluir ?" )
    sMsgBox = "Os dados estão corretos ?" & Chr(10) & _
            "---------------------------" & Chr(10) & _
                    "Nome: " + Nome & Chr(10) & _
            "Idade: " + Idade & Chr(10) & _
            "Cidade: " + Cidade 
    MsgBox sMsgBox , 4   (mostra os botões Sim e Não )
    Resposta = MsgBox   <===================== acusa erro aqui 
        If Resposta = 7 Then   (botão 7 é Não)
            Exit Sub     ( interromper Macro)
    Call IrPara "$Incluir.$C$4"
.
.
.
.

Acusa o seguinte erro:

*Erro em tempo de execução do BASIC.
"5"
Chamada de procedimento inválida.*
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2017-12-19 00:38:43 +0200

imagem do gravatar de Olivier
Resposta = MsgBox (sMsgbox, 4)
editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2017-12-19 00:18:22 +0200

Lidas: 45 vezes

Última atualização: Dec 19 '17