问题标签 [openargs]

我正在精简我的数据库，尽可能消除重复的报告并创建更好的代码。我有一个涉及我们的焊工和工头的数据库。在这段代码中，我可以为单个工头打印一份报告，该报告通过 openargs 发送字符串“strActive”。报告查看 strActive 和 OpenForm 操作，根据字符串为活动、非活动或所有焊工设置过滤器通过的值。

它在时间码上完美地适用于单页。在那里，用户从列表中选择一个领班或输入领班的时钟号码。报告所基于的查询使用全局字符串“ForemanCLK”来仅获取该焊工的结果。

以前，我有三份报告；一份用于所有焊工，一份用于活跃焊工，一份用于非活跃焊工。

以前，我会根据 strActive 设置一个变量，并使用代码中的另一个变量代替报告名称打开相应的报告。循环运行良好并打开报告 39 次，每次都使用新的工头姓名和数据。

我很困惑为什么现在用 openarg 打开报告不起作用。我只得到第一个工头的名字，39次。我已经通过注释掉 docmd 行和 debug.print(ing) 表单所需的各种值来验证我得到了不同工头的 foremanCLK 变量。该报告根本无法正确加载。

上面的代码让我得到了由 strActive 过滤的同一个工头报告的许多副本

但这让我得到了所有不同的工头，除了它没有被过滤。

我试过传入 Where 子句。

和

和

我对单个报告进行了相同的验证，它正确过滤，但在循环中，它根本不过滤。但是，它确实给了我不同的工头。

这里最大的问题是......

为什么？access 在报告之间是否没有足够的时间来关闭它，因此它不会对打开的事件执行操作？

还有其他想法吗？

有一个概念问题。打开表单时，使用 stLinkCriteria 还是 OpenArgs 更好？如果有区别，什么时候应该优先选择一个？

感谢比尔

我对 VBA 很陌生，我正在尝试在发票创建表单上创建一个按钮来打印发票。按钮的 On Click 事件应该打开一个报表并将表单上的 Invoice ID 分配给 openargs 属性。

然后当报告打开时，它运行代码：

但是，当我单击表单上的按钮时，会出现输入参数框。奇怪的是，此框中的文本是我要分配给 OpenArgs 属性的发票编号的值。我不知道如何使 OpenArgs 的值成为表单中的发票编号。

我不确定我做错了什么，似乎无法在任何地方找到答案。任何帮助，将不胜感激。

好的，所以我在 Access 中有一个数据库，当我打开一个表单（用于工作申请）并单击一个按钮时，它会运行以下代码：

其中 txtApplID 是一个文本框，其中填充了应用程序表中“应用程序 ID”号的数值。我希望将此值传递给“sfrmAppDemographics”表单，以便它将为应用程序的前面提到的表单中显示的用户打开正确的人口统计信息。

所以，我在人口统计表格的代码中这样做了：

结束子

所以，想法是，如果没有人口统计信息，它将使用传递的 openargs 中的 ApplID 创建一个新的，如果有该用户的人口统计数据，它会弹出一个带有 openargs 的消息框（作为测试看看它是否工作）。我总是在 MsgBox 的行上收到错误“运行时错误'94'：无效使用 Null”。（因为数据库确实有人口统计记录）。当我取出 Else MsgBox Me.OpenArgs 时，它只显示数据库中的第一个人口统计信息，ApplID 为 1。奇怪。看来我无法通过 Form_Open 代码中的 OpenArgs 功能传递或访问 ApplID。有什么帮助吗？

*****已编辑

所以我有一个名为“NewInvoice”的表格。此表单编辑包含以下内容的“发票”表；发票号码、客户、订单日期。在这个表单中，我有一个按钮，可以打开一个名为“InvoiceItem”的子表单。这将编辑包含发票编号、项目代码、尺寸等的同名表。

现在，我的按钮有一个如下的事件过程。

私有子 CreateInvoiceItem_Click()

DoCmd.OpenForm "InvoiceItem", OpenArgs:="InvoiceNumber"

结束子

（我使用按钮并在单独的窗口中打开表单的原因是因为当我将子表单插入父表单时，子表单中的级联组合框会损坏）

