Discussion :

[argyronet]

Pourrais-tu sur une version d'essai en accdb (fidèle copie de l'existante) créer un formulaire bidon avec 2 boutons :

• cmdRefs
• cmdQuit

Le code événement du cmdRefs est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub ProjectRef()
Dim oRef                                               As Reference
Dim oRefs                                              As References
Dim strRefs                                            As String
    Set oRefs = Application.References
    For Each oRef In oRefs
        strRefs = strRefs & oRef.Name & " " & IIf(oRef.IsBroken, "Manquante", "OK") & " - version : " & oRef.Major & "." & oRef.Minor & vbCrLf
    Next
    MsgBox strRefs
End Sub

Le code événement du cmdQuit est le suivant :

Code :

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

1
2
 
Application.Quit

Tu déclares ce formulaire comme étant celui qui s'ouvre au démarrage.

Tu sauves, tu testes, tu refermes et tu copies sur le poste incriminé pour voir les références...

Qu'est-ce que ça donne ?

Argy

[ketchson]

Voici les références utilisées dans mon projet :

1. Référence : VBA - Version : 4.1 - FullPath : C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL
2. Référence : Access - Version : 9.0 - FullPath : C:\Program Files\Microsoft Office\Office14\MSACC.OLB
3. Référence : stdole - Version : 2.0 - FullPath : C:\Windows\system32\stdole2.tlb
4. Référence : DAO - Version : 12.0 - FullPath : C:\Program Files\Common Files\Microsoft Shared\OFFICE14\ACEDAO.DLL
5. Référence : Scripting - Version : 1.0 - FullPath : C:\Windows\system32\scrrun.dll
6. Référence : VBScript_RegExp_55 - Version : 5.5 - FullPath : C:\Windows\system32\vbscript.dll\3
7. Référence : Office - Version : 2.5 - FullPath : C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL

Bon je fais le test sur le poste client maintenant

[argyronet]

Tu aurais dû ajouter la propriété IsBroken...

[ketchson]

Sur mon poste de dév


Et sur le poste client


Voilà il y a clairement un souci de version sur la dernière ligne...

[argyronet]

Effectivement,...

Quelle est la version installée des différentes applications Office ?
De plus, pourquoi as-tu besoin de cette référence ?
Utilises-tu les appels de fonction de Dialog par exemple ?


Et si tu mets une base bidon en accde avec une table et un formulaire bidon (de démarrage bien entendu) avec les même référence, obtiens-tu la même erreur ?

Argy

[ketchson]

Quelle est la version installée des différentes applications Office ?
De plus, pourquoi as-tu besoin de cette référence ?
Utilises-tu les appels de fonction de Dialog par exemple ?

Sur mon poste de Dév j'ai la version complète d'office 2010 SP2 Version du produit: 14.0.7015.1000

Sur le poste client j'ai le Microsoft Access [/B]Runtime[/B] 2010 Version du produit: 14.0.7015.1000, exactement la même quoi

En fait je ne sais plus quels éléments se trouvent dans cette bibliothèque MSO.DLL, mais c'est vrai que quand tu en parles je pense à ces MsoDialogPicker ou quelque chose du genre... Bref en fait je pourrai remplacer les éléments de cette DLL par leur équivalent numérique. Bon là je crois qu'il faut que je décoche la référence sur mon poste en dév, que j'essaye de compiler, et le débug va m'indiquer où je dois remplacer. Je vais le faire pour tous les éléments de cette biblio à problème, je vais ensuite relancer sur le poste en dev et je ferai un feedback.

En réalité si j'avais su que les références pouvaient poser des problèmes je ne les aurais jamais utilisé (si ce n'est en commentaire pour la compréhension du code) mais toujours leur équivalent numérique. Pareil pour des objets particuliers j'aurais utilisé le late binding qui, si j'ai bien compris, permet à Access de choisir lui même la bonne version de la référence à utiliser...

Et si tu mets une base bidon en accde avec une table et un formulaire bidon (de démarrage bien entendu) avec les même référence, obtiens-tu la même erreur ?

Bon j'ai fait le test avec une base bidon, où j'ai cochée les mêmes 07 références, puis compilée en accde, et là aucun problème, pas de message d'erreur, tout marche !

[ketchson]

En fait je ne sais plus quels éléments se trouvent dans cette bibliothèque MSO.DLL, mais c'est vrai que quand tu en parles je pense à ces MsoDialogPicker ou quelque chose du genre... Bref en fait je pourrai remplacer les éléments de cette DLL par leur équivalent numérique. Bon là je crois qu'il faut que je décoche la référence sur mon poste en dév, que j'essaye de compiler, et le débug va m'indiquer où je dois remplacer. Je vais le faire pour tous les éléments de cette biblio à problème, je vais ensuite relancer sur le poste en dev et je ferai un feedback.

Voici le feedback :
Sur mon poste de dev j'ai décoché la référence Office qui avait un problème de version (99.1 sur le poste client et 2.5 sur le poste de dev). Ensuite grâce au deboggeur j'ai remplacé les éléments manquants. Il y avait essentiellement

• du database remplacé par object
• du recordset remplacé par object
• la méthode opendatabase remplacée par DBEngine.OpenDatabase
• et des constantes comme dbAttachedTable que j'ai remplacé par leur valeur numérique

