Discussion :

[AndréPe]

Bonjour,
Access2000, XP
Mon but : quand le formulaire est prêt à l'emploi, au lancement du programme, je souhaiterais afficher un message.

Si possible, il ne faudrait pas que ce message réapparaisse lorsque par la suite le formulaire en question est réactivé.
Je crois pouvoir réaliser cette deuxième condition en sautant l'affichage du message lors des ouvertures suivantes du formulaire.

C'est sur la première condition que je butte. Je ne sais pas dans quel événement placer l'affichage du message. Mes essais avec sur ouverture, chargement, activation et current n'ont pas été concluants : le message s'affiche avant que le formulaire soit affiché.
Sur got Focus : on ne voit pas le message même après l'affichage du form.

Merci de l'aide
Amitiés

[Domi2]

Bonjour,

C'est sur la première condition que je butte. Je ne sais pas dans quel événement placer l'affichage du message. Mes essais avec sur ouverture, chargement, activation et current n'ont pas été concluants : le message s'affiche avant que le formulaire soit affiché.
Sur got Focus : on ne voit pas le message même après l'affichage du form.

Je crois qu'il n'y a pas d'événement...

De plus, selon l'aide, gotFocus du formulaire ne se produit que si celui-ci n'a pas de contrôle visible et activé. Et ça ne résoudrait pas le problème, j'avais fait des essais.

La seule solution que j'ai trouvée, c'est de passer par une sub ou fonction, en exécutant les codes l'un après l'autre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub...
 
DoCmd.Openform...
 
MsgBox "Coucou"
 
End Sub

Et là, ton message est bien affiché devant la fenêtre...

Bon, ça présente au moins l'avantage de pouvoir contrôler assez facilement si on est à la première ouverture du formulaire...

Domi2

[AndréPe]

Merci de ta réponse, mais par quel événement sera déclanchée la sub que tu donnes ?

[Domi2]

Re,

Cela dépend... si c'est pour l'ouverture de l'application, je n'utilise pas les options de démarrage, mais une macro AutoExec, avec une seule action, l'exécution d'une fonction qui "initialise" toutes mes applications...

J'exécute un certains nombre de sub ou fonction avant l'ouverture du 1er formulaire (en principe le menu général)...

S'il s'agit d'un autre formulaire, tu peux mettre le code dans l'évènement sur clic d'un bouton, par exemple...

Est-ce que cela répond à ta question ?

Domi2

[AndréPe]

Comme option de démarrage, c'est l'affichage du form en question, sur lequel je désirerais que s'affiche le msg.
C'est donc le premier formulaire qui s'affiche.

J'avais pensé mettre dans l'événement sur clic de tous les boutons actifs la sub contenant la commande d'affichage du message, mais c'est lourd et peu élégant !

N'ayant pas d'autre solution, je vais m'y résoudre.
Merci
amitiés

[Domi2]

Re,

Alors utilise une macro AutoExec...

Dans un module standard, tu crées une fonction (et non une sub, on ne peut pas les exécuter depuis une macro):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function InitApplication()
 
'Ici, tous les codes que tu veux avant l'ouverture de ton formulaire,
'notamment ce que tu exécutes dans Form_Load ou dans Form_Open
 
DoCmd.OpenForm "frmMenuGeneral", , , , , acNormal
 
MsgBox "Bonjour"
 
End Function

Dans la macro, une seule ligne Action, ExécuterCode, et renseigner le champ Nom fonction avec InitApplication()

Et évidemment, supprimer les infos des options de démarrages...

Domi2

[AndréPe]

J'ai essayé ta méthode, et bien entendu ça fonctionne correctement. Je vais l'utiliser
Merci
A+