[Resolvido]Impedir o fechamento do access

ola

Qual comando devo acrescentar em meu projeto para nao permitir fechar o Access acidentalmente pelo "X" no canto superior lado direito da tela ?
Desejo fechar o Access somente atraves de Botao "FECHAR " que criei.

Andre

Na propriedade do formulario, procure por "Botão Fechar" coloque "não", isto fara que o botão fique visivel mas desabilitado.

Nao e o formulario e sim o proprio banco de dados. Aqui quando eu rodo meu projeto ja nao aparece as guias do Access, exceto se eu apertar o SHIFT.

Entao la em cima aparece o "X" do Banco de dados + o "X" do Formulario que este sim desativei. Mas se eu clicar no "X"do banco de dados o Acces se fecha.

Quero impedir isso. E somsnte se fechar por botao de comando que estara no Formulario.

Andre

Boa tarde,

No seu formulário Menu, no evento "Ao Descarregar", insira o seguinte código:

Private Sub Form_Unload(Cancel As Integer)
Dim rMsg As VbMsgBoxResult
rMsg = MsgBox("Deseja realmente fechar o sistema?", vbYesNo, "Aviso")

If rMsg = vbYes Then
DoCmd.Quit
Else
Cancel = True
End If
End Sub

Oi Livio, mas este adicional fica dentro do meu Form Menu correto ?

Mas acima deste tem outro "X" que se eu apertar ele fecha o banco todo.

Dentro do Meu Form "MENU" eu tenho ja um botao de fechamento conforme abaixo.

Código:



Private Sub ImSair_Click()
'************************************************
'Dim s
    Dim source As String
'    s = Split(CurrentProject.Name, ".")
    source = CurrentProject.Path & "\" & CurrentProject.Name
    destine = "E:\"
    destine2 = "C:\Gerencia\SysVendas\Backup\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fso2 = CreateObject("Scripting.FileSystemObject")
    destine = destine & "PDV-FazerBem " & Me.Versao.Caption & ".accdb" ' & s(1)
    destine2 = destine2 & "PDV-FazerBem " & Me.Versao.Caption & ".accdb" '& s(1)
 
 On Error Resume Next
    fso.CopyFile source, destine, True
    fso2.CopyFile source, destine2, True
    Set fso = Nothing
    MsgBox "Backup realizado com sucesso!!!"
'************************************************
  If MsgBox("Dejesa sair do sistema?", vbYesNo + vbInformation, "Saindo") = vbYes Then
    DoCmd.Quit
    Else
    End If
End Sub



Aqui funciona certinho ja. Porem se eu fechar o Banco de Dados no "X", nao e o x do Form, pois este desabilitei, e sim o X do Acess, este fecha.

Veja a imagem abaixo a qual "X"me refiro.



Grato

Andre

Veja que o Form MENU ja nao tem o "X" so tem o "X" do banco de dados.

Ola a todos,

Tema ja abordado, solucao topico abaixo:
https://www.maximoaccess.com/t34167-botao-fechar-do-access-x

[]'s

Teste

ola Assis, so pude ver agora as 18h de hj, sem net hj dia todo.

Andre

Grande Assis, ficou na medida exata do que eu queria !

Mais uma vez agradeço a vc, aliás a todos que de uma forma ou outra tem me ajudado e contribuido para que meu PDV ficasse da forma que eu queria.

Abraços e com certeza até a próxima.

André

Ficou Show sim!