Je voudrais dire en vba :
si tous les fomulaires,etats,... sont fermes alors
apres quelques secondes, la base se ferme
Si on ouvre un objet quelconque avant la fin de la tempo,
on annule la fermeture.
Comment?
Merci d'avance
Je voudrais dire en vba :
si tous les fomulaires,etats,... sont fermes alors
apres quelques secondes, la base se ferme
Si on ouvre un objet quelconque avant la fin de la tempo,
on annule la fermeture.
Comment?
Merci d'avance
Je voudrais dire en vba :
si tous les fomulaires,etats,... sont fermes alors
apres quelques secondes, la base se ferme
Si on ouvre un objet quelconque avant la fin de la tempo,
on annule la fermeture.
Comment?
Merci d'avance
-----Message d'origine-----
Salut
Je t'ai fait un joli truc
Copies dans un nouveau module
POur t'en servir dans ton prog tu tapes
Call fermetureDifferee
'============Þbut copies======================= ========
Function TestFormOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
TestFormOuvert = True
Exit For
End If
TestFormOuvert = False
Next obj
End Function
Function TestReportOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
'Debug.Print obj.Name
If obj.IsLoaded = True Then
TestReportOuvert = True
Exit For
End If
TestReportOuvert = False
Next obj
End Function
Function FermetureDifferee()
Dim Datedebut As Date, dateFin As Date
'======================== ===============
'Definition des dates
'======================== ================
Datedebut = Now()
dateFin = DateAdd("n", 1, Datedebut) 'Ajoute 1 minute a
l'heure
'======================== =================
'Boucle de temporisation
'======================== =================
Do While Now() < dateFin
'un form ou un report sont ouvert
If TestFormOuvert Or TestReportOuvert Then
Else
'Sinon fermeture Immediate de l'application
DoCmd.Quit
End If
Loop
'Si ca arrive ici il faut relancer la fonction de
fermeture un form ou un
report
'sont toujours ouverts
Exit Function
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des
compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Stéphane" a écrit dans le
message de
news:049f01c358b2$271cfce0$Je voudrais dire en vba :
si tous les fomulaires,etats,... sont fermes alors
apres quelques secondes, la base se ferme
Si on ouvre un objet quelconque avant la fin de la
tempo,
on annule la fermeture.
Comment?
Merci d'avance
.
-----Message d'origine-----
Salut
Je t'ai fait un joli truc
Copies dans un nouveau module
POur t'en servir dans ton prog tu tapes
Call fermetureDifferee
'=============Debut copies======================= ========
Function TestFormOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
TestFormOuvert = True
Exit For
End If
TestFormOuvert = False
Next obj
End Function
Function TestReportOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
'Debug.Print obj.Name
If obj.IsLoaded = True Then
TestReportOuvert = True
Exit For
End If
TestReportOuvert = False
Next obj
End Function
Function FermetureDifferee()
Dim Datedebut As Date, dateFin As Date
'======================== ===============
'Definition des dates
'======================== ================
Datedebut = Now()
dateFin = DateAdd("n", 1, Datedebut) 'Ajoute 1 minute a
l'heure
'======================== =================
'Boucle de temporisation
'======================== =================
Do While Now() < dateFin
'un form ou un report sont ouvert
If TestFormOuvert Or TestReportOuvert Then
Else
'Sinon fermeture Immediate de l'application
DoCmd.Quit
End If
Loop
'Si ca arrive ici il faut relancer la fonction de
fermeture un form ou un
report
'sont toujours ouverts
Exit Function
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des
compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Stéphane" <st_lavouma@hotmail.com> a écrit dans le
message de
news:049f01c358b2$271cfce0$a601280a@phx.gbl...
Je voudrais dire en vba :
si tous les fomulaires,etats,... sont fermes alors
apres quelques secondes, la base se ferme
Si on ouvre un objet quelconque avant la fin de la
tempo,
on annule la fermeture.
Comment?
Merci d'avance
.
-----Message d'origine-----
Salut
Je t'ai fait un joli truc
Copies dans un nouveau module
POur t'en servir dans ton prog tu tapes
Call fermetureDifferee
'============Þbut copies======================= ========
Function TestFormOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
TestFormOuvert = True
Exit For
End If
TestFormOuvert = False
Next obj
End Function
Function TestReportOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
'Debug.Print obj.Name
If obj.IsLoaded = True Then
TestReportOuvert = True
Exit For
End If
TestReportOuvert = False
Next obj
End Function
Function FermetureDifferee()
Dim Datedebut As Date, dateFin As Date
'======================== ===============
'Definition des dates
'======================== ================
Datedebut = Now()
dateFin = DateAdd("n", 1, Datedebut) 'Ajoute 1 minute a
l'heure
'======================== =================
'Boucle de temporisation
'======================== =================
Do While Now() < dateFin
'un form ou un report sont ouvert
If TestFormOuvert Or TestReportOuvert Then
Else
'Sinon fermeture Immediate de l'application
DoCmd.Quit
End If
Loop
'Si ca arrive ici il faut relancer la fonction de
fermeture un form ou un
report
'sont toujours ouverts
Exit Function
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des
compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Stéphane" a écrit dans le
message de
news:049f01c358b2$271cfce0$Je voudrais dire en vba :
si tous les fomulaires,etats,... sont fermes alors
apres quelques secondes, la base se ferme
Si on ouvre un objet quelconque avant la fin de la
tempo,
on annule la fermeture.
Comment?
Merci d'avance
.
-----Message d'origine-----
Salut
Je t'ai fait un joli truc
Copies dans un nouveau module
POur t'en servir dans ton prog tu tapes
Call fermetureDifferee
'============Þbut copies============================== >Function TestFormOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
TestFormOuvert = True
Exit For
End If
TestFormOuvert = False
Next obj
End Function
Function TestReportOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
'Debug.Print obj.Name
If obj.IsLoaded = True Then
TestReportOuvert = True
Exit For
End If
TestReportOuvert = False
Next obj
End Function
Function FermetureDifferee()
Dim Datedebut As Date, dateFin As Date
'====================================== >'Definition des dates
'======================================= >
Datedebut = Now()
dateFin = DateAdd("n", 1, Datedebut) 'Ajoute 1 minute a
l'heure
'======================================== >'Boucle de temporisation
'======================================== >Do While Now() < dateFin
'un form ou un report sont ouvert
If TestFormOuvert Or TestReportOuvert Then
Else
'Sinon fermeture Immediate de l'application
DoCmd.Quit
End If
Loop
'Si ca arrive ici il faut relancer la fonction de
fermeture un form ou un
report
'sont toujours ouverts
Exit Function
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des
compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Stéphane" a écrit dans le
message de
news:049f01c358b2$271cfce0$Je voudrais dire en vba :
si tous les fomulaires,etats,... sont fermes alors
apres quelques secondes, la base se ferme
Si on ouvre un objet quelconque avant la fin de la
tempo,
on annule la fermeture.
Comment?
Merci d'avance
.
-----Message d'origine-----
Salut
Je t'ai fait un joli truc
Copies dans un nouveau module
POur t'en servir dans ton prog tu tapes
Call fermetureDifferee
'============Þbut copies============================== >Function TestFormOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
TestFormOuvert = True
Exit For
End If
TestFormOuvert = False
Next obj
End Function
Function TestReportOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
'Debug.Print obj.Name
If obj.IsLoaded = True Then
TestReportOuvert = True
Exit For
End If
TestReportOuvert = False
Next obj
End Function
Function FermetureDifferee()
Dim Datedebut As Date, dateFin As Date
'====================================== >'Definition des dates
'======================================= >
Datedebut = Now()
dateFin = DateAdd("n", 1, Datedebut) 'Ajoute 1 minute a
l'heure
'======================================== >'Boucle de temporisation
'======================================== >Do While Now() < dateFin
'un form ou un report sont ouvert
If TestFormOuvert Or TestReportOuvert Then
Else
'Sinon fermeture Immediate de l'application
DoCmd.Quit
End If
Loop
'Si ca arrive ici il faut relancer la fonction de
fermeture un form ou un
report
'sont toujours ouverts
Exit Function
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des
compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Stéphane" <st_lavouma@hotmail.com> a écrit dans le
message de
news:049f01c358b2$271cfce0$a601280a@phx.gbl...
Je voudrais dire en vba :
si tous les fomulaires,etats,... sont fermes alors
apres quelques secondes, la base se ferme
Si on ouvre un objet quelconque avant la fin de la
tempo,
on annule la fermeture.
Comment?
Merci d'avance
.
-----Message d'origine-----
Salut
Je t'ai fait un joli truc
Copies dans un nouveau module
POur t'en servir dans ton prog tu tapes
Call fermetureDifferee
'============Þbut copies============================== >Function TestFormOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
TestFormOuvert = True
Exit For
End If
TestFormOuvert = False
Next obj
End Function
Function TestReportOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
'Debug.Print obj.Name
If obj.IsLoaded = True Then
TestReportOuvert = True
Exit For
End If
TestReportOuvert = False
Next obj
End Function
Function FermetureDifferee()
Dim Datedebut As Date, dateFin As Date
'====================================== >'Definition des dates
'======================================= >
Datedebut = Now()
dateFin = DateAdd("n", 1, Datedebut) 'Ajoute 1 minute a
l'heure
'======================================== >'Boucle de temporisation
'======================================== >Do While Now() < dateFin
'un form ou un report sont ouvert
If TestFormOuvert Or TestReportOuvert Then
Else
'Sinon fermeture Immediate de l'application
DoCmd.Quit
End If
Loop
'Si ca arrive ici il faut relancer la fonction de
fermeture un form ou un
report
'sont toujours ouverts
Exit Function
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des
compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Stéphane" a écrit dans le
message de
news:049f01c358b2$271cfce0$Je voudrais dire en vba :
si tous les fomulaires,etats,... sont fermes alors
apres quelques secondes, la base se ferme
Si on ouvre un objet quelconque avant la fin de la
tempo,
on annule la fermeture.
Comment?
Merci d'avance
.
-----Message d'origine-----
Salut
Juste un petit détail avant de te lancer dans des details
de comportement tu
devrais deja apprendre a mieux connaitre access
afin de savoir comment on utilise une fonction
Ta 1ere question avait un interet, la seconde c'est se
moquer de moi
Si tu n'y arrives, fais appel à un professionnel
'============Le sujet est clos======================= ==
Tu crees un bouton que tu appelles quitter
dans la procedure evenementielle tu mets
Private Sub quitter_Click()
On Error GoTo Err_quitter_Click
Call FermetureDifferee
Exit_quitter_Click:
Exit Sub
Err_quitter_Click:
MsgBox Err.Description
Resume Exit_quitter_Click
End Sub
'======================== ========================= ========
==================
=========
'Dans la fonction FermetureDifferee
tu rajoutes apres
'Si ca arrive ici il faut relancer la fonction de
fermeture un form ou un
report sont toujours ouverts
Msgbox "Fermeture impossible un etat ou un formulaire
sont toujours
ouverts", vbokonly + vbinformation , "Fin de
l'application"
'Et avant
Exit Function
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des
compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Stéphane" a écrit dans le
message de
news:05a301c358e2$ec342780$
Merci beaucoup !!
Mais ou doi je appeller ces differentes fonctions pour que
cela fonctionne correctement ?-----Message d'origine-----
Salut
Je t'ai fait un joli truc
Copies dans un nouveau module
POur t'en servir dans ton prog tu tapes
Call fermetureDifferee
'============Þbut copies======================= ========
Function TestFormOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
TestFormOuvert = True
Exit For
End If
TestFormOuvert = False
Next obj
End Function
Function TestReportOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
'Debug.Print obj.Name
If obj.IsLoaded = True Then
TestReportOuvert = True
Exit For
End If
TestReportOuvert = False
Next obj
End Function
Function FermetureDifferee()
Dim Datedebut As Date, dateFin As Date
'======================== ===============
'Definition des dates
'======================== ================
Datedebut = Now()
dateFin = DateAdd("n", 1, Datedebut) 'Ajoute 1 minute a
l'heure
'======================== =================
'Boucle de temporisation
'======================== =================
Do While Now() < dateFin
'un form ou un report sont ouvert
If TestFormOuvert Or TestReportOuvert Then
Else
'Sinon fermeture Immediate de l'application
DoCmd.Quit
End If
Loop
'Si ca arrive ici il faut relancer la fonction de
fermeture un form ou unreport
'sont toujours ouverts
Exit Function
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des
compléments pourAccess
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Stéphane" a écrit dans le
message denews:049f01c358b2$271cfce0$Je voudrais dire en vba :
si tous les fomulaires,etats,... sont fermes alors
apres quelques secondes, la base se ferme
Si on ouvre un objet quelconque avant la fin de la
tempo,on annule la fermeture.
Comment?
Merci d'avance
.
.
-----Message d'origine-----
Salut
Juste un petit détail avant de te lancer dans des details
de comportement tu
devrais deja apprendre a mieux connaitre access
afin de savoir comment on utilise une fonction
Ta 1ere question avait un interet, la seconde c'est se
moquer de moi
Si tu n'y arrives, fais appel à un professionnel
'============Le sujet est clos======================= ==
Tu crees un bouton que tu appelles quitter
dans la procedure evenementielle tu mets
Private Sub quitter_Click()
On Error GoTo Err_quitter_Click
Call FermetureDifferee
Exit_quitter_Click:
Exit Sub
Err_quitter_Click:
MsgBox Err.Description
Resume Exit_quitter_Click
End Sub
'======================== ========================= ========
==================
=========
'Dans la fonction FermetureDifferee
tu rajoutes apres
'Si ca arrive ici il faut relancer la fonction de
fermeture un form ou un
report sont toujours ouverts
Msgbox "Fermeture impossible un etat ou un formulaire
sont toujours
ouverts", vbokonly + vbinformation , "Fin de
l'application"
'Et avant
Exit Function
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des
compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Stéphane" <st_lavouma@hotmail.com> a écrit dans le
message de
news:05a301c358e2$ec342780$a501280a@phx.gbl...
Merci beaucoup !!
Mais ou doi je appeller ces differentes fonctions pour que
cela fonctionne correctement ?
-----Message d'origine-----
Salut
Je t'ai fait un joli truc
Copies dans un nouveau module
POur t'en servir dans ton prog tu tapes
Call fermetureDifferee
'=============Debut copies======================= ========
Function TestFormOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
TestFormOuvert = True
Exit For
End If
TestFormOuvert = False
Next obj
End Function
Function TestReportOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
'Debug.Print obj.Name
If obj.IsLoaded = True Then
TestReportOuvert = True
Exit For
End If
TestReportOuvert = False
Next obj
End Function
Function FermetureDifferee()
Dim Datedebut As Date, dateFin As Date
'======================== ===============
'Definition des dates
'======================== ================
Datedebut = Now()
dateFin = DateAdd("n", 1, Datedebut) 'Ajoute 1 minute a
l'heure
'======================== =================
'Boucle de temporisation
'======================== =================
Do While Now() < dateFin
'un form ou un report sont ouvert
If TestFormOuvert Or TestReportOuvert Then
Else
'Sinon fermeture Immediate de l'application
DoCmd.Quit
End If
Loop
'Si ca arrive ici il faut relancer la fonction de
fermeture un form ou un
report
'sont toujours ouverts
Exit Function
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des
compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Stéphane" <st_lavouma@hotmail.com> a écrit dans le
message de
news:049f01c358b2$271cfce0$a601280a@phx.gbl...
Je voudrais dire en vba :
si tous les fomulaires,etats,... sont fermes alors
apres quelques secondes, la base se ferme
Si on ouvre un objet quelconque avant la fin de la
tempo,
on annule la fermeture.
Comment?
Merci d'avance
.
.
-----Message d'origine-----
Salut
Juste un petit détail avant de te lancer dans des details
de comportement tu
devrais deja apprendre a mieux connaitre access
afin de savoir comment on utilise une fonction
Ta 1ere question avait un interet, la seconde c'est se
moquer de moi
Si tu n'y arrives, fais appel à un professionnel
'============Le sujet est clos======================= ==
Tu crees un bouton que tu appelles quitter
dans la procedure evenementielle tu mets
Private Sub quitter_Click()
On Error GoTo Err_quitter_Click
Call FermetureDifferee
Exit_quitter_Click:
Exit Sub
Err_quitter_Click:
MsgBox Err.Description
Resume Exit_quitter_Click
End Sub
'======================== ========================= ========
==================
=========
'Dans la fonction FermetureDifferee
tu rajoutes apres
'Si ca arrive ici il faut relancer la fonction de
fermeture un form ou un
report sont toujours ouverts
Msgbox "Fermeture impossible un etat ou un formulaire
sont toujours
ouverts", vbokonly + vbinformation , "Fin de
l'application"
'Et avant
Exit Function
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des
compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Stéphane" a écrit dans le
message de
news:05a301c358e2$ec342780$
Merci beaucoup !!
Mais ou doi je appeller ces differentes fonctions pour que
cela fonctionne correctement ?-----Message d'origine-----
Salut
Je t'ai fait un joli truc
Copies dans un nouveau module
POur t'en servir dans ton prog tu tapes
Call fermetureDifferee
'============Þbut copies======================= ========
Function TestFormOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
TestFormOuvert = True
Exit For
End If
TestFormOuvert = False
Next obj
End Function
Function TestReportOuvert() As Boolean
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
'Debug.Print obj.Name
If obj.IsLoaded = True Then
TestReportOuvert = True
Exit For
End If
TestReportOuvert = False
Next obj
End Function
Function FermetureDifferee()
Dim Datedebut As Date, dateFin As Date
'======================== ===============
'Definition des dates
'======================== ================
Datedebut = Now()
dateFin = DateAdd("n", 1, Datedebut) 'Ajoute 1 minute a
l'heure
'======================== =================
'Boucle de temporisation
'======================== =================
Do While Now() < dateFin
'un form ou un report sont ouvert
If TestFormOuvert Or TestReportOuvert Then
Else
'Sinon fermeture Immediate de l'application
DoCmd.Quit
End If
Loop
'Si ca arrive ici il faut relancer la fonction de
fermeture un form ou unreport
'sont toujours ouverts
Exit Function
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des
compléments pourAccess
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Stéphane" a écrit dans le
message denews:049f01c358b2$271cfce0$Je voudrais dire en vba :
si tous les fomulaires,etats,... sont fermes alors
apres quelques secondes, la base se ferme
Si on ouvre un objet quelconque avant la fin de la
tempo,on annule la fermeture.
Comment?
Merci d'avance
.
.
