问题标签 [ms-access-2003]

在 Access 2003 中，有一些方法可以在打开表单或数据库时运行代码，但是当数据库关闭时呢？

我的动机是不可避免地使用一些有问题的第三方 COM 库。释放 COM 引用（通过将变量设置为 Nothing）会导致它（正确地）与其服务器断开连接。问题是它不能在不退出进程并启动新进程的情况下重新连接（这是一个已知的错误）。在这种情况下，该过程是整个 Access IDE :(

理想情况下，我想将 COM 引用存储在某个地方，以防止 VBA“重置”操作清除全局变量（并且在调试过程中很常见，有时由代码编辑强制执行）。但后来我想有机会在数据库关闭之前进行清理。

Access VBA (2003) 中是否有方法可以将 COM 引用转换为整数并调用 AddRef/Release？（给出错误“函数或接口标记为受限，或函数使用 Visual Basic 不支持的自动化类型”）

我正在使用第三方 COM 对象，它不能处理在单个进程中被实例化两次（这是一个已知的错误）。因此，我考虑将引用存储为隐藏窗体上的控件标题，以保护它免受程序重置清除所有 VB 变量的影响。

编辑：我认为转换为 int 可以使用未记录的 ObjPtr 完成，然后使用 CopyMemory API 再次返回，并且可以隐式调用 AddRef/Release。但是有更好的方法吗？加载项是否受到程序重置的保护？

我对 MS Access 有以下问题：

假设我有一份具有每月绩效值的公司列表。我可以通过将图表挂接到带有月份列和绩效列的查询中，在图表中查看单个公司的绩效。

现在假设我想显示 N 家公司的图表。如果我要生成一个包含 Month 列和 N Performance 列（每个公司一个）的查询，我理论上可以做到这一点。有没有办法像这样创建具有可变列数的查询？我有一个可以在必要时使用的 SQL 后端，而且我可以将支持它所需的任何 VBA 代码放在一起。我看到的唯一障碍是我无法使用我不太熟悉的 MS Access。

所以这是我的主要问题：

1. 这甚至可能吗？
2. 我将如何解决这个问题？我正在尽量减少研究时间，所以如果我能指出正确的方向，那就太好了。

谢谢！

以下函数用于评估由过程 CheckEventDataIntegrity 调用的日期。这仅适用于事件，但现在我想添加部件号和事件类型。意味着它应该使用事件和零件号评估日期。我该怎么做？

CheckEventDataIntegrity 过程调用如下：

'-------------------------------- '-------- ---------- ' 过程：CheckEventDataIntegrity ' 目的： 验证流程逻辑是否被遵循，这会检查排序 '--------- -------- Function CheckEventDataIntegrity(fl1 As Boolean) On Error GoTo CheckEventDataIntegrity_Error

'事件类型 #1a If Me!EventTypeSelected = "1a Assign - To Checker Queue" Then If EvaluateDates("1 Receive NEW from Detailer") = False Then ' 包装器尚未分配给 Checker CheckEventDataIntegrity = False Exit Function Else ' CheckEventDataIntegrity = True Exit Do End If End If 'event type #2 If Me!EventTypeSelected = "2 ReV - Assignment" Then If EvaluateDates("1 Receive NEW from Detailer") = False Then ' 包装器尚未分配给审阅者 CheckEventDataIntegrity = False 退出函数 Else Exit Do End If End If

----

------

-----

fl1 = False Loop '没有失败测试 CheckEventDataIntegrity = True

On Error GoTo 0 Exit Function CheckEventDataIntegrity_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure CheckEventDataIntegrity of VBA Document Form_frmEventLog_Input" End Function

我可以在评估函数中添加零件编号，如下所示：

但是如何在 CheckEventDataIntegrity 过程中实现它？

我的 MS Access ADP 中有一个名为 Group 的表单。它上面是一个选项卡控件，每个选项卡中都有一个子窗体。第一个选项卡包含子表单用户，它没有显示在表单视图中。子表单用户显示在设计视图中。

关于为什么会发生这种情况的任何线索？

我正在尝试根据在子表单上的文本框中键入的内容来过滤子表单上显示的记录。子窗体称为用户，它位于组窗体上。在用户子窗体上有一个名为 txtFilter 的文本框。如果我在 txtFilter 中键入“W”，我只想显示用户的姓氏或用户名以“W”开头的记录。当我继续输入 W...A...LI 时，只希望显示 lastName 或 UserName 以“Wal”开头的用户。

我有一些模糊的想法，我必须使用记录集属性或子表单的 serverFilter 来执行此操作，但我真的不知道该怎么做。请帮我！

我有一个存储发票的表格和一个基于该表格的表格，看起来像发票，以便您可以搜索以前的发票。目前我正在用 excel 创建发票，然后将数据作为新记录导出到 Invoice 表中。我想知道是否有一种方法可以从我的发票表单创建发票。我有一张我们携带的用于发票的所有产品和价格的表格。有没有办法在发票表单上放置一个搜索按钮，以便在产品表中搜索记录或“产品”并将其插入新发票的字段中？我已经查看了一些代码来连接到产品表并将其插入发票表单的字段中，但是我该如何搜索呢？有什么想法或想法吗？任何帮助将非常感激！！

我有一个使用向导进行的导入，至少足以保存规范。它导入带有标题、引用文本限定符和逗号分隔的 CSV 文件。然后我在一些从按钮单击事件触发的 vba 中使用导入规范。

以下是我想知道的一些事情：

那么如果数据中的字段乱序导入会失败？如果数据不包含导入失败的所有字段？如果数据中有额外的字段导入失败？

那么我可以对导入的数据进行任何类型的验证，以确保字段与规范相同，它们的顺序正确（如果需要的话）等等。

这工作得很好，但我只是看到，如果数据中的某些东西不正常，它无论如何都会导入，并把整个时间都扔掉。

另外....这不是典型的访问设置...这主要是为了让数据分析师团队将文件导入 mdb...没有前端。

谢谢贾斯汀

在 Access 2003 Pro（内部版本 11.8321.8324）SP3 上测试。

重现步骤：

• 创建一个新的数据库。
• 创建一个新表格。
• 在表格上放一个按钮。
• 将以下代码粘贴到按钮的 Click 事件过程中：

Debug.Print Workspaces.Count
Debug.Print CurrentDb.Name

• 关闭代码编辑器和表单，保存更改。
• 不要跳过这一步：关闭访问。
• 重新打开 Access 和您的数据库。
• 打开表格
• 点击按钮
• 单击工具栏按钮将表单切换到设计模式。

您应该看到以下错误对话框：

您目前没有对数据库的独占访问权限。如果您继续进行更改，您以后可能无法保存它们。

有谁知道这里发生了什么？

我对 Access 和 VB 非常陌生，我即将打印特定记录.. 但我收到此代码错误：

我的报告名称是 AVR Ekstern，主键是 Rapport nr，我单击按钮并查看记录的形式是 AVR

我想我在路上误解了一些东西，所以我真的希望有人能帮助我吗？