ник: Гоблин
Спорить можно до уср.
Все сложно. Потому и выбрал метод отсева из списка. Ввод в разные поля что бы ошибок не было да по маске ввода, что бы на регистр не смотреть. Фамилия Инициалы ДатаРождения - уже фильтр хороший. Далее если список пуст, то стало быть нет товарища и его добавляем запросом. Если есть, то запрос не срабатывает. Ну и форма для работы с ним открывается.
Но это я так сделал. Видимо неподдерживается идея. А пользователям так очень понравлось. 
ludmil, Лукас мне подобный код на запрос давал. Тоже поначалу с датой проблемка была. Адаптировал слегонцухи под себя. Вот получилось:
Private Sub ПолеСоСписком13_AfterUpdate()
Dim stDocName As String
Dim stLinkCriteria As String
Me![Список10].Requery
Me.Requery
If Me.Список10.ListCount = 0 Then
If MsgBox("Введенный: " & [ПолеСоСписком2] & " " & [ПолеСоСписком4] & " " & [Поле6] & " г.р." & " отсутствует в базе. Добавить?", vbOKCancel) = vbOK Then
Const SQLDATE As String = "\#mm\/dd\/yyyy\#"
strSQL = "INSERT INTO Пациенты ( Фамилия, Инициалы, ДатаРождения, Пол ) Values ('" & Me.ПолеСоСписком2 & "', '" & Me.ПолеСоСписком4 & "', " & Format$(Me.Поле6, SQLDATE) & ", '" & Me.ПолеСоСписком13 & "');"
CurrentDb.Execute strSQL
Response = acDataErrAdded
DoCmd.Close acForm, "Поиск ввод пациентов"
Ну и там дальше нагромождено. (Я не пограммер) но все работает блин как надо.