Fermeture d'un état

Salut,

"Pegasus67000"
|
| Je souhaiterai créer un évènement qui me permet, à la fermeture d'un état,
| d'ouvrir un formulaire ou un autre état.


Non, c'est Access qui crée les événements !

Toi, tu peux juste placer y une Sub qui sera exécutée lorsque l'événement aura lieu.
Ceci est important pour comprendre pourquoi on ne peut pas faire exécuter
du code à un moment ou Access ne crée pas d'événement.

;-)



| Je créé un code, mais cela ne marche pas. Dois-je créer un évènement sur
| fermeture ?
|


Dans la "Procédure événementielle", "Sur fermeture" de l'état, tu mets simplement :
(pour simplifier on dit plus volontier : mettre "sur fermeture")

DoCmd.OpenForm "Demarrage"

et lorsque cet événement aura lieu, à la fermeture de l'état,
Access ouvrira le formulaire "Demarrage"


PS:
Il n'est pas habituel de travailler de cette façon.
Normalement, on ouvre un formulaire du genre "Menu général"
qui restera (presque) toujours ouvert et de là, on ouvre les autres.


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/

DoCmd.OpenForm "Demarrage"

Pour le code, cela marche, merci beaucoup

PS:
Il n'est pas habituel de travailler de cette façon.
Normalement, on ouvre un formulaire du genre "Menu général"
qui restera (presque) toujours ouvert et de là, on ouvre les autres.

Dans Access, grâce à des boutons de navigation, j'ai créé un Menu Général,
mais, j'ai aussi des sous-menus, c'est pour cela que je voulais ce code.

Et encore merci.

SAlut,

Si j'ai bien compris ce que tu voulais...
Dans l'evenement "on close" de ton etat tu mets

Private Sub Report_Close()

On Error GoTo Err_Report_Close

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "TonFormulaire"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Report_Close:
Exit Sub

Err_Report_Close:
MsgBox Err.Description
Resume Exit_Report_Close

End Sub



--
Ghislain


"Pegasus67000" wrote:

Salut,

Je souhaiterai créer un évènement qui me permet, à la fermeture d'un état,
d'ouvrir un formulaire ou un autre état.

Je créé un code, mais cela ne marche pas. Dois-je créer un évènement sur
fermeture ?

Voici mon code :

Private Sub Form_Close()
On Error GoTo Err_Form_Close

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Demarrage"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "Recherches"

Exit_Form_Close:
Exit Sub

Err_Form_Close:
MsgBox Err.Description
Resume Exit_Form_Close

End Sub