Bonjour à tous,
Je viens vers vous car je m'arrache les cheveux depuis quelques semaines et malgré plusieurs infos trouvées ça ne correspond pas vraiment à mon erreur.
Résumé
J'ai développé une base qui envoi des rapports automatique chaque lundi et jeudi par mail à 5 magasins(j'ai donc fait 5 requêtes et 5 états, 1 formulaire qui se charge et en OnLoad lance un VBA). L'un d'entre eux m'indique #Erreur depuis quelques temps à chaque fois en début de page 2. J'ai donc des livraisons qui ne s'affiche pas
L'incident se produit sur plusieurs PC avec Office 2016 ou Office 365.
Informations Importantes
J'ai développé un programme de gestion des livraisons pour mon client qui utilise la même DB (la DB est une liaison pour les 2 programmes) que ce programme.
Mon client modifiait à la main la ville du client lorsque les CP étaient identiques et je pense que ça merde depuis ce moment. J'avais donc Brenouille en ID 45 au lieu de 44 dans la DB principale qui gère les commandes.
Je pense avoir réussi à tout bien remettre mais il y a des milliers d'entrée dans la DB principale, en tout cas pour toutes les commandes depuis le 1er novembre j'en suis quasiment sûr, j'ai revérifier plusieurs fois et l'état ne prend en compte que les 7 derniers jours.
Mes requêtes
Pièce jointe 585431
Mes Etats
Pièce jointe 585432
Mes Macros
Pièce jointe 585433
Mon formulaire qui exécute le code VBA
Ce que je ne comprend pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 Private Sub Form_Load() 'Envoi des rapports Quotidien Dim MyDate As String MyDate = Weekday(Date, vbMonday) If MyDate = 1 Then Me.lbl_rapport_envoye.Caption = "Rapport du lundi : En cours d'envoi" DoCmd.RunMacro ("m_Point_Mag1") DoCmd.RunMacro ("m_Point_Mag2") DoCmd.RunMacro ("m_Point_Mag3") DoCmd.RunMacro ("m_Point_Mag4") DoCmd.RunMacro ("m_Point_Mag5) Me.lbl_rapport_envoye.Caption = "Rapport du lundi : Envoyé" DoCmd.Quit ElseIf MyDate = 4 Then Me.lbl_rapport_envoye.Caption = "Rapport du Jeudi : En cours d'envoi" DoCmd.RunMacro ("m_Point_Mag1") DoCmd.RunMacro ("m_Point_Mag2") DoCmd.RunMacro ("m_Point_Mag3") DoCmd.RunMacro ("m_Point_Mag4") DoCmd.RunMacro ("m_Point_Mag5) Me.lbl_rapport_envoye.Caption = "Rapport du Jeudi : Envoyé" DoCmd.Quit Else Me.lbl_rapport_envoye.Caption = "Aucun rapport envoyé" End If End Sub
Si je lance le programme et que je visualise l'état qui pose souci, aucun problème toutes les informations sont présentes.
Si je lance le programme et que j'exécute la macro manuellement aucun problème non plus toutes les informations sont présentes dans le rapport envoyé par mail même en page 2.
L'incident se produit uniquement si je lance le programme et que je le laisse travaillé tout seul ?
Partager