Discussion :

[lucas-18]

Bonjour,

J'ai un formulaire [form2] basé sur une requête.
J'aimerais au lancement de ma base de données après l'ouverture du formulaire principal [form1] pouvoir ouvrir une boite de dialogue YES/NO qui me permette d'ouvrir le [form2] si la requête comporte au moins 1 enregistrement.

Merci pour votre aide.

[marot_r]

Essaye

Code :

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

1
2
3
4
5
if dcount("*","nomTaRequete")>1 then
   if vbyes=msgbox("Voulez-vous ouvrir la requête", vbyesno+vbdefaultbutton2)   then
         docmd.openForm "Form2"
   end if
end if

à mettre dans l'évémenet OnOpen ("Sur Ouverture") de Form1.

Au passage je t'invite à donner des noms plus significatifs à tes objets. "Form1" ne dit pas grand chose, un truc du genre "Demarrage" donne plus d'indication sur le rôel du formulaire.

A+

[lucas-18]

Essaye

Code :

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

1
2
3
4
5
if dcount("*","nomTaRequete")>1 then
   if vbyes=msgbox("Voulez-vous ouvrir la requête", vbyesno+vbdefaultbutton2)   then
         docmd.openForm "Form2"
   end if
end if

à mettre dans l'évémenet OnOpen ("Sur Ouverture") de Form1.

Au passage je t'invite à donner des noms plus significatifs à tes objets. "Form1" ne dit pas grand chose, un truc du genre "Demarrage" donne plus d'indication sur le rôel du formulaire.

A+

Les noms que j'ai donnné étaient à titre d'exemple. J'utilise bien des noms + significatifs.
Merci pour ton aide.

[lucas-18]

En fait sur ouverture ou sur activation, la boite de dialogue apparait avant l'ouverture du formulaire principal et le form2 s'ouvre derrière le formulaire principal.
J'aimerais vraiment lancer le code après que le formulaire principal soit ouvert ...

[marot_r]

Je ne connais pas d'événement qui indique qu'un formuliare est affiché complètement.

Tu pourrais mettre une temporisation de 2 ou 3 secondes avant de lancer le code.

Exemple de fonction d'attente :

Code :

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

1
2
3
4
5
6
Public sub Attendre(prmSeconde as single)
   dim futurTimer as single:futureTimer=timer+prmSeconde
   do while timer <= futurTimer
      doevents
   loop
end sub