我想检查我的EMP表中的字段是否有重复项。一切正常,除了当字段中没有任何内容时我需要创建一个异常,即空异常。
Private Sub cmdDuplicates2_Click()
Dim Name As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("EMP", dbOpenDynaset)
Name = Me.Personnel
rst.FindFirst "[Personnel] = '" & Name & "'"
If rst.NoMatch Then
MsgBox "No duplicates found"
Else
MsgBox "Name is already in Database"
End If
End Sub
编辑:现在就这样做。如果为空,则显示“请输入名称”。但它也显示“未找到重复项”。我希望它只说“请输入名称”。如果该字段为空。
Private Sub cmdDuplicates2_Click()
Dim Name As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("EMP", dbOpenDynaset)
If IsNull(Me.Personnel) Then MsgBox "Please enter a name." Else: Name = Me.Personnel
rst.FindFirst "[Personnel] = '" & Name & "'"
If rst.NoMatch Then
MsgBox "No duplicates found"
Else
MsgBox "Name is already in Database"
End If
End Sub