Discussion :

[Zarrows]

Bonjour à tous !

Je me permet d'ouvrir un sujet afin de comprendre et résoudre mon problème.

J'ai une application accdb déployer sur plusieurs poste qui s’exécute pour la majeur partie d'entre elles avec le RunTime 2010. Sauf que pour un PC impossible de démarrer l'application, elle affiche un message d'erreur :

"Cette application a été arrêtée à cause d'une erreur d'exécution. Elle ne peut pas continuer et va être fermée"

L'application démarre sur un frmMain, sur ce formulaire l'event Form_load permet de rechercher certaines références et de les ajoutées au projet.

J'ai d'abord enlever le codes dans Form_load pour voir si il s'agissait d'un problème de code, même avec un événement load avec aucune ligne dedans, impossible de démarrer l'application.

En supprimant le :

Code :

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

1
2
3
Private Sub Form_Load()
 
End Sub

L'application démarre mais sur cette forme il y a aussi des boutons qui permettent de naviguer entre les différents formulaires avec

Code :

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

DoCmd.OpenForm "NomFormulaire"

Même problème, une erreur d’exécution apparaît lorsque l'ont clique sur un bouton.

J'ai aussi penser que c'est une question de composant référencer qui n'existe pas ou qui sont mal lié

En continuant mon enquête j'ai essayer d'executer un autre projet, similaire dans ses référence, ils fonctionnent, en comparant les deux j'ai trouver aucune différence, que ce soit dans les références ou dans le codes executé.


Avez vous déjà eu ce genre de problème ? Si oui, comment faire pour le résoudre ?

Cordialement, Z.

[marot_r]

Bonjour.

C'est un des problèmes avec le runtime, tu n'as aucune explication de la cause de l'erreur.
Juste qu'il y a eu une erreur.

Il est très important de mettre en place la gestion d'erreur avec le On Error Goto dans le code VBA (pour toutes les procédures qui appellent un traitement. Ex : dans le click d'un bouton) ET avec la programmation de l'événement Sur Erreur des formulaires (pour TOUS les formulaires).

Généralement cela aide à cerner grosso-modo la zone où se produit l'erreur mais l'attraper il faut parfois recourir au MsgBox à chaque instruction.

Si tu as besoin d'exemple de code, dit-le.

En passant il faut aussi prévoir du code pour appeler le gestionnaire de tables liées car il n'est plus accessible depuis l'interface.
Et tu voudras peut-être ajouter du code pour inventorier les références utilisées et voir si une n'est pas manquante.

A+

[Zarrows]

Bonjour,
Merci pour votre réponse.

J'ai fait ce que vous m'avez dit de faire mais encore la même erreur...
Voila ce que j'ai fait dans le vba de mon formulaire.

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
 
Private Sub Form_Error(DataErr As Integer, Response As Integer)
 
 MsgBox DateErr & " - " & Response
 
End Sub
 
Private Sub Form_Load()
 
  On Error GoTo errorHandler
 
  Msgbox "Coucou"
 
End Sub
 
 
errorHandler:
 
    MsgBox Err.Number & vbLf & Err.Description

Impossible a exécuté sur le PC en question, en revanche pas de problème sur les autres PC...

Je comprend vraiment pas le problème avec ce PC, j'ai desinstaller, réinstaller le RunTime, executé une autres version moins abouti de mon projet et elle s'execute normalement, avec les mêmes références.

[Invité]

Bonjour,
ça sent un conflit de version Access !

test comme ça!

Code :

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

Application.DoCmd.OpenForm "NomFormulaire"

[Zarrows]

J'ai essayer toujours la même erreur d’exécution.

J'ai une textbox avec =Date() comme valeur, lors de l’exécution de l'application sur le PC en question a la place de la date il y a "#REF?", (alors que sur les autres la date du jour est bien afficher) vous pensez que c'est en rapport ?

[Invité]

dans vba fait Menu->Outils->références tu devrais avoir de librairie manquante!



si tu décoche Visual Basic For Application ton code devrait s'exécuter sur la machine. en revanche il ne fonctionnera plus sur les autre!

pour y remédier il faut utiliser l'instance VBA effectivement chargé (VBA)!

Code :

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

1
2
3
4
5
6
Sub test()
VBA.MsgBox VBA.Date
VBA.MsgBox VBA.Format(VBA.Date, "yyyy-mm-dd")
VBA.MsgBox VBA.Trim(VBA.Format(VBA.Date, "yyyy-mm-dd"))
VBA.MsgBox VBA.CDate(VBA.Trim(VBA.Format(VBA.Date, "yyyy-mm-dd")))
End Sub

[marot_r]

Bonjour.

Ici du code pour avoir la liste des références.
À exécuter à l'ouverture de l'appli avant tout autre chose.

How to get programmatically a list of all available references of a VBA project
https://social.msdn.microsoft.com/Fo...t?forum=isvvba

A+

[Zarrows]

Bonjour,

J'ai ENFIN trouvé d'ou ça venait ! en faite c'était bien une question de référence mais je ne pouvais pas exécuter un seul morceau de code sans que l'appli ne crash sur le PC équipé de la version RunTime d'Access !

J'ai ensuite essaye d'ouvrir une autre form pour essayer de récupérer un autre message d'erreur pouvant m'éclairer et j'avais un problème avec le contrôle ActiveX (j'ai pas sauvegarder l'erreur en question.

En recherchant un peu sur Internet j'ai trouvé ce lien :

https://support.microsoft.com/en-us/...-create-object

J'ai donc mis à jour la référence DAO en faisant un .bat de ça : regsvr32 "C:\Program Files (x86)\Common Files\Microsoft Shared\DAO\DAO360.DLL"

Et maintenant tout est rentré dans l'ordre