Private Const SQLDATE As String = "\#mm\/dd\/yyyy\#"
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strFilter As String
strFilter = "Фамилия='" & Me!Фамилия & "' AND Имя='" & Me!Имя & "' AND Отчество='" & Me.Отчество & "' AND ДеньРождения=" & Format$(Me!ДеньРождения, SQLDATE)
If DCount("*", "Сотрудники", strFilter) > 0 Then
MsgBox "Такой уже имеется"
Cancel = 1
End If
End Sub
|