我有一个查询，结果如下 field1 field2 field3 field4 field5 23 gfhf ghjj 5 49 23 ghf jkll 6 45 67 bnvn nmb 7 45 89 gfh hjj 8 78 89 gfhg hk 9 23 这里的

我正在向表单中的列表框提供依赖于同一表单的其他控件的查询结果。问题是，当我手动启动查询时，我的列表框没有更新，结果很好。正如Remou所建议的，将Me.listbox.Requery放在它所依赖的控件的AfterUpdate事件中： Private Sub yourDataSourceUIElement_AfterUpdate() yourListBox.Requery End Sub 您是否尝试过在各种控件的afterupdate事件中重新查询VBA中的列表框？不限定控件

我正在尝试在Gridview（ASP.net）中执行更新操作。我已经创建了一个AccessDataSource，并在其中包含了所有查询。删除、选择查询工作正常，但更新不起作用 我得到了错误“Update语句中的语法错误”。我的问题是 UPDATE RateCenters SET RateCenterName = @RateCenterName, State/Province = @State/Province, Quantity/Threshold = @Quantity/Threshold

这很可能是一个基本问题，但我找不到任何线索，所以我求助于专家 我有一个表单中的sub，希望在相关表中插入行。父表的Id是一个自动编号字段；我需要使用新创建的行的Id，并将其作为外键插入子表中。我尝试了以下方法： Dim x As Recordset Dim newId As Integer Set x = CurrentDb.OpenRecordset("select * from T") With x .AddNew !OtherColumns = SomeValues

有一系列的表格a->B->C等 在A中，向用户询问参数，这些参数将作为B中所示表子集的where条件（使用DoCmd.OpenForm和“Detail”方法） 我还使用A中的参数在B中制作了一个漂亮的标题 问题1：如果B中没有任何命中（显示0条记录），用于标题的参数（即B表内容的搜索关键字）将丢失，因此我得到一个错误。我试图通过将参数作为“开放参数”发送来解决这个问题——这将给出正确的标题，但没有搜索结果（即，如果没有命中，则返回正确的结果）。但是，如果您从任何其他位置打开表单，如Access中

我正在使用Access制作一个学生数据库。作为我数据库的一部分，我有一个表单，要求用户从组合框中选择课程。我有不同的课程术语，对应于他们从下拉框中选择的课程。为了保持一致性，还使用下拉框选择术语 在我的代码中，我有一个带有以下代码的点击后事件过程： Private Sub Course_ID_AfterUpdate() If Me![Course ID] = 1 Or Me![Course ID] = 2 Or Me![Course ID] = 3 Then Me![Combo30].

我正在尝试使用VBA代码访问查询。我想我已经这样做了100次了。我的代码（在命令按钮上）是这样开始的： Dim rstDocCount As Recordset Set rstDocCount = CurrentDb.QueryDefs("DocCount").OpenRecordset rst.MoveFirst 我收到以下错误消息： 运行时错误“3061”：参数太少。预期1 Set rstDocCount行高亮显示为黄色 我做错了什么？唯一的参数应该是查询的名称，我清楚地知道它。“唯一

我有两个组合框，combo_A在combo_B中设置查询字符串。从combo_B中选择一个选项并点击go按钮后，根据Combo_A中的选择执行两个查询中的一个。如果在Combo_A中选择了选项1，则go按钮执行查询A，如果在Combo_A中选择了选项2，则go按钮执行查询B。这一切都很好，它通过将查询名称分配给变量，然后单击DoCmd.OpenQuery_执行 我的问题是我想更进一步。当选中复选框时，我想将上面的结果与另一个查询交叉引用，当未选中复选框时，它的行为需要与我当前设计的完全相同。我知

我有一个表单被分成多个不同的子表单，我想在其中自由切换，而不改变我正在查看的记录。更具体地说，我在“基本信息”选项卡上选择要修改的记录，然后在切换到其他选项卡（如“成本”选项卡）时，我希望选择相同的记录。在Access 2010中如何实现这一点？如何使用弹出式菜单实现这一点？任何帮助都将不胜感激 访问中最常见的方法（事实上在大多数软件中）是使用选项卡控件 因此，您使用一条主记录构建表单的顶部，然后对于七个子表单，您只需插入一个选项卡控件。以下是访问屏幕截图： 下面是另一个访问屏幕截图： 当我

