[AC-2007] Erreur code VBA [Résolu]

[Chris 81]

Bonjour a tous,

ActualCourierDesign = "SELECT Design.DesignCreationDate, Design.Designer, DLookUp("NameShort", "DatabasePeople", "FirstName = '" & [Design.Designer] & "'") AS DesignerShort, Design.DesignType, Design.DesignName, Design.DesignCustomerName, Design.DesignExpectedDate, Design.DesignConfirmedDate, Design.DesignRequestDate, Design.DesignStatus, Design.DesignInstruction, Design.DesignNrSupplier, Design.DesignCustomerDepartment, Design.DesignCustomerBuyer, Design.DesignDescription, Design.DesignRequested, PictureDesign.PictureRank, PictureDesign.PictureAddress, Design.DesignSupplierName, Design.DesignSupplierMerchandiser, Design.DesignSupplierDepartment, Design.DesignSystem, Design.DesignResquested, Design.DesignRequestRank " _
& "FROM Design INNER JOIN PictureDesign ON Design.DesignSystem = PictureDesign.DesignSystem " _
& "WHERE (((Design.DesignCreationDate) Is Not Null) And ((Design.DesignRequestDate) Is Null) And ((PictureDesign.PictureRank) = 1) And ((Design.DesignCancelDate) Is Null) And ((Design.DesignApprovedDate) Is Null))" _
& "ORDER BY Design.DesignCreationDate;"

Je ne sais pas si le soulignement que j'ai fait facilitera la lecture; j'ai donc isolé la partie incriminée

DLookUp("NameShort", "DatabasePeople", "FirstName = '" & [Design.Designer] & "'") AS DesignerShort,

J'obtiens une erreur de code (VBA - Texte en rouge) lorsque j'insère le code souligné qui devrait être une colonne calculée [DesignerShort] qui va chercher dans une base "DatabasePeople" un abrégé de nom [NameShort]...

J'ai testé la formule directement dans la query et elle marche...
Le code marche sans cette partie...
Je pense donc que j'ai une erreur d'écriture en VBA sur mon rajout... Mais laquelle ???

[Alexandre Sahli]

Tu peux essayer:

Code :

ActualCourierDesign = "SELECT Design.DesignCreationDate, Design.Designer," & DLookUp("NameShort", "DatabasePeople", "FirstName = '" & [Design.Designer] & "'") & " AS DesignerShort,

Il faut que VBA puisse effectuer la fonction Dlookup

[Chris 81]

Merci