Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/sql/84.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Sql 检查Access 2010 VBA表中是否已存在记录_Sql_Vba_Validation_Error Handling_Ms Access 2010 - Fatal编程技术网

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

Sql 检查Access 2010 VBA表中是否已存在记录,sql,vba,validation,error-handling,ms-access-2010,Sql,Vba,Validation,Error Handling,Ms Access 2010,我在Access 2010中创建了一个表,其中包含员工姓名列表,使用ID作为主键。 我有另一个表,它通过ID在下拉框中使用这些名称作为外键,允许用户选择员工的姓名,然后使用表单记录对该姓名的培训 我想问的是,如何编写VBA代码来检查员工的姓名是否已添加到培训表中,从而检查员工是否已完成培训,然后返回一个消息框提醒用户;“该员工已完成培训,确实要继续吗?” 我对VBA比较陌生,但是我想我需要员工ID上的某种计数方法。提前谢谢 我知道了,谢谢你的帮助 'Save button 'Activated

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

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


我对VBA比较陌生,但是我想我需要员工ID上的某种计数方法。提前谢谢

我知道了,谢谢你的帮助

'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

检查DlookUp谢谢,这显示了函数,但是如果计数大于1,我如何将其放入返回消息框的语句中?这是一个新问题,如果您需要记录的输入次数,可以使用DCOUNT或记录集。抱歉,我的意思是“大于0”,这意味着您使用的是未绑定表单。绑定表单中的默认行为是保存记录。