我有一个使用Access 2003 ADP作为UI的项目。我最近发现，通过使用MSSCCI提供程序，我可以在TFS中添加此项目，并跟踪分支/合并所做的更改。我想开始在TFS中进行构建，但我不确定从哪里开始。在office中，安装源代码管理外接程序后，有一个选项可以从源代码管理构建数据库，这是可行的。我读了一些关于Office互操作和codeplex上的这个项目的书： 在阅读了所有的材料后，我开始旋转一点=D。社区中有人有什么建议吗？是否有从TFS构建办公产品的替代方案 谢谢。不确定您的问题在哪里

我试图从另一个名为“Current_Delivery”的表中更新一个表中的字段“Todays_Deliveries”。该字段是一个名为“剩余”的数字字段，用于描述每天交付的特定项目的剩余数量 “Todays_Deliveries”表是使用另一个主表的追加查询生成的，每个传递都存储在主表中。每次用户在表单上打开交付时，“当前交付”表中的任何内容都将使用删除查询删除，然后根据使用“今日交付”表中的追加查询选择的交付生成 两个表都有相同的字段和相同的值，因为其中一个是从另一个表的数据生成的 我尝试创建

我正在尝试从我的访问代码执行批处理文件。我使用以下代码： Open vPath & "\FtpComm.txt" For Output As fNum Connexion (fNum) 'function printing connexion info Print #fNum, "put " & vFile & " Temp.mdb" 'vFile = filename + full path Deconnexion (fNum) 'function printing

我在Microsoft Access中有一个函数，我得到了这个错误；ADO错误：函数中“getdate”的使用无效。是否有解决此错误的方法 以下是我的Microsoft Access功能： ALTER function dbo.WaitListFTN () Returns @temp TABLE ( [Last Name] [varchar] (20) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , [First Name] [varchar] (20

我正在尝试通过VBA代码导出一些嵌入access中作为附件的图片。出于某种原因，我一直收到一个编译错误：在.SaveToFile部分中找不到方法或数据成员 Private Sub btnExport_Click() ' Instantiate the parent recordset. Dim rsPicture As ADODB.Recordset Set rsPicture = New ADODB.Recordset rsPicture.ActiveConnection = Cu

如何在Access VBA代码中以编程方式确定代码是在Access运行时执行还是在Access的完整副本中执行 原因是在使用Access运行时，On Error处理非常有用，但会阻止在完全Microsoft Access中进行调试。根据线程中的一个回复，测试 SysCmd(acSysCmdRuntime) 在VBA中，代码应告诉您代码是否在Access运行时环境中运行。在开发过程中，您可以将错误捕获设置为“在所有错误时中断”。该选项设置将触发中断模式，即使您的On错误生效。您可以从VB编辑器的

因此，我对这个问题挠头已经有一段时间了，虽然理论上看起来很简单，但在VBA中实现它却很困难 需要一些项目背景知识来理解我要做什么 因此，我们的数据库/应用程序旨在跟踪我们如何测试软件版本，结果是什么，以及测试是否正确完成。我们有一组特定的脚本，可以在不同版本之间使用 在数据库中，我们有一个表列出这些脚本，而不将它们分配给特定版本的软件 然后我们有一个表单，您可以在其中选择要运行的软件版本 这是我遇到的问题 当你选择了一个软件版本，我想有一个按钮，你点击，它采取所有相关的测试脚本复制他们，并分配选

我已经为Microsoft access创建了一个报告，并且仅在单击我们填写的报告时才尝试将字段添加到报告中。我能想到的唯一方法是在access中编写代码或if-then语句。我几乎没有编写代码的经验，也不知道从哪里开始。我正在寻找类似“如果选中复选框，则将其添加到报告中”的内容 谢谢。这应该让您开始学习-这是一个基本的if结构： If Me!myCheckBox = True Then 'Write to the report Else 'Do something else

我有一个excel工作簿，里面有25张表格。每个工作表都有一个到MS Access中查询的数据连接。每个访问查询都有一个或多个来自系统间CachéDB的链接表。这是其中一个的连接字符串 Provider=Microsoft.ACE.OLEDB.12.0；用户ID=管理员；数据源=\DIR\SUBDIR\XXX\Database\CAST\CAST\u CLIENT\u SETTINGS.mdb；模式=共享拒绝写入；扩展属性=”；Jet OLEDB：系统数据库=”；Jet OLEDB:注册表路径=

我正在对ms Access应用程序进行反向工程，其中有一个表，我找不到该表的Update语句。因此，我找不到更新表单或查询的位置。有没有办法在Access的元数据中进行搜索？问题在于，在封面下Access不使用SQL更新表。虽然您可以将所有对象导出为文本，但这并不能解决您的问题，因为代码中会发生以下情况： strTable=Inputbox（“要修改的表是什么？”） strSql=“update”&strTable&“blab la bla” 因此，在一个典型的应用程序中，并不是所有的代码都使用

我可以单击一次启动以下事件过程，但如果我返回表单单击两次，Access会锁定到我必须在TaskManager中终止任务的点 对这个有什么建议吗 Private Sub Command372_Click() On Error GoTo ErrorHandler gTroop = Str(Me.Troop) DoCmd.SendObject acSendReport, "GirlScoutandTroopMatchGlobalVariable", "PDF", Me.Troo

我正在试图找出我下面的查询不起作用的原因 我已经创建了一个计算字段，作为IIf（）的一部分，我正在考虑执行LEFT函数 我希望返回列显示值的第一个字符，而不是隐藏的主键 只是想知道是否有人能给我指出正确的方向 您可以通过做几件事自己调试它。你还没有提供你所面临问题的具体信息 首先，我将重写查询，以减少偏执的数量，并使意图/逻辑更加清晰，这也将使调试更加容易 IIf([General Notes] In ("FFA", "Consignment", "CCO", "Hargreaves", "SC

如何让Dlookup从设置为超链接的表字段返回超链接，并在文本框中显示超链接？文本框只返回我为字符串指定的名称作为超链接，而不是表字段中的实际超链接。当我单击文本框中显示的内容时，它找不到路径，因为超链接只是字符串名称。我是否应该以不同的方式格式化Dlookup？我在Excel Vlookup函数之外的任何地方都找不到任何答案。我还没有在网上找到一个关于如何做到这一点的例子。文本框也被格式化为超链接 Private Sub Combo4_AfterUpdate() Dim CertNum As

在我的access中的一列中有这样的字符串列表，需要修剪名称，如下所示 字符串： bposdfr45rty asdfvgfhgfrs 预期产出： bposdfr4 asdfvgfh 我只需要保留前8个字符，删除其他字符 非常感谢您的建议。Blackhawk指的是这样的： Update tableName <br /> Set columnName = Left(columnName, 8) <br /> Where somecolumn = some critera

嘿，我是刚接触数据库的。 我正在创建一个表单，需要从本地系统附加一个excel文件。我试图使用附件控件来附加文档。但是我不能把它放在桌子上。我需要使用excel文档进行进一步处理。我需要从本地系统获取选择数据的路径。 我对路径进行了硬编码，可以执行操作，但现在需要从该位置动态获取数据 提前谢谢 我的硬编码代码如下所示 Private Sub Command4_Click() Dim dbs As DAO.Database Set dbs = CurrentDb If (ifTableE

我有这个疑问 SELECT invoice.number, invoice.amount, invoice.paid, iif (invoice.paid='Y', Max(payments.datePay), '') as invoice_paid FROM payments INNER JOIN invoice ON (invoices.number = payments.numberDoc AND payments.

我又一次有一个关于访问的问题。我正在将Access项目转换为SSIS项目。在对查询进行分析的过程中，我发现如下情况： update A inner join B on A.Column1 = B.Column1 and A.Column2 = B.Column2 set A.column3 = B.column3 A.column4 = B.column4... B.column# = B.column#; 我的问题是关于最后一句话。在同一表的同一列（B.column#=B.column#）之

在VBA中，是否有一种方法可以检测用户何时单击铅笔保存对记录的更改，或何时按下保存（软盘）图标 我正在寻找检测事件的方法，以便确认已接受保存。我使用Access 2013作为SharePoint列表的前端，偶尔会让用户形成保存事件失败。有时会通过更新的记录冲突对话框通知他们，但如果可能的话，我希望通过编程确认更改 或者，我想禁用所有保存菜单和图标，以便使用表单上的按钮 提前谢谢 您正在寻找的是活动。 当用户打算以任何方式保存记录时，会发生此错误。 如果打算向他们提供成功更新的反馈，请使用偶数

我需要从Access数据库生成一个使用标准函数无法获得的输出。我进行了广泛的搜索，但当我找到示例代码时，它最终失败了。所以，我从零开始，尽可能地从别人的工作中汲取经验。下面的代码可能非常原始，但它适用于我和数据库中的操作。我真正想看到的是如何使这段代码更加紧凑和高效。我今天没有处理太多的行（我不太确定您的复杂功能想要实现什么。是否要打印从数据库中读取的每个字母在字母表中的位置？这可以通过以下方式轻松实现： filename = "D:\Temp\_test.txt" Set rst = Cur

我有一些VBA，可以将表单中几个字段的内容插入到电子表格中。与其打开文档，不如将文档另存为“txtCustomerNumber+txtCustomerName”。我一直在玩弄下面的代码，似乎无法正确使用 Private Sub cmdMCF_Click() Dim appExcel As Excel.Application Dim wbook As Excel.Workbook Dim wsheet As Excel.Worksheet Set appExcel

我的zimbra邮件系统坏了，我的OpenLdap的mdb文件损坏了，所以现在我无法重建我的zimbra系统邮件。我需要工具或软件打开损坏的MDB文件的OpenLdap找到原因 对不起，我的英语不好。如果没有访问权限，您的第一次尝试将使用以下工具： 谢谢您的建议，但Jet Compact Uti无法打开此MDB文件，这很糟糕。然后，您将得到昨天的备份，或者到bing/google获得一项服务，该服务可以恢复严重损坏的Access文件，只需付费。

我正在处理表单，填写所有字段并单击“保存”按钮后，所有字段都已保存，但文本字段不是空的，所有输入的文本仍然存在，如何在单击“保存”按钮后删除这些文本转到新记录： DoCmd.GoToRecord , , acNewRec 您可能希望在“结束子项”之前的单击保存按钮事件中添加以下内容 尝试链接到要单击的按钮以清除未绑定表单中的所有文本框的此例程： Private Sub CleanAllFieldsButton_Click() Dim ctl As Control For Each ctl I

在access自学课程中，我还是个新手，我正在为明年使用的数据库打基础 我有一个表单可以正常工作，但是一旦我关闭表单，然后再次尝试打开它，我会得到一个错误，说表达式中的类型不匹配。所有的数据类型都是相同的短文本，所以我不明白错误来自哪里 ID和IDFK是自动编号字段。我还尝试将IDFK链接到Month_Week.ID，但仍然出现相同的错误 SELECT Month_Week.Month_Week, [Idle Times DS16].[Rep1Idle], [Idle Times DS16]

我正在运行Access 2016，我正在尝试从查询中获取一些记录。我是一个Access noob，我正在制作一个数据库。 当我运行下面的代码时，我得到错误3075，它说操作符不在那里，问题是，当我将SQL代码粘贴到access查询中时，它运行得很好，所以我看不出问题所在 Sub DOthings() Dim i As Integer Dim array1() As Variant Dim array2() As Variant Dim daDb As DAO.Database Set

我的多字段搜索表单有点问题。我想搜索表中的多个列，但只使用一个搜索框 我在设计视图中使用我的查询和搜索表单，不知道SQL，所以如果您能告诉我如何在设计视图中执行此操作，那就太好了 这里是我拥有的：表数据- 搜索表单 因此，我想做的是能够搜索所有乐器演奏者列，同时排除任何其他列（歌曲标题等），但只使用一个搜索框搜索这些乐器演奏者列中的条目 所有其他搜索框仅在各自的列中搜索（歌曲标题搜索框在“歌曲标题”列中搜索，等等）。现在，Instrumentalist搜索框仅搜索标记为“Instrument

我正在MS Access 2016中设计一个“HOSTEL”数据库，以跟踪“预订”表中的退房日期，并自动更改“床”表中的床状态。因此，如果[Booking].[CheckOut]等于当前日期，系统会自动将[Bed].[BedStatus]的值从“已占用”或“保留”更改为“可用”。 我愿意听取任何建议。事先非常感谢 欢迎来到StackOverflow。您真的希望根据表格更改或通过表单/模块所做的更改进行更改吗？我希望以自动方式查看更改。我的意思是，当退房日期等于当前日期时，床的状态将更改为“可用”

我正在尝试创建一个表单，供员工输入约会的打扮时间 我以为它可以工作，直到同一只宠物在新的日期有约会，然后我收到Microsoft Visual Basic运行时错误3022，并且不会添加新条目 我在哪里错过了这里发生了什么 Private Sub cmdNew_Click() ' Error check for empty comboboxes If IsNull(CmbPetName) = True Then MsgBox ("Pick A Pet For This Operatio

我已经试了一段时间了，但我似乎无法将我的桌子放在页面上 我要打印的表格的图片： 有没有办法使它变小？您应该使用报表 Access中的表仅用于存储数据，仅此而已。Access中的报表可以存储布局、打印设置等 要根据表格创建报告，只需转到该表格，然后单击“创建”选项卡中的“创建报告” < >在报表上有一个数据表，转到“创建”选项卡，点击“创建空白报告”，并将表格拖到空白报表中。外观几乎相同，但现在您可以确定表在报告中的大小。请注意，列宽仍然绑定到表。您还可以更好地控制布局、页码、页边距、标题等。您

我是一个心脏病学实践小集合的新分析师（提供一些背景）。我正在寻找一种方法，对CPT代码组合（用于特定程序的ID）进行分组，并使用它们统计患者就诊期间发生的测试次数（测试通常是CPT代码的组合） 我在这里找到了一些关于多值字段的相关资料，但我试图了解MS access是否能够查看CPT代码的分组（本例中为患者就诊）并确定是否进行了一次或多次测试 以下是简化数据： 身份证；公务访问；CPT；CPTdesc；容积；PrcType 一,；亚历克斯，医生-12345-15-09-2017 12:00:00

我的access数据库昨天崩溃，我今天尝试加载它以查找AutoExec 2001错误 应用程序仍能正常工作，但会弹出错误消息，而没有任何选项来检查调试 我已经更新了受信任的位置，因为我读到这可能是一种可能性 错误发生在这里： If DLookup("[Last_Opened]", "[tbl_logger]", "[Last_opened] = date()") Then DoCmd.Close acForm, "frm_Splash" DoCmd.OpenForm "frm_

我已经创建了一个变量“CurrentUserID”，作为模块中的字符串。此变量标识已登录和注销的用户 在我的当前消息框中，我有MsgBox（CurrentUserID）。这只会弹出一个已登录用户的名称。如何在包含“CurrentUserID”变量的同时在其中添加消息 例如，如果我以bob身份登录。消息将显示“bob”（通过CurrentUserID）。我如何添加一些文本，使其可以“重定向到详细信息bob” 谢谢您正在寻找字符串串联运算符，& MsgBox "Redirecting details

在Access VBA上的宏结束之前，是否有一种防止鼠标单击计算机的方法？宏需要一个特定的应用程序处于焦点位置，因此我不希望用户在宏运行时转到其他地方。这是无法做到的。您可以随时转到其他窗口或任务栏。Yo 我不能在VBA中完成，但有一些程序可以做到这一点。 因此，您可能必须找到VBA程序的解决方法，然后选择组合 以下是链接： 这些是他们讨论的计划： 键冻结 蹒跚学步 幼儿钥匙 儿童钥匙锁 键盘锁 儿童锁 捕食者 锁窗 您必须测试这些，因为您只想禁用鼠标，我会选择Kid Key Lock。您可以

我想问的是，我希望是一个简单的知识问题 MS Access VBA中的命令“CreateReport”创建空白报告草稿。但是，只有页眉和页脚。我想实现的是创建空白报告草稿，其中还包括报告页眉和报告页脚。 我可以在创建正常报告草稿后手动添加它们，但这不是我想要的 有什么办法吗 提前谢谢大家 我找到了一条出路。我所做的是，我创建了一个空白报告，手动添加了报告页眉和页脚，并用作草稿。这项工作： Sub TestReportCreate() Dim rpt As Access.Report

我使用vbext\u ct\u StdModule对象在vba中创建了一个模块 Set oMod = VBE.Activ eVBProject.VBComponents.Add(vbext_ct_StdModule) 然后，我使用AddFromString函数向代码模块添加了一个过程 oMod.CodeModule.AddFromString strVBScript 然后我尝试调用我刚刚创建的过程，但它不起作用。我尝试了call方法和application.run方法 在破解代码之后，我就可

我对access的编码方面有些陌生。在我的数据库中，我有一个包含车辆信息的链接表。此表中的第一个字段包含车辆VIN，因此文本约为12-15个字符。我要做的是对这个字段进行查询，它将删除第一列中少于12个字符的整行。我可以对特定的文本执行此操作，但是否有一种方法可以删除它们，无论文本是什么，只要它低于12个字符的规则？SQL代码： 从TableVehicleInfo中删除*，其中Len（VehicleVIN）

我已经编写了MS Access VBA代码 我已在表格_Open事件中编写了许可证代码。许可证代码在注册表中可用。在打开表单期间，注册表值将与代码中的硬编码值进行比较。如果两者相同，则会打开表单。如果两个值不相同，它将显示消息并关闭访问应用程序（application.Quit），您未通过使用该工具的身份验证 现在我忘记了VBA代码中的密码 一旦打开表单，由于两个值不匹配，将显示模式消息框，我根本无法打开VBA代码 我不知道如何禁用Form_Open事件 请帮助我禁用Form_Open事件，并打

我知道这个问题的答案有很多线索，但作为一个初学者，我很难理解这两者之间的区别。我正在学习Access，还没有学习SQL语句。对这个问题的大多数解释都包含我不理解的SQL代码。如果你能为初学者解释一下两者的区别，那就太好了 如果表单中有一个组合框，它将同时具有行源和控件源。控制源是存储实际值的基础表中的字段。行源是要从中选择的值列表的源。 你有一张摆满鲜花的桌子。一个领域是颜色。您要限制为花朵输入的颜色。你做了一张叫做花色的桌子。 在你的花朵形态中，你有一个组合框。它的控制源将是来自桌上花的颜色，

通过网络共享数据库。但是，当其他人打开数据库时，“共享”处于启用状态，但所有按钮均不起作用。没有出现错误，只是闪烁，什么也没发生 我正在寻找我的数据库是由一个以上的用户打开和操作 事实证明，问题在于按下按钮后表单的弹出窗口没有出现在屏幕上，因为存在任何类型的访问问题。以防万一其他人也有同样的经历 这些用户的电脑上可能不允许使用VBA。您可以将文件的位置设置为受信任位置，并将宏安全设置为允许\file、选项、信任中心、信任中心设置、受信任位置中的受信任位置此操作无效。谢谢你的回复。

表格结构： -frm_00_00_主表格； --frm_02_02_组_Tbl； --frm_reg_groups Stud_Stud_IdGroup_tbl。   表单数据源[frm_reg_GroupsStud_Stud_IdGroup_tbl]-请求。 我需要得到[id_stud]字段的最大值。 因此，代码不会处理请求的所有行，而只处理表单中的行，我认为这可以加快代码的速度。 为此，我创建了一个记录集表单。   为此，我尝试使用以下代码：     Private Sub btnMaxV

我有一个要从中删除项目的动态数组。我知道我们可以从数组末尾删除一个项目，方法是将其大小减小1并重新命名。但是，有没有一种方法可以从数组中删除项目，而不管该项目在数组中处于什么位置？没有内置函数可以从数组中删除。因此，唯一的方法是将每个值向下“拉”一，然后重新调暗以删除最后一个值 数组可以追溯到20世纪70年代末和80年代初在个人计算机上流行的FORTAN和早期GWBASIC语言的旧时代。大多数新语言（包括VBA）都有更好的选择。因为这是一种“痛苦”的方法，所以我将构建一个函数来为您删除该行 此代

我正在为一个自由手语翻译制作一个数据库。我有一个主题表tblClient，其中包含有关自由职业者客户的信息。有一个查找表tlkClientClientType，其中显示了各种类型的客户端（根据条件进行分类——聋哑、聋哑/盲等）。还有一个名为tlkClientModality的表。此表中列出了口译员提供的不同类型的手语。您可以从客户机表中选择客户机的首选模式 现在是棘手的部分。如果客户是某一类型，则不应该选择某些模式（基本上只是手语的风格）。例如，您不能对聋哑人/盲人使用“常规”（视觉）手语。这是