VBA 代码的结果在 Access 的文本框中不可见

Posted 2023-05-07

【中文标题】VBA 代码的结果在 Access 的文本框中不可见

【英文标题】：Result of VBA code not visible in textbox in Access

【发布时间】：2020-02-06 19:28:30

【问题描述】：

我使用 Access 来维护我处理的案件列表（包含详细信息）（我是一名法律专业人士）。

我想为每个案例添加一个唯一的案例标识符。我使用表格将数据输入到数据库中。

我编写了这个非常简单的代码来添加 Case ID nr：

Private Sub Command81_Click()
    If Not IsNull(Me.Case_ID) Then
        DoCmd.CancelEvent
    Else
        Command81.Enabled = True
        Me.Case_ID = Me.Combo321 + Format(Me.[Date Original Event], "yymmdd") + Format(Time, "hhmmss")
    End If
End Sub

我的想法是我填写表单中的不同字段，然后单击一个按钮以添加案例 ID（列在文本框（在表单中）和名为“Case_ID”的字段（在数据库中））。

当我点击按钮时，它应该检查是否已经有一个案例 ID。如果有它不会创建一个新的。如果还没有，将根据案例发生的国家/地区 (Combo321) + 原始事件发生的日期 + 我创建案例 ID 的时间创建新的案例 ID。

（案例 ID 如此复杂是有原因的，但这对于我的问题而言并不重要。）。

代码就像一个魅力，除了：当我点击按钮时，表单中没有任何反应。案例 ID 仅在我单击后（在创建案例 ID 之后）出现在表单的相关文本框中。

有什么我可以添加到代码中以使案例 ID 在创建时出现在表单的文本框中，而无需单击文本框？

【参考方案1】：

您的表单的记录源是什么？ 您确实需要更新/值表中的 CaseId 成为表单的基础。