sql - 检查表Access 2010 VBA中是否已存在记录

Question

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

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

我是VBA的新手，但是我认为我需要在员工ID上使用某种Count方法。提前致谢!

Answer 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