Forms 打开ID为MS Access的表单

我已经阅读了一些解决这个问题的线程，但是我仍然有一个错误，表单打开到一个空白记录

我的设置是，我有一个“联系人文件”表单，显示“主联系人数据库”表中个人的一般联系人信息。在这个表单的底部，我有一个子表单，它显示个人的案例信息，还允许用户创建新案例。这些信息正确地存储在我在Access中创建的“casefileinformation”表中

然而，当我试图打开“案例文件信息”表单时，在“联系人文件”表单上有一个按钮和一个文本字段，它会显示一条空白记录。我尝试使用MS Access内置的“按钮”创建工具创建宏以及以下VBA：

Private Sub Command112_Click()
DoCmd.OpenForm "Casefile Information", , , "CASEID = " & Me.Text98
End Sub

我也尝试过这种方法：

Private Sub Command112_Click()
Dim RecordID As Integer
RecordID = Me.Text98
DoCmd.OpenForm "Casefile Information", , , "CASEID = " & RecordID
End Sub

• Text98是“联系人文件”表单上的文本框
• CASEID是8个数字字符，是该表的主键，由用户输入，但不允许重复
• 上面的第二个示例在RecordID=Me.Text98行返回一个错误（6）

无论出于何种原因，数据库中有一条记录可以正常工作，但不会正确加载该联系人的其他联系人和其他案例文件

---

谢谢

您必须确保

案例文件信息

表单设置为Data Entry=No，否则它将一直为空。看

---

至于您收到的错误，您可能有一些数据类型未匹配，或者我设置了combobox以从Casefile信息数据库中提取值，并编码了按钮以从combobox中提取存储值，并根据该值打开表单（一般称为combobox113）。在该组合框中，我显示了第1列（CASEID）和第2列（SHORT_DESC），但将值绑定到第1列，以便它携带CASEID值来打开表单

---

这是一项工作，但暂时完成了任务

使用值时会发生什么情况？例如

docmd.OpenForm“Casefile Information”、，“CASEID=“&12345678

首先查找案例ID。如果这样做有效，请分步执行并检查要传递的值。确保CaseId是一个数字字段。如果我将数据库中出现的值

10070114

放在

Text98

（按钮从中提取信息的文本框）中，并将按钮命令更改为

DoCmd.OpenForm“Casefile information”，“CaseId=“&10070114

，则它将正确打开。CASEID是存储在表中的数字字段。请尝试使用

…“CASEID=“&Me.Text98

，但请输入一个分隔符并检查Text98的值，它可能没有正确的值。如果您考虑过使用组合框来查找记录，那么编写代码是非常容易的，因为有一些向导可以使用绑定表单上的组合来查找记录。您只需在找到记录后小心地清除cmbo，这样用户在导航时就不会感到困惑。我不相信

。。“CASEID=“&RecordID

将永远有效。尝试了组合框策略，我更喜欢它的外观，可能会继续使用它；但是，空白表单的问题仍然存在。CaseFLE信息表单被设置为数据条目＝否。问题仍然存在。我开始获得溢出错误（运行时6）。将数据类型更改为Long，并在再次开始提取空白表单之前工作一次。