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


2 participantes

    Interromper o código

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    Interromper o código  Empty Interromper o código

    Mensagem  Agravina 13/5/2016, 20:06

    Como impedir de prosseguir o código

    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
    If DCount("*", "cns_categoria") = 0 Then
    MsgBox "Não há dados para Categoria especificada", vbOKOnly + vbCritical, "Sem dados"

    Cancelar aqui o evento se não houver dados

    End If
    If Me!TotalLucro > maior Then maior = Me!TotalLucro

    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Interromper o código  Empty Re: Interromper o código

    Mensagem  FabioPaes 13/5/2016, 21:34

    Tente assim e veja se Para:

    ......
    if....

    MsgBox "Não há dados para Categoria especificada", vbOKOnly + vbCritical, "Sem dados"
    'Apos a mensagem ele deve sair...
    Exit Sub
    .....


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 21/11/2024, 17:29