Проверка данный в одной таблице и вставка в другую через форму

Dim s
s="select * from [Карта учета] where [номер пациента]=" & me.[номер пациента]
If Not currentdb.openrecordset(s).EOF Then
  Me.[Д Учет]="Да"   'Или True если [Д Учет] это флажок
Else
  Me.[Д Учет]="НЕТ"  'Или False если [Д Учет] это флажок
End If

Private Sub ДУчет1_AfterUpdate()
Dim s
s = "select * from [КартаДУ] where [КодПациент]=" & Me.[Пациент] And [КодМКБ] = " & Me.[МКБ]"
If Not CurrentDb.OpenRecordset(s).EOF Then
  Me.[ДУчет1] = "Да" 'Или True если [Д Учет] это флажок
Else
  Me.[ДУчет1] = "НЕТ" 'Или False если [Д Учет] это флажок
End If
 
End Sub

s = "select * from [КартаДУ] where [КодПациент]=" & Me.[Пациент] & " And [КодМКБ] = " & Me.[МКБ]

s = "select * from [КартаДУ] where [КодПациент]=" & Me.[Пациент] & " And [КодМКБ] = " & Me.[МКБ]
debug.print s

If Not CurrentDb.OpenRecordset(s).EOF Then
  Me.[ДУчет1] = ![Поле даты из КартаДУ]   '"Да" 'Или True если [Д Учет] это флажок
End If

Private Sub ДУчет1_AfterUpdate()
Dim s
s = "select * from [КартаДУ] where [КодПациент]=" & Me.[Пациент] & " And [КодМКБ] = " & Me.[МКБ]
If Not CurrentDb.OpenRecordset(s).EOF Then
  Me.[ДУчет1] = ![ДатаВзятия]   '"Да" 'Или True если [Д Учет] это флажок
End If
  Me.[ДУчет1] = ![ДатаВзятия] Is Null 'Или False если [Д Учет] это флажок
End If
 
End Sub

Private Sub Form_AfterUpdate()
Dim s
s = "select * from [СтатТалон] where [ДУчет1]=" & Me.[КартаДУ].[ДатаВзятия]
If Not CurrentDb.OpenRecordset(s).EOF Then
  Me.[Пациент] = Me.[КодПациент]   '"Да" 'Или True если [Д Учет] это флажок
  Me.[МКБ] = Me.[КодМКБ]   '"Да" 'Или True если [Д Учет] это флажок
End If
  Me.[Пациент] = Me.[КодПациент] Is Null   '"Да" 'Или True если [Д Учет] это флажок
  Me.[МКБ] = Me.[КодМКБ] Is Null   '"Да" 'Или True если [Д Учет] это флажок
End If
 
End Sub

Private Sub Form_AfterUpdate()
Dim s
s = "select * from [КартаДУ] where [КодПациент]=" & Me.[Пациент] & " And [КодМКБ] = " & Me.[МКБ]
With CurrentDb.OpenRecordset(s)
  If Not .EOF Then
    Me.[ДУчет1] = ![ДатаВзятия]   
  Else
    Me.[ДУчет1] = Null 
  End If
End With
End Sub

Private Sub Form_BeforeUpdate()
Dim s
s = "select * from [КартаДУ] where [КодПациент]=" & Me.[Пациент] & " And [КодМКБ] = " & Me.[МКБ]
With CurrentDb.OpenRecordset(s)
  If Not .EOF Then
    Me.[ДУчет1] = ![ДатаВзятия]   
  Else
    Me.[ДУчет1] = Null 
  End If
End With
End Sub

Private Sub ДобавитьЛУД_Click()
  Dim rst As Dao.Recordset
  Set rst = CurrentDb.OpenRecordset("ЛУД") 'Открыть рекордсет на адресуемой таблице
  rst.AddNew  'Добавить новую запись в рекордсет
  rst![Дата] = Me.[Дата]
  rst![Пользователь] = Me.[Пользователь]
  rst![Пациент] = Me.[Пациент]
  rst![Врач] = Me.[Врач]
  rst![МКБ] = Me.[МКБ]
  rst![Остр_Хрон] = Me.[Установление]
  rst![Выявлено] = Me.[Выявлен]
  rst![ДУчет] = Me.[ДУчет1]
  rst.Update 'Сохранить запись
  rst.Close
  
End Sub

Private Sub ДобавитьЛУД_Click()
  ..................................
  On Error Resume Next
  rst.Update 'Сохранить запись
  rst.Close
  
End Sub

Private Sub ДобавитьЛУД_Click()
 Dim sql_query As String 'Записываем в нее нужный нам запрос
sql_query = "SELECT * FROM ЛУД WHERE (((ЛУД.Дата) In (SELECT [Дата] FROM [ЛУД] As Tmp GROUP BY [Дата],[Пациент],[МКБ] HAVING Count(*)>1  And [Пациент] = [ЛУД].[Пациент] And [МКБ] = [ЛУД].[МКБ])))ORDER BY ЛУД.Дата, ЛУД.Пациент, ЛУД.МКБ"
'sql_query = "ЛУД.Дата, ЛУД.Пациент, ЛУД.МКБ,
  Dim rst As Dao.Recordset
  Set rst = CurrentDb.OpenRecordset("ЛУД")
  rst.AddNew  'Добавить новую запись в рекордсет
  rst![Дата] = Me.[Дата]
  rst![Пользователь] = Me.[Пользователь]
  rst![Пациент] = Me.[Пациент]
  rst![Врач] = Me.[Врач]
  rst![МКБ] = Me.[МКБ]
  rst![Остр_Хрон] = Me.[Установление]
  rst![Выявлено] = Me.[Выявлен]
  rst![ДУчет] = Me.[ДУчет1]
'  DoCmd.RunSQL sql_query
  On Error Resume Next
  rst.Update 'Сохранить запись
  rst.Close
  
End Sub