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


    [Resolvido]Form. Desligamento e logoff do sistema

    avatar
    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 20/04/2017

    [Resolvido]Form. Desligamento e logoff do sistema Empty [Resolvido]Form. Desligamento e logoff do sistema

    Mensagem  daygdson em 22/3/2019, 18:02

    Boa tarde galera, estive ausente por esses tempos. Gostaria da ajuda de vcs para analisar um código relativamente simples, porém não estou conseguindo executá-lo.

    Seguinte, tenho um formulário com grupo de opções no qual seleciono "Desligar" ou "Reiniciar" o sistema. O problema que independente da seleção o sistema reinicia, em várias tentativas outras, consegui desligar. Não estou conseguindo empregar o código para reiniciar ou desligar no mesmo botão de confirmar seleção. Segue o código para análise.
    Código:
    Private Sub btnOk_Click()
    Dim Opcao As Boolean

    If MsgBox("Deseja executar esta ação?", vbQuestion + vbYesNo, "Logon") = vbYes Then

    Select Case Opcao = Me.cxOpcao.Value

    Case Opcao = 1

    DoCmd.Close
    DoCmd.OpenForm "Form_Login"

    Case Opcao = 2

    DoCmd.RunCommand acCmdRepairDatabase
    DoCmd.Quit

    End Select
    End If
    End Sub


    Quero saber porque não executa no select case, ou se tem outra forma de fazer isso. Obrigado a todos.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Form. Desligamento e logoff do sistema Empty Re: [Resolvido]Form. Desligamento e logoff do sistema

    Mensagem  Silvio em 22/3/2019, 18:46

    Boa tarde....

    Poste as partes envolvidas para melhor lhe ajudarmos.

    Grato


    .................................................................................
    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."
    avatar
    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 20/04/2017

    [Resolvido]Form. Desligamento e logoff do sistema Empty Re: [Resolvido]Form. Desligamento e logoff do sistema

    Mensagem  daygdson em 22/3/2019, 19:52

    Caro Silvio, obrigado pela atenção.

    Segue um pedaço do banco para vossa análise. o botão logoff no canto superior direito é o que chama o formulário e dá a opção de escolha da ação do sistema. como envolve a tela de login, criei um de teste. Login: teste / Senha: 123
    Anexos
    [Resolvido]Form. Desligamento e logoff do sistema Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (520 Kb) Baixado 6 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Form. Desligamento e logoff do sistema Empty Re: [Resolvido]Form. Desligamento e logoff do sistema

    Mensagem  Silvio em 22/3/2019, 20:07

    Boa tarde

    Experimente...

    Código:
    Private Sub btnOk_Click()
    If MsgBox("Deseja executar esta ação?", vbQuestion + vbYesNo, "Logon") = vbNo Then
      MsgBox "Ação cancelada pelo usuário", vbInformation, Me.Caption
      Exit Sub
     
      Else
      If Me.cxOpcao.Value = 1 Then
      DoCmd.Close acForm, "Menu"
      DoCmd.OpenForm "Form_Login"
      End If
     
          If Me.cxOpcao.Value = 2 Then
          MsgBox "Você está saindo do sistema", vbInformation, Me.Caption
          DoCmd.Quit
          End If
          End If
    End Sub


    .................................................................................
    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."
    avatar
    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 20/04/2017

    [Resolvido]Form. Desligamento e logoff do sistema Empty Re: [Resolvido]Form. Desligamento e logoff do sistema

    Mensagem  daygdson em 22/3/2019, 20:12

    Funcionou perfeitamente, obrigado Silvio pela atenção. Com as mensagens informativas ficou melhor ainda, havia tentado usando o If mas também reiniciava... ficou muito bom. Obriagado! (Resolvido)

    Conteúdo patrocinado

    [Resolvido]Form. Desligamento e logoff do sistema Empty Re: [Resolvido]Form. Desligamento e logoff do sistema

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/7/2019, 10:10