Expand|Select|Wrap|Line Numbers
- Private Sub Employee_Name_BeforeUpdate(Cancel As Integer)
- Dim Answer As Variant
- Answer = DLookup("[Employee_Name]", "tblBehavioralRating", "[Employee_Name] = '" & Me.Employee_Name & "'")
- If Not IsNull(Answer) Then
- MsgBox "Employee Record already exists" & vbCrLf & "Please use Find Record to Edit Button.", vbCritical + vbOKOnly + vbDefaultButton1, "Duplicate"
- Cancel = True
- Me.Employee_Name.Undo
- Else:
- End If
- End Sub