MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    interromper vb

    avatar
    marceloamaro10
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 29/08/2014

    interromper vb Empty interromper vb

    Mensagem  marceloamaro10 14/8/2015, 21:05

    tenho essa vb

    Mais não consigo resolver o problema

    teria como alguém me ajudar?
    segue o código abaixo
    _______________________________________________________________________________
    Sub teste()
       
    If Not Range("B4") = 0 Then

       Texto = "Volume Clonado. deseja continuar?"
       Título = "Confirmação"
       CxDialog = MsgBox(Texto, vbYesNo + vbQuestion, Título)
     
       If CxDialog = vbYes Then
       
       End If

    End If

       Range("A4").Select

    End Sub
    __________________________________________________________________________________-

    o código acima
    eu preciso que quando for igual a zero executasse outra vb
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    interromper vb Empty Re: interromper vb

    Mensagem  LiveBrain 14/8/2015, 22:06

    Pelo que entendi, se for selecionado vbNo o código tem que ser encerrado, caso contrário ( vbYes ) o código continua certo?


    se for isso que entendi altere a parte do seu código abaixo

    Código:
    If CxDialog = vbYes Then
     
    End If

    por

    Código:
    If CxDialog = vbNo Then
        Exit Sub
    End If


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    avatar
    marceloamaro10
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 29/08/2014

    interromper vb Empty interromper vb

    Mensagem  marceloamaro10 15/8/2015, 14:43

    LiveBrain

    pela sua atenção obrigado
    mas eu queria te explicar melhor e não sei como te enviar o arquivo
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    interromper vb Empty Re: interromper vb

    Mensagem  Silvio 15/8/2015, 15:28

    Senhores, se me permitem....

    O fórum Maximoaccess, é destinado apenas ao Ms Access e o ambiente que o mesmo envolve.

    Sugiro então, ver esse link, que é próprio para o Ms Excel e o ambiente envolvido ao mesmo.

    http://www.planilhando.com.br/forum/viewforum.php?f=10

    Grato pela compreensão de todos.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    interromper vb Empty Re: interromper vb

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 14:26