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

    O que escrevi de errado? [Código]

    Compartilhe

    diogoisaias21
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 45
    Registrado : 01/09/2017

    O que escrevi de errado? [Código]

    Mensagem  diogoisaias21 em Seg 13 Nov 2017, 12:11

    Este é um código para a base de dados impedir de ser fechada, mas esta é a parte administrativa, e eu queria que a administração tivesse um botão que fechasse a base de dados sem problema, e consegui inclusive, o problema é quando se cliqua no botão "logout" do mesmo formulário ele alem de fazer o que está no código, fecha inclusive a base de dados, enquanto só queria que fechasse aquele formulário e abrisse o de Login Sad

    Código:

    Private Sub cmdExit_Click()
    pblnAllowClose = True
    DoCmd.Quit
    End Sub

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.Dirty Then
         Me.Undo
      End If
    End Sub

    Private Sub Form_Load()
    pblnAllowClose = False
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    Dim blnOKToClose As Boolean

      blnOKToClose = True

       If pblnAllowClose = False Then
           MsgBox "Não é permitido Fechar a base de Dados :("
           Cancel = True
           blnOKToClose = False
      End If
     
      If blnOKToClose = True Then
         DoCmd.Quit
      End If
    End Sub

    Private Sub Logout_Click()
    pblnAllowClose = True
    DoCmd.Close
    DoCmd.OpenForm "Login"
    End Sub
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: O que escrevi de errado? [Código]

    Mensagem  FabioPaes em Seg 13 Nov 2017, 12:17

    Ola, meu amigo, esse comando aqui fecha a Base de Dados...
    DoCmd.Quit


    .................................................................................
    _____________________________________________________________________
    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!

    diogoisaias21
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 45
    Registrado : 01/09/2017

    Re: O que escrevi de errado? [Código]

    Mensagem  diogoisaias21 em Seg 13 Nov 2017, 12:21

    Obrigado pela resposta

    Eu tentei colocar close, mas dá um erro

    A Ação "close" foi cancelada

    Eu também tenho um código muito semelhante no formulário login, e quando cliquava no logout, aparecia uma msgbox que continha no codigo parecido do form Login

    Código do for Login:
    Código:
    Option Compare Database
    Option Explicit
    Public pblnAllowClose As Boolean

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.Dirty Then
          Me.Undo
       End If
    End Sub

    Private Sub Form_Load()
    pblnAllowClose = False
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    Dim blnOKToClose As Boolean

       blnOKToClose = True

        If pblnAllowClose = False Then
            MsgBox "Não é permitido Fechar a base de Dados :("
            Cancel = True
            blnOKToClose = False
       End If
      
       If blnOKToClose = True Then
          DoCmd.Quit
       End If

    End Sub

    diogoisaias21
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 45
    Registrado : 01/09/2017

    Re: O que escrevi de errado? [Código]

    Mensagem  diogoisaias21 em Seg 13 Nov 2017, 12:28

    é como se ele tivesse a ir buscar o código do Form Login

    Porque quando cliquo no botão Sair da Base de Dados, ele assume a mensagem "Não é possivel fechar a base de Dados" e  o botão nem se encontra no Form "Login", mas sim no form "CVP" mas a base de dados é fechada na mesma
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: O que escrevi de errado? [Código]

    Mensagem  FabioPaes em Seg 13 Nov 2017, 12:54

    Experimente informar também no Nome do Formulário...
    docmd.Close acForm,"NomeFormulario"


    .................................................................................
    _____________________________________________________________________
    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!

    diogoisaias21
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 45
    Registrado : 01/09/2017

    Re: O que escrevi de errado? [Código]

    Mensagem  diogoisaias21 em Seg 13 Nov 2017, 13:06

    Tentei assim: Da o o mesmo erro descrito acima
    "A Ação close foi cancelada"

    Código:
    Private Sub Form_Unload(Cancel As Integer)
    Dim blnOKToClose As Boolean

       blnOKToClose = True

        If pblnAllowClose = False Then
            Cancel = True
            blnOKToClose = False
       End If
      
       If blnOKToClose = True Then
          DoCmd.Close acForm, "CVP"
       End If
    End Sub
    Private Sub Logout_Click()
    pblnAllowClose = True
    DoCmd.Close acForm, "CVP"
    DoCmd.OpenForm "Login"
    End Sub

    E desta forma, ele fecha o formulário "CVP" abre o form "Login" e nele aberto aparece a mensagem "Não é possível fechar a base de dados ;(" e clico ok e ela fecha na mesma, e não devia fechar, nem aparecer a mensagem

    Código:
    Private Sub Form_Unload(Cancel As Integer)
    Dim blnOKToClose As Boolean

       blnOKToClose = True

        If pblnAllowClose = False Then
            Cancel = True
            blnOKToClose = False
       End If
      
       If blnOKToClose = True Then
          DoCmd.Quit
       End If
    End Sub

    Private Sub Logout_Click()
    pblnAllowClose = True
    DoCmd.Close acForm, "CVP"
    DoCmd.OpenForm "Login"
    End Sub


    Última edição por diogoisaias21 em Seg 13 Nov 2017, 15:54, editado 1 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: O que escrevi de errado? [Código]

    Mensagem  FabioPaes em Seg 13 Nov 2017, 15:48

    Poste aqui as partes envolvidas para que possamos dar uma olhada amigo!


    .................................................................................
    _____________________________________________________________________
    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!

    diogoisaias21
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 45
    Registrado : 01/09/2017

    Re: O que escrevi de errado? [Código]

    Mensagem  diogoisaias21 em Seg 13 Nov 2017, 15:51

    Formulário "Login" ( Ocultei apenas os usernames e passwords )
    Código:
    Option Compare Database
    Option Explicit
    Public pblnAllowClose As Boolean

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.Dirty Then
          Me.Undo
       End If
    End Sub

    Private Sub Form_Load()
    pblnAllowClose = False
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    Dim blnOKToClose As Boolean

       blnOKToClose = True

        If pblnAllowClose = False Then
            MsgBox "Não é permitido Fechar a base de Dados :("
            Cancel = True
            blnOKToClose = False
       End If
      
       If blnOKToClose = True Then
          DoCmd.Quit
       End If

    End Sub

    Formulário "CVP"
    Código:

    Option Compare Database
    Option Explicit
    Public pblnAllowClose As Boolean

    Private Sub Form_Unload(Cancel As Integer)
    Dim blnOKToClose As Boolean

       blnOKToClose = True

        If pblnAllowClose = False Then
            Cancel = True
            blnOKToClose = False
       End If
       
       If blnOKToClose = True Then
          DoCmd.Quit
       End If
    End Sub
    Private Sub Logout_Click()
    pblnAllowClose = True
    DoCmd.Close acForm, "CVP"
    DoCmd.OpenForm "Login"
    End Sub
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: O que escrevi de errado? [Código]

    Mensagem  FabioPaes em Seg 13 Nov 2017, 17:14

    Anexo Não veio


    .................................................................................
    _____________________________________________________________________
    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!

    diogoisaias21
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 45
    Registrado : 01/09/2017

    Re: O que escrevi de errado? [Código]

    Mensagem  diogoisaias21 em Seg 13 Nov 2017, 18:24

    precisa mesmo do base de dados toda?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: O que escrevi de errado? [Código]

    Mensagem  FabioPaes em Ter 14 Nov 2017, 12:41

    Preciso Somente das partes envolvidas amigo. Nesse Caso, nao preciso nem de dados!

    COpie as partes envolvidas para um Novo Banco de Dados, delete os registros e mande apenas com os usuários para Login.


    .................................................................................
    _____________________________________________________________________
    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!

    diogoisaias21
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 45
    Registrado : 01/09/2017

    Re: O que escrevi de errado? [Código]

    Mensagem  diogoisaias21 em Ter 14 Nov 2017, 14:34

    eu estou aqui numa guerra com a bd tentando modificar uma coisa que me pediram, mas eu já irei colocar para donwload

    Aguarde um instante por favor

      Data/hora atual: Ter 21 Nov 2017, 21:08