Discussion :

[Baba75AB]

Bonjour,

J'ai développé une procédure sous AC2007 dont le code fonctionne correctement

Code :

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

1
2
3
4
5
6
Dim filtre As String
    Dim PKMHT As Variant
    Dim PKMTTC As Variant
    filtre = "CodePrest = 'KMFORF'"
    PKMHT = Format(Nz(DLookup("PUHT_prest", "Prestation", filtre)), "#,##0.00 €")
    PKMTTC = Format((PKMHT * 1.196), "#,##0.00 €") 'Pour convertir un nombre en format monétaire...

Ce code fait une recherche dans une table Prestation, recherche l'enregistrement répondant à ma recherche, et stocke le contenu du champ dans une variable en vue d'un traitement ultérieure.

Après avoir converti en AC2000 via AC2007, au lancement de la procédure, j'obtiens un message d'erreur du type 'Projet ou bibliothèque manquante'
le mot en surbrillance est Format
J'ai bien-sur vérifié dans outils-->Références la présence de mes bibiothèques et elles apparaissent bien dans les 2 versions, avec une seule différence pour celle-ci : Microsoft acces 12.0 object librairy (sous ACCES2007) qui est remplacé par la 9.0 sous le poste avec AC2000.

Merci pour votre aide

[cafeine]

Hello,

je ne vois pas trop, hormis décocher les références puis les recocher et vérifier bien sur le séparateur de milliers.

[Baba75AB]

Merci Cafeine de votre humble participation.... Mais en effet j'ai voulu décocher les références différents entre AC2007 et AC2000, mais VBA me l'interdit en m'informant que les références sont en cours d'utilisation.... J'ai même créer un formulaire vierge, et j'obtiens toujours la même chose.

Finalement c'est cette instruction (pour l'instant) qui pose problème

Code :

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

PKMTTC = Format((PKMHT * 1.196), "#,##0.00 €")

Ce que j'obtiens au sein de mon état traitant cette variable , c'est qu'elle soit tout simplement convertis en champs monétaire avec 2 décimales. Il y à peut-être une autre methode ?

[fgiambelluco]

Bonjour
J'ai déjà eu ce soucis, et il ne faut pas se focaliser dur l'instruction format.
En effet, dès qu'une bibliothèque est manquante, le compilateur s'arrète sur n'importe quelle instruction VBA (format, left,).
Il faut essayer de décocher la bibliothèque manquante, sortir, revenir, raccrocher la bibliothèque nécessaire (à priori Office 9), recompiler et ... prier !

---------
Frédéric
http://www.access-developpement.com