Actualisation de sous-formulaire...

Bonjour à tous !

Je vous livre le code ci-dessous, qui plante pour une raison que je
n'arrive
pas à identifier... malgré mes recherches et tentatives de tout cet
après-midi...

Au départ :
- Un form Expositions, un sous-forms [SFExpos Invitations]
- Dans l'entête du sous-form, un bouton ouvrant le formulaire "Dialogue
Générer Invitations" en mode boite de dialogue.
- Celui-ci contient un groupe d'options "Choix" (choix 1 = générer les
invitations , choix 2 = supprimer les invitations), et un bouton "Valider"
qui lance la fonction ci-dessous...
- des requêtes Ajout et Suppression qui fonctionnent correctement, et qui
selon la valeur de "Choix", vont vider ou remplir la table "Invitations"
avec les enregistrements des tables "Acheteurs" et "Adresses"...

(vous aurez compris qu'il s'agit d'une application pour un artiste
plasticien)...

- je n'arrive pas à comprendre pourquoi Access me laisse avec un rectangle
gris de la taille de ma boite de dialogue, tout penaud et contrit... SAUF
:
quand je déroule le code avec F8 !!!

Merci d'avance pour votre aide,
et à +, DAN

-----------------------------------------
Function Générer_Invitations()
Dim MonForm As Form
Set MonForm = Forms!Expositions![SFExpos Invitations].Form

On Error GoTo Expositions_Valider_générer_Err

DoCmd.Echo False, ""
DoCmd.SetWarnings False
Select Case Forms![Dialogue Générer Invitations]!Choix
Case 1
DoCmd.OpenQuery "RGénération Invitations Acheteurs", acNormal,
acEdit
DoCmd.OpenQuery "RGénération Invitations Adresses", acNormal,
acEdit
Case 2
DoCmd.OpenQuery "RSuppression Invitations Adresses", acNormal,
acEdit
End Select

DoCmd.Close acForm, "Dialogue Générer Invitations"

DoCmd.SelectObject acForm, "Expositions", False
MonForm.Requery

Expositions_Valider_générer_Exit:
Set MonForm = Nothing
Exit Function

Expositions_Valider_générer_Err:
MsgBox Error$

Resume Expositions_Valider_générer_Exit
End Function

rajoute un DoEvents entre chaque opération, si ça fonctionne essaie d'en
supprimer quelques uns qui ne servent à rien.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"dan" <daniel-deverchere@wanadoo.fr> a écrit dans le message de news:
4246e2b6$0$855$8fcfb975@news.wanadoo.fr...

Bonjour à tous !

Je vous livre le code ci-dessous, qui plante pour une raison que je
n'arrive
pas à identifier... malgré mes recherches et tentatives de tout cet
après-midi...

Au départ :
- Un form Expositions, un sous-forms [SFExpos Invitations]
- Dans l'entête du sous-form, un bouton ouvrant le formulaire "Dialogue
Générer Invitations" en mode boite de dialogue.
- Celui-ci contient un groupe d'options "Choix" (choix 1 = générer les
invitations , choix 2 = supprimer les invitations), et un bouton
"Valider"

qui lance la fonction ci-dessous...
- des requêtes Ajout et Suppression qui fonctionnent correctement, et
qui

selon la valeur de "Choix", vont vider ou remplir la table "Invitations"
avec les enregistrements des tables "Acheteurs" et "Adresses"...

(vous aurez compris qu'il s'agit d'une application pour un artiste
plasticien)...

- je n'arrive pas à comprendre pourquoi Access me laisse avec un
rectangle

gris de la taille de ma boite de dialogue, tout penaud et contrit...
SAUF

:
quand je déroule le code avec F8 !!!

Merci d'avance pour votre aide,
et à +, DAN

-----------------------------------------
Function Générer_Invitations()
Dim MonForm As Form
Set MonForm = Forms!Expositions![SFExpos Invitations].Form

On Error GoTo Expositions_Valider_générer_Err

DoCmd.Echo False, ""
DoCmd.SetWarnings False
Select Case Forms![Dialogue Générer Invitations]!Choix
Case 1
DoCmd.OpenQuery "RGénération Invitations Acheteurs", acNormal,
acEdit
DoCmd.OpenQuery "RGénération Invitations Adresses", acNormal,
acEdit
Case 2
DoCmd.OpenQuery "RSuppression Invitations Adresses", acNormal,
acEdit
End Select

DoCmd.Close acForm, "Dialogue Générer Invitations"

DoCmd.SelectObject acForm, "Expositions", False
MonForm.Requery

Expositions_Valider_générer_Exit:
Set MonForm = Nothing
Exit Function

Expositions_Valider_générer_Err:
MsgBox Error$

Resume Expositions_Valider_générer_Exit
End Function