Bonjour,
Je ne trouve pas l'option dans la macro qui me permette d'éxecuter un module
Si Cette option n'existe pas, est il directement possible dans le module suivant de mettre une fonction qui permette de lancer directement l'éxecution sans intervention à la mano ?
Si oui quelqu'un peut il mettre l'instruction à ajouter
Merci par avance![]()
LE MODULE
Option Compare Database
'------------------------------------------------------------
' OUVRIR_INFORMATIONS_GENERALES1
'
'------------------------------------------------------------
Function OUVRIR_INFORMATIONS_GENERALES1()
On Error GoTo OUVRIR_INFORMATIONS_GENERALES1_Err
Beep
MsgBox "POUR OBTENIR LES STATISTIQUES ENTRER LES DATES CONCERNEES", vbExclamation, ""
DoCmd.OpenQuery "CREATION TB", acViewNormal, acEdit
DoCmd.OpenReport "ETAT INFOS GENERALES", acViewPreview, "", "", acNormal
If MsgBox("voulez vous imprimer l'état ?", vbYesNo + vbExclamation, "Attente Instruction") = vbYes Then DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
'vbNo Then Exit Function
OUVRIR_INFORMATIONS_GENERALES1_Exit:
Exit Function
OUVRIR_INFORMATIONS_GENERALES1_Err:
MsgBox Error$
Resume OUVRIR_INFORMATIONS_GENERALES1_Exit
End Function
Partager