现在我遇到问题的地方是设置表单加载命令。我想要发生的是，当单击按钮时，在父表单中填写的 InvoiceNumber 会自动填写子表单。

私有子 Form_Load()

**** 需要的代码****

结束子

我正在使用 cmd 按钮打开一个弹出式（单个）表单，其中包含 (2) 个 txtboxes，我想在前一个（连续）表单中反映来自单个记录的信息。该 cmd 将

cmd按钮上的代码：

Form_Open 上的代码

我承认我从类似的设置中借用了代码，其中信息是从 cbo 而不是 cmd 调用的。当弹出表单打开时，只显示查询中的第一条记录，而不是与 cmd 关联的记录。有什么建议么。TIA。

我的应用程序中有 40 多个组合控件。我正在开发一个公共功能，将每个组合的不在列表中的事件放入其中。目标是有 1 个连续弹出表单，如果用户说他们想为组合添加新值，它将打开。open form 命令将传递 open args 的

1. 记录源
2. 连续表单上 1 文本框的控制源（通常是类型）
3. 控制源的标签。

我在让它通过开放参数时遇到了一些麻烦。我 debug.print args 的各个部分，当它们通过时，我可以拆分它们（当我尝试调试时，使打开的 args 正确传递的结果不一致），并且我似乎无法为弹出窗口设置记录源正确形成。我试过一次做1，但似乎仍然无法得到它。

这是公共函数：Option Explicit

这就是我在 1 个组合的 Not In List 事件中的称呼方式： Option Explicit Private Sub FKAuditType_NotInList(NewData As String, Response As Integer) Dim a1 As String Dim a2 As String Dim a3 As String

那应该是调用公共函数，并传递 4 个参数。

这是通用连续弹出表单的表单加载，称为frmAddTypeVal：Option Explicit

当我按原样运行时，我的 debug.print (s) 给了我以下信息：

我得到每个值，但打开的参数为空。怎么回事，贝克？

任何人都可以帮助指导这个无知的编码员吗？哈哈

谢谢！

我对此进行了编辑以更新代码，并进行了更改。现在它正在工作！至少是该过程的第一部分。openargs 被传递并且弹出表单正常工作。当我在该表单上单击关闭时，我又回到了带有 notinlist 组合的表单上。这将恢复它的过程，我收到一条消息：您输入的文本不是列表中的项目。

它知道这是默认的 notinlist 消息。问题是，公共功能应该处理这个问题。它有，在 if Response = vbYes Then

然后在打开表格之后（我认为这将涉及该表格的关闭）

任何人都知道我可以如何调整它以防止该消息，但不只是禁用所有警告？

谢谢！

知道了！在 not in 列表中，调用公共函数后，我必须添加：

响应 = acDataErrContinue

这让我们默认错误消息坐下大声笑。

感谢所有的帮助！这将使为每个该死的组合设置它变得更加容易！！！！

大家好。我有一个快速的问题。我有一个 openargs 值，我正尝试使用它在从另一个表单返回时显示在我的组合框 (cmbMemberName) 中。组合框填充下划线子窗体。我似乎无法获得正确的方法。我不能使用会过滤掉其余记录的记录源。Rem：我只想关注更新的记录并在返回时加载到组合框中。这是我尝试的最后一种方法。

错误发生在 DoCmd 上。有什么建议么。谢谢。我可以加载整个序列，但不认为这是必要的。

问题

我有两种形式：

• frmForms
• frmDockRental

我有两个与此问题相关的控件：

• lstOwners开frmForms（未绑定）
• cboOwner开frmDockRental（未绑定）

第二种形式 ( frmDockRental) 使用位于frmForms(参见图片) 上的不同列表框打开。我有一个这样的列表框让我很伤心。这是一个过滤的联系人列表，双击它应该打开frmDockRental一个新记录，并将cboOwner未绑定的设置为列表中的特定项目。lstOwners从中列出的相同项目frmForms。

代码

经过大量的摆弄，我想出了这个 - 除了什么都没有发生。

然后frmDockRental，这个：

我认为 OpenArgs 将是完成此任务的最佳方法，但它不起作用。什么都没有发生。没有错误，什么都没有。

编辑：

这是一步调试的图像。