Vba 如何解决access查询中的运行时错误3075

我有一个使用allen Browne的连接方法的函数

代码运行良好，在我的查询中也运行良好

然而，当我尝试左键连接连接查询与我的联合查询时，我得到20个左右的弹出窗口，说明一个错误，然后查询打开，显示信息…非常奇怪。目前，我已经通过在连续形式上使用Dlookup解决了这个问题

我试图修改整数和字符串之间的语法，但出现了相同的错误

我尝试将concat函数组合到一个查询中，然后加入该查询，同样的问题

我要加入到主查询的查询

选择 tblCUSTOMERREF.aglgrnID， tblCUSTOMERREF.CustomerRef， ConcatRelatedCustomerRef，tblCUSTOMERREF，[aglgrnID]=&[aglgrnID]AS 客户参考 从…起 tblCUSTOMERREF； 主查询-只是从任何地方拉信息

SELECT 
   AGLGRNextended.*, 
   ([tblPRODUCT].[productSUPPLIERSKU]&" - "&[tblPRODUCT].[productDESCRIPTION])AS Description, 
   tblPRODUCT.[productSUPPLIERNAME], tblAGLGRN.[aglgrnCREATED], 
   tblSCANIN.[scaninUSER], tblSCANIN.[scaninUSERTIME], tblUser.[UserName], 
   tblUser.[UserFIRSTNAME], Val(AGLGRNextended.[PROD]) AS PROD1, 
   Format(tblAGLGRN.aglgrnDATEEXPECTED,'Short Date') AS DateExpected,  
   tblAGLGRN.aglgrnUSER AS AGLGRNUSER,
   tblUser.UserFIRSTNAME AS AGLGRNFIRSTNAMEUSER
FROM 
   (((((AGLGRNextended LEFT JOIN tblPRODUCT ON [tblPRODUCT].[productGS1SKU]=[AGLGRNextended].[GS1SKU]) 
   LEFT JOIN tblAGLGRN ON [AGLGRNextended].[AGLGRN]=Format(tblAGLGRN.AGLGRN,'00000')) 
      LEFT JOIN tblSCANIN ON [tblSCANIN].[ID]=[AGLGRNextended].[SCANINID]) 
         LEFT JOIN tblUser ON [tblUser].[UserLogin]=[tblAGLGRN].[aglgrnUSER])) 
            LEFT JOIN CustomerRefqry ON Format([CustomerRefqry].[aglgrnID],'00000') = Format(tblAGLGRN.AGLGRN,'00000')


UNION SELECT 
   Null AS Field2, 
   tblCOMPANYDIRECTORY.companyCODE AS Field3,  
   Format(tblAGLGRN.AGLGRN,'00000') AS AGLGRN,  
   Null AS Field4, Null AS Field5,  
   Null AS Field6, Null AS Field7,  
   tblAGLGRN.aglgrnCUSTOMERREF, 
   tblAGLGRN.aglgrnSUPPLIERREF, 
   tblAGLGRN.companyID,  
   Null AS Field9,  
   PackageCountqry.PackageQty AS Packages,  
   Null AS Field10,  
   Null AS Field11, Null AS Field12,  
   Null AS Field13, Null AS Field14,  
   Null AS Field15, Null AS Field16,  
   Null AS Field17, Null AS Field18,  
   tblAGLGRN.aglgrnSUPPLIER AS Field19,  
   tblAGLGRN.aglgrnCREATED AS Field20,  
   Null AS Field21,  
   Null AS Field22,  
   Null AS Field23,  
   Null AS Field24,  
   Null AS Field25,  
   tblAGLGRN.aglgrnDATEEXPECTED AS DateExpected,  
   tblAGLGRN.aglgrnUSER AS Field26,  
   tblUser.UserFIRSTNAME AS AGLGRNFIRSTNAMEUSER
FROM  
   (((((tblAGLGRN LEFT JOIN GS1DECODEextended ON Format(tblAGLGRN.AGLGRN,'00000') = Format(GS1DECODEextended.[AGL GRN],'00000'))  
    LEFT JOIN tblPACKAGES ON Format(tblAGLGRN.AGLGRN,'00000') = Format(tblPACKAGES.aglgrnID,'00000'))  
    LEFT JOIN PackageCountqry ON Format(tblAGLGRN.AGLGRN,'00000') = Format(PackageCountqry.AGLGRNPACKAGE,'00000'))  
    LEFT JOIN tblUser ON tblUser.UserLogin = tblAGLGRN.aglgrnUSER) 
    LEFT JOIN tblCOMPANYDIRECTORY ON tblAGLGRN.companyID = tblCOMPANYDIRECTORY.ID)  
   LEFT JOIN CustomerRefqry ON Format([CustomerRefqry].[aglgrnID],'00000') = Format(tblAGLGRN.AGLGRN,'00000')
WHERE  
   Format(tblAGLGRN.AGLGRN,'00000') <> Format(GS1DECODEextended.[AGL GRN],'00000')
ORDER BY  
   AGLGRNextended.[AGLGRN] DESC;

[aglgrnID]=出现语法问题。tblCUSTOMERREF没有给我这个，它只是在我离开时将它加入到表中

---

所以我不知道我遗漏了什么…

说不出来，但使用我的函数可能会获得更好的结果。在使用UNION的查询中不要使用*。您必须确保联合的每个子查询的结果字段在数量、名称、类型和顺序上完全相同，使用*会非常困难。您能说明如何/在何处进行联接吗？无法复制我的数据的问题。LEFT JOIN可以工作。谢谢你在*上的建议，我会尝试一下，看看它是否能阻止错误，然后返回更新的查询代码。