Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/.htaccess/5.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 根据“选择查询给予”更新查询;“定义的字段太多”;错误_Ms Access_Vba - Fatal编程技术网

Ms access 根据“选择查询给予”更新查询;“定义的字段太多”;错误

Ms access 根据“选择查询给予”更新查询;“定义的字段太多”;错误,ms-access,vba,Ms Access,Vba,我有一个大约有40个字段的表,我的select查询包含7个字段,我有一个基于select查询结果的更新查询。VBA通过单击表单上的按钮调用所有这些。单独运行查询没有问题,但是使用按钮返回“定义的字段太多了”。我的表没有达到255个字段的限制,只有大约10000条记录。压缩/修复没有修复它,也没有制作主表的新副本。我弄不明白,有人能帮我解决这个问题吗?因此,我发现问题是由于选择了Select查询my Update查询引用的“Show”属性引起的。如果我选择“显示”,我会得到“定义的字段太多”,但如

我有一个大约有40个字段的表,我的select查询包含7个字段,我有一个基于select查询结果的更新查询。VBA通过单击表单上的按钮调用所有这些。单独运行查询没有问题,但是使用按钮返回“定义的字段太多了”。我的表没有达到255个字段的限制,只有大约10000条记录。压缩/修复没有修复它,也没有制作主表的新副本。我弄不明白,有人能帮我解决这个问题吗?

因此,我发现问题是由于选择了Select查询my Update查询引用的“Show”属性引起的。如果我选择“显示”,我会得到“定义的字段太多”,但如果不选中,Access会从我未显示的字段中请求输入

由于我只想更新select查询找到的表中的记录,因此除了创建单独的查询并以这种方式将信息拼接在一起之外,我现在无法解决这个问题


如果您有任何意见、建议或其他建议,我们将不胜感激。

请分享您正在使用的代码,并尝试提供一个完整的解决方案。尝试在VBA sub的上下文中以及作为SQL语句(不带引号)共享SQL。选择[Fraud Data-Master]。[Passenger Name],[Fraud Data-Master]。程序[Fraud Data-Master]。[Account Number],[Fraud Data-Master]。[Email Address],[Fraud Data-Master]。CCList FROM[Fraud Data-Master]WHERE(([Fraud Data-Master].CCList)=否)和([欺诈数据-主数据].状态)=欺诈)或(([欺诈数据-主数据].CCList)=否)和([欺诈数据-主数据][Cap1状态]=已确认欺诈))<代码>Dim myQuery作为字符串Dim myExportName作为字符串Dim xlApp作为Excel。Application Dim xlWorkbook作为Excel。Workbook myQuery=“CCListQuery”myExportName=“X:\Boise Call Center\Departments\CXFraud\Macros Scripts\CC\Blacklist Export.xlsm”DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel12,myQuery,myExportName Set xlApp=Excel.Application Set xl工作簿=xlApp.Workbooks.Open(“X:\Boise Call Center\Departments\CXFraud\Macros Scripts\CC\Blacklist Export.xlsm”)xlApp.Visible=True Set xlApp=Nothing Set xl工作簿=Nothing在(CCListQuery.CCList=[Fraud Data-Master].CCList]上更新CCListQuery内部联接[Fraud Data-Master]和(CCListQuery.[电子邮件地址]=[欺诈数据-主数据].[电子邮件地址])和(CCListQuery.[账号]=[欺诈数据-主数据].[账号])和(CCListQuery.Program=[欺诈数据-主数据].Program)和(CCListQuery.[乘客姓名]=[欺诈数据-主数据].[乘客姓名])设置[欺诈数据-主数据].CCList=是,其中(((CCListQuery.CCList)=否);