ник: ludmil
без использования даты все работает а при включении даты что-то не так Вот ваш код с моими изменениями
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.отчество & "' "
If DCount("*", "анкета", strFilter) > 0 Then
MsgBox "Такой уже имеется"
Cancel = 1
Else
Parent.[подчиненная форма список членов семьи].Requery
Parent.[подчиненная форма ДЕТЕЙ ЗАПРОС].Requery
End If