Résultat ça a marché, mieux encore mes autres bases (où je n'ai rien modifié) marchent aussi ! Du coup j'ai interrogé de nouveau les références (grâce au fichier de test précédemment créé suivant tes conseils) et là la version de cette référence a été mise à jour vers la version 2.5

Je suis impressionné C'est à croire qu'Access Runtime a recherché la meilleure version de la DLL pour gérer les objets créés en Late Binding.

Merci de ton aide Argy, grâce à toi je suis beaucoup plus avisé pour réagir face aux problèmes de DLL !

[argyronet]

Tant mieux...
L'objectif était que tu aboutisses à un résultat.

Argy

[ketchson]

Tant mieux...
L'objectif était que tu aboutisses à un résultat.

Argy

Bonjour, en fait finalement le résultat n'est pas si abouti que ça.

J'ai crié victoire un peu trop vite !

Tout avait l'air de fonctionner comme il faut mais avec des tests approfondis je me suis rendu compte que les champs de type Date ne fonctionnent pas !!!

Je me retrouve avec cette erreur :

Valeur non valide pour ce champ
Vous avez peut-être entré du texte dans un champ numérique ou un nombre supérieur à ce que permet le paramètre TailleChamp

J'ai même créé une base de test avec juste une table contenant un champ de type date et un form basique, sans code juste pour voir, résultat je reçois toujours cette erreur

S'il vous plaît quelqu'un aurait-il une idée pour résoudre un tel cas ?

[marot_r]

Bonjour.

Si tu crees un champ date dans une table et que tu essayes d'y entrer une valeur (sans passer par un fiormulaire, directement dans la table), est-ce que cela marche ?

Si oui, essaye dans le formulaire d'entrer la date au format AAAA-MM-JJ (ex : 2018-07-14 pour le 14 juillet 2018).

Ca donne quoi ?

A+

[ketchson]

Malheureusement je ne crois pas que je puisse faire ça car sur cette machine il n'y a pas de version d'office installée, juste le runtime Access 2010. Le poste incriminée n'a que 32 Go de DD, avec un windows 10 qui n'arrête pas d'occuper tout l'espace disponible avec ces mises à jour.

Néanmoins je vais essayer d'entrer la date au format AAAA-MM-JJ via le formulaire et je fais un retour immédiatement

[argyronet]

Bonjour,

Modifie les propriété de ton champ de telle sorte à ce qu'une date soit automatqiue sans y entrer une date... Par exemple :

Code :

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

=Now()

sur ton formualire vierge de ta base de test où un champ de type date bindé sur le champ de la table peut être rempli, pose un bouton avec sur le ClickEvent renvoie :

Code :

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

Me.Texte1.Value= Now()

Regarde alors comment est inscrite la date et essaye alors d'en inscrire une à la main...

Argy

[ketchson]

J'ai essayé de mettre en AAAA/MM/JJ sans succès

J'ai mis now() en valeur par défaut et le champ a renvoyé 17/10/2018 08:45:57

Mais dès que je modifie ce champ (et ce même pour remettre la même date et heure) ça ne marche pas et on me renvoie le message d'erreur Valeur non valide pour ce champ

[ketchson]

J'ai refait le test et c'est bien ça, les valeurs insérées en VBA avec les fonctions now() ou date() marchent bien, les enregistrements s'ajoutent mais dès que je modifie manuellement une des valeurs ça ne marche plus (et ce même pour remettre exactement les valeurs qui s'y trouvaient déjà)

Info supplémentaire : j'ai essayé les autres types de champs classiques NuméroAuto, Numérique, Monétaire, Booléen qui eux marchent très bien.

[argyronet]

Ca marche pas après l'AfterUpdate ou avant sur le BeforUpdate ?

Peux-tu mettre un MsgBox sur chacun de ces events pour savoir ce que le champ date contient ?

Code :

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

MsgBox Me.TexteDateTest.Value

Peux tu dans le Form_Error() poser un :

Code :

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

MsgBox Error(DataErr),vbCritical, DataErr

?


Argy

[ketchson]

Bonjour Argy, désolé pour la réponse tardive.

J'obtiens le message d'erreur 2113 : Erreur définie par l'application ou par l'objet (récupéré par la routine Form_Error)

Suivi de Valeur non valide pour ce champ Vous avez peut-être entré du texte dans un champ numérique ou un nombre supérieur à ce que permet le paramètre de la propriété TailleChamp

Aucun signe du BeforeUpdate ou de l'AfterUpdate !

[argyronet]

Juste comme ça, n'y aurait-il pas un masque de saisie sur le champ ?

L'erreur 2113 est liée au fait que le champ n'accepte que des nombre.

Est-ce bien un champ de type date ?

Argy

[ketchson]

Juste comme ça, n'y aurait-il pas un masque de saisie sur le champ ?

L'erreur 2113 est liée au fait que le champ n'accepte que des nombre.

Est-ce bien un champ de type date ?

Argy

Sûr sûr sûr à 300% le champ est de type date Et il n'a aucun masque de saisie.

D'ailleurs je rappelle que si j'insère une date en VBA via la fonction NOW ou DATE le champ accepte parfaitement la valeur.

Le souci arrive dès que j'essaie d'entrer une date manuellement.

[argyronet]

Ca m'interpelle.
Est-ce possible d'avoir une copie de ton fichier afin que je teste moi aussi... ?

Argy

[ketchson]

Ca m'interpelle.
Est-ce possible d'avoir une copie de ton fichier afin que je teste moi aussi... ?

Argy

Voici le fichier, TestDate.zip

il marche parfaitement sur mon poste en dev, le problème c'est sur le poste en prod (toujours le même, celui qui avait une référence cassée dans cette discussion)

Je sens que je vais finir par refaire le système de cette machine...