MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Problemas no botão cancelar

    Compartilhe

    lulenunes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 05/06/2015

    Problemas no botão cancelar

    Mensagem  lulenunes em Qua 05 Jul 2017, 16:47

    Caros amigos, boa tarde.

    Mais uma vez venho pedir a ajuda de vocês:
    Criei um pequeno formulário chamado "CxaComb_Relatorios" contendo uma caixa de combinação, como qual, o operador poderá escolhe o tipo de relatório que deseja, nele lancei o código abaixo:

    Private Sub CxaComb_Relatorios_AfterUpdate()
    If CxaComb_Relatorios = "Todos Contatos" Then
    DoCmd.OpenReport "RL_ComerLigGeral", acViewPreview
    DoCmd.Maximize
    ElseIf CxaComb_Relatorios = "Todos Contatos Período" Then
    DoCmd.OpenReport "RL_ComerLigGeralPer", acViewPreview
    DoCmd.Maximize
    ElseIf CxaComb_Relatorios = "Contatos por Consultor" Then
    DoCmd.OpenReport "RL_RelConsultor", acViewPreview
    DoCmd.Maximize
    ElseIf CxaComb_Relatorios = "Contatos por Consultor e Período" Then
    DoCmd.OpenReport "RL_RelConsultorPeriodo", acViewPreview
    DoCmd.Maximize
    End If
    End Sub

    Ele funciona perfeitamente, o caso está quando cancelo a operação, ou seja, solicito a emissão do relatório "Contatos por Consultor", ele abre a caixa de diálogo solicitando o nome do consultor e um botão "OK" e outro "Cancelar", quando clico em cancelar ele vai para o depurador, já tentei algumas formas como inserção do "On error" mas não funciona ou devo ter colocado de forma errada.

    A dúvida é, como devo proceder para que ao cancelar qualquer uma das chamadas ele simplesmente feche a caixa de diálogo (que contem OK e Cancelar) e volte ao formulário "CxaComb_Relatorios"? Tenho pesquisado, porém, não achei nada quando utilizado o "IF" com várias opções.

    grato a todos.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    Registrado : 05/02/2010

    Problemas no botão Cancelar

    Mensagem  good guy em Qua 05 Jul 2017, 18:11

    Olá nunes,

    Experimente neste evento do botão Cancelar de sub-rotina colocar:

    DoCmd.Close acform, Me.Name
    DoCmd.Openform "CxaComb_Relatorios"

      Data/hora atual: Ter 21 Nov 2017, 19:12