Discussion :

[Subkill]

Bonjour,

Une BD access a été créée avec accessXP. Quand j'y exécute une macro tout fonctionne bien.

Code :

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

1
2
3
Sub exportQuery()
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryOrdinateur", "C:\qryBase.XLS", True
End Sub

Quand j'essaye d'exécute la macro sous access2000 j'ai le message d'erreur suivant.
Erreur d'exécution '3075':
Function is not available in expressions in query expression 'UCase(tblEquipement!No_Gouv)'.

Le code du qryOrdinateur est:

Code :

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

1
2
3
4
5
SELECT UCase(tblEquipement!No_Gouv) AS No_Gouv, [Prenom_Employe] & " " & [Nom_Employe] AS NomEmploye, tblDirection.Direction
FROM ((tblEquipement LEFT JOIN tblEquipement AS tblEquipement_1 ON tblEquipement.No_Serie = tblEquipement_1.No_Serie_Ordi) LEFT JOIN tblUtilisateur ON tblEquipement.Code_Utilisateur = tblUtilisateur.Code_Utilisateur) LEFT JOIN tblDirection ON tblEquipement.Direction = tblDirection.Numero
GROUP BY UCase(tblEquipement!No_Gouv), [Prenom_Employe] & " " & [Nom_Employe], tblDirection.Direction, tblEquipement.Type, tblEquipement.Status, tblEquipement.No_Gouv, tblUtilisateur.Nom_Employe, tblUtilisateur.Prenom_Employe
HAVING (((tblEquipement.Type)="Ordinateur") AND ((tblEquipement.Status)="Assigné")) OR (((tblEquipement.Type)="Portable") AND ((tblEquipement.Status)="Assigné"))
ORDER BY UCase(tblEquipement!No_Gouv);

Dans les références il me manque Microsoft Access 10.0 Object Library mais j'ai le Microsoft Access 9.0 Object Library.

[argyronet]

Bonsoir,

Selon moi, la compatibilité binaire des libraries est ascendante pas descendante. Tu fais référence à une bibliothèque indisponible sur le poste en question et c'est normal que ça plante à ce niveau.

L'erreur d'exécution '3075' que tu rencontres est générée du fait que la fonction UCase() n'est pas disponible dans la librairie référencée et pour cause, elle n'est pas là. Tu aurais développé sur 2000 et ouvert sur XP il n'y aurait pas eu de problème.

C'est une appli distribuée, il te faut la déployer et là, aucun problème...

Argy

[Subkill]

La raison pourquoi cela ne marchait pas est que j'avais une référence à Microsoft Access 10.0 Object Library (MANQUANT). Alors j'ai décoché cette référence et tout fonctionne bien maintenant.

[argyronet]

Oui, c'est ce que je t'a expliqué.
La compatibilité binaire de la librairie va dans un sens et pas dans l'autre.
Par exemple, le CLISID de la librairie Access.Application est le suivante :

Code :

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

{73A4C9C1-D68D-11D0-98BF-00A0C90DC8D9}

et ce quelque soit la version.
Mais du fait que tu aies fait référence à une bibliothèque absente, il la coche comme manquante mais par ailleurs, Access a reconnu celle-ci par son ClassIdentifier (CLSID), donc il substitue grâce à cette compatibilité.
Fort heureusement d'ailleurs car sinon, tu n'aurais même pas pu charger ta base de données.

Argy

[Subkill]

Ahhh ok!

Merci


Subkill (qui pense avoir enfin compris!)