[Resolvido]O que escrevi de errado? [Código]

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

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


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

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

é 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

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

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

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

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

Anexo Não veio

precisa mesmo do base de dados toda?

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.

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

Resolvido