OVH Cloud OVH Cloud

Execution de code interrompu

2 réponses
Avatar
Michel
Bonjour à toutes et à tous

sur un bouton j'envoie un code pour plusieurs actions, dont l'export en
fichier Rtf d'un état

La ligne :
DoCmd.OutputTo acReport, "Intégration-Bordereaux-Couples",
"RichTextFormat(*.rtf)", "", False, ""

voila mon problème :
Je souhaite que l'état sois ignoré si il est vide.
J'ai essayé de paramétré la propriété "Absence de données" de l'état, cela
fonctionne,
mais cela interromp l'ensemble de l'exécution et la suite du code est
ignoré.
Comment faire pour "sauté" l'état si il est vide et continué l'exécution du
code ?

Un petit coup de patte des pros serais le bienvenu.

D'avance merci
Michel

------------------------------------------
Le code de la commande compléte
------------------------------------------
Private Sub Commande37_Click()

' Réinscription
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
"Réinscription", "C:\CNDS\Import\InscriptionCNDS.xls", True,
"Réinscriptions!"
DoCmd.SetWarnings False
DoCmd.OpenQuery "IntégrationRéinscription-ChangeTypeLicence",
acViewNormal, acEdit
DoCmd.OpenQuery "IntégrationRéinscription", acViewNormal, acEdit

' Mutation
DoCmd.SetWarnings False
DoCmd.OpenQuery "IntégrationMutationPrim", acViewNormal, acEdit
DoCmd.OpenQuery "IntégrationMutation", acViewNormal, acEdit

' Nouveau
DoCmd.SetWarnings False
DoCmd.OpenQuery "ImportClub1Adresse", acViewNormal, acEdit
DoCmd.OpenQuery "ImportClub1", acViewNormal, acEdit
DoCmd.OpenQuery "ImportClub_SexCrea", acViewNormal, acEdit
DoCmd.OpenQuery "ImportClub2", acViewNormal, acEdit

'Nettoyage
DoCmd.DeleteObject acTable, "IntégrationAdresse"
DoCmd.DeleteObject acTable, "SexCrea"
CurrentDb.Execute "DELETE * FROM [Réinscription];"

DoCmd.OutputTo acReport, "Intégration-Bordereaux-Couples",
"RichTextFormat(*.rtf)", "", False, ""

MsgBox "La mise à jour des membres du Club terminée !", vbInformation,
"LicenciésCNDS"
DoCmd.Close acForm, "Dlg_Intégration"

DoCmd.OpenReport "MutationLicenciés", acViewPreview, "", "", acNormal
DoCmd.Close acForm, "Dlg_IntégrationConfirmation"

End Sub
------------------------------------------------

2 réponses

Avatar
Eric
Bonjour Michel,

Une idée, peut-être ...
L'état a une table/requête_stockée comme source ? Si c'est le cas, tu
peux faire un DCount("*","table/requête_stockée") et en fonction sauter
l'export de l'état.

If DCount("*","table/requête_stockée")> 0 then
DoCmd.OutputTo acReport, "Intégration-Bordereaux-Couples",...
End If

Ps: Un seul DoCmd.SetWarnings False au début devrait suffire et un
DoCmd.SetWarnings True avant le End Sub

Bonjour à toutes et à tous

sur un bouton j'envoie un code pour plusieurs actions, dont l'export en
fichier Rtf d'un état

La ligne :
DoCmd.OutputTo acReport, "Intégration-Bordereaux-Couples",
"RichTextFormat(*.rtf)", "", False, ""

voila mon problème :
Je souhaite que l'état sois ignoré si il est vide.
J'ai essayé de paramétré la propriété "Absence de données" de l'état, cela
fonctionne,
mais cela interromp l'ensemble de l'exécution et la suite du code est
ignoré.
Comment faire pour "sauté" l'état si il est vide et continué l'exécution du
code ?

Un petit coup de patte des pros serais le bienvenu.

D'avance merci
Michel



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Michel
Bonsoir Eric,

ça marche impec
J'ai fait aussi la commanded'affichage de l'Etat "Mutation" pareil, comme ça
si ils sont vide il ne nous pose plus de questions

Encore merci, c'est super
Michel

PS : j'ai corrigé les SetWarning, comme tu le suggeré



"Eric" a écrit dans le message de news:

Bonjour Michel,

Une idée, peut-être ...
L'état a une table/requête_stockée comme source ? Si c'est le cas, tu peux
faire un DCount("*","table/requête_stockée") et en fonction sauter
l'export de l'état.

If DCount("*","table/requête_stockée")> 0 then
DoCmd.OutputTo acReport, "Intégration-Bordereaux-Couples",...
End If

Ps: Un seul DoCmd.SetWarnings False au début devrait suffire et un
DoCmd.SetWarnings True avant le End Sub

Bonjour à toutes et à tous

sur un bouton j'envoie un code pour plusieurs actions, dont l'export en
fichier Rtf d'un état

La ligne :
DoCmd.OutputTo acReport, "Intégration-Bordereaux-Couples",
"RichTextFormat(*.rtf)", "", False, ""

voila mon problème :
Je souhaite que l'état sois ignoré si il est vide.
J'ai essayé de paramétré la propriété "Absence de données" de l'état,
cela fonctionne,
mais cela interromp l'ensemble de l'exécution et la suite du code est
ignoré.
Comment faire pour "sauté" l'état si il est vide et continué l'exécution
du code ?

Un petit coup de patte des pros serais le bienvenu.

D'avance merci
Michel



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr