检查表Access 2010 VBA中是否已存在记录答案

【问题标题】：Check if record already exists in table Access 2010 VBA检查表Access 2010 VBA中是否已存在记录
【发布时间】：2014-02-09 12:16:09
【问题描述】：

我在 Access 2010 中创建了一个包含员工姓名列表的表，使用 ID 作为主键。我有另一个表，它通过 ID 在下拉框中使用这些名称作为外键，允许用户选择员工的姓名，然后使用表格记录对该姓名的培训。

我想问的是，我将如何编写 VBA 代码来检查员工的姓名是否已经添加到培训表中，从而检查员工是否已经完成了培训，然后返回一条消息提醒用户的框； "该员工已经完成培训，您确定要继续吗？"

我对 VBA 比较陌生，但是我认为我需要在员工 ID 上使用某种 Count 方法。提前致谢！

【问题讨论】：

查看 DlookUp office.microsoft.com/en-ie/access-help/…
谢谢，这显示了函数，但是如果计数大于 1，我如何将它放入返回消息框的语句中？
那是个新问题，如果需要记录输入的次数，可以使用DCOUNT，或者记录集。
对不起，我的意思是“大于 0”

标签： sql vba validation error-handling ms-access-2010

【解决方案1】：

我知道了，谢谢你的帮助！

'Save button

'Activated on click

'Runs macro if that employee has not already been added to the WelfareTraining database

Private Sub SaveRecord_Click()

    Dim stDocName As String

    stDocName = "SaveRecordTraining"

    If DCount("[Employee]", "WelfareTraining", "[Employee] = " & Me![Employee] & "  ") > 0 Then
        MsgBox ("This employee has already completed their training")
        Else
        DoCmd.RunMacro stDocName
    End If

End Sub

【讨论】：

这意味着您使用的是未绑定的表单。绑定表单中的默认行为是保存记录。