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

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

1 个答案: