Bonjour,
Une BD access a été créée avec accessXP. Quand j'y exécute une macro tout fonctionne bien.
Quand j'essaye d'exécute la macro sous access2000 j'ai le message d'erreur suivant.
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
Erreur d'exécution '3075':
Function is not available in expressions in query expression 'UCase(tblEquipement!No_Gouv)'.
Le code du qryOrdinateur est:
Dans les références il me manque Microsoft Access 10.0 Object Library mais j'ai le Microsoft Access 9.0 Object Library.
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);
Partager