[Resolvido]Fechar Acess ao Fechar Ultimo Form Aberto

Bom dia. Gostaria de escrever um código assim para fechar o Access após o ultimo formulário aberto ser fechado.

Private Sub Form_Close()

If form1 and form2 and form3 estão fechados then
DoCmd.RunCommand acCmdExit

End Sub

Olá

Coloque este evento no último form a ser fechado:

Private Sub Form_Unload(Cancel As Integer)
  Application.Quit acQuitSaveAll
End Sub

Boa tarde! O comando para fechar o aplicativo (access) eu tenho. O que eu quero é que ele seja fechado apenas quando o último formulário for fechado. Este último formulário pode ser qualquer um. A idéia é ao se fechar o formulário 4, por exemplo:

If formulário1 and formulário2 and formulário3 estão fechados then
Application.Quit acQuitSaveAll
end if

OU ao se fechar o formulário 2

If formulário1 and formulário3 and formulário4 estão fechados then
Application.Quit acQuitSaveAll
end if

procure pela função IsLoad

No módulo:


Function IsLoad(strFormName As String) As Boolean

Const conDiseg = 0
Dim entX As Integer

IsLoad = False

For entX = 0 To Forms.Count - 1
If Forms(entX).Formname = strFormName Then
If Forms(entX).CurrentView <> conDiseg Then
IsLoad = True
Exit Function
End If
End If
Next

End Function



No Formulário 3, por exemplo:

Private Sub Form_Close()
If IsLoad("Form01") = False and Isload ("Form02") = False and Isload ("Form04") and = False then
Application.Quit acQuitSaveAll
End If

End Sub

duvido que funcione desse jeito, com erros

Function IsLoad(strFormName As String) As Boolean
Const conDiseg = 0
Dim entX As Integer

IsLoad = False
For entX = 0 To Forms.Count - 1
If Forms(entX).Formname = strFormName Then
If Forms(entX).CurrentView <> conDiseg Then
IsLoad = True
Exit Function
End If
End If
Next
End Function



No Formulário 3, por exemplo:

Private Sub Form_Close()
If IsLoad("Form01") = False and Isload ("Form02") = False and Isload ("Form04") and = False then
Application.Quit acQuitSaveAll
End If
End Sub


corrigido;

Function IsLoad(strFormName As String) As Boolean
Const conDiseg = 0
Dim entX As Integer

IsLoad = False
For entX = 0 To Forms.Count - 1
If Forms(entX).Form.name = strFormName Then
If Forms(entX).CurrentView <> conDiseg Then
IsLoad = True
Exit Function
End If
End If
Next
End Function



No Formulário 3, por exemplo:

Private Sub Form_Close()
If IsLoad("Form01") = False and Isload ("Form02") = False and Isload ("Form04") = False then
Application.Quit acQuitSaveAll
End If
End Sub

Bom dia Ricardo! Funciona com ou sem a sua alteração na função. Já o código sub realmente estava errado.

Obrigado

rapaz na função jamais poderia funcionar, porque no vba não existe Formname mas Form.name

Hehe! Mas funciona com Formname! Testei exaustivamente. Essa função não foi eu quem elaborei, eu a copiei de um site americano. Mas eu não vou teimar com vc. Mas funciona!!! kakaka