SELECT IIf([gapu].[dspc]<=[timport].[dfpc] And [gapu].[dfpc]>=[timport].[dspc],True,False) AS Выражение1, timport.полис, timport.DSPC, timport.DFPC, gapu.dspc, gapu.dfpc, gapu.cd_lpu
FROM timport INNER JOIN gapu ON timport.полис = gapu.sn_pol
WHERE (((IIf([gapu].[dspc]<=[timport].[dfpc] And [gapu].[dfpc]>=[timport].[dspc],True,False))=True) AND ((gapu.cd_lpu)=79));

Public Function err_com(Optional DSPC, Optional DFPC, Optional CD_SMO, _
                        Optional polis, Optional FAM, Optional NAM, Optional SEX, _
                        Optional DRPC, Optional CD_MKB, Optional Q_recp, _
                        Optional vrach, Optional RSLT, Optional ISHOD, _
                        Optional NK, Optional ino, Optional napr, Optional dnapr) As String
ms = ""
On Error GoTo 1

If IsNull(DFPC) Then ms = ms & "нет даты выписки; "
If IsNull(DSPC) Then ms = ms & "нет даты поступления; "

If ino <> -1 Then
    If Nz(polis) = "" Then
       ms = ms & "не указан полис; "
    Else: If Not (Len(polis) = 16 Or Len(polis) = 9) Then ms = ms & "неправильная длина полиса; "
    End If
    If IsNull(CD_SMO) And Nz(polis) <> "" Then ms = ms & "не Саратовский полис; "
Else: ms = ms & "иногородний; "
End If
If Nz(FAM) = "" Then ms = ms & "не указана фамилия; "
If Nz(NAM) = "" Then ms = ms & "не указано имя; "
If SEX <> "м" And SEX <> "ж" Then ms = ms & "не указан пол; "
If IsNull(DRPC) Then ms = ms & "не указана дата рождения; "
If Nz(CD_MKB) = "" Then ms = ms & "не указан диагноз; "
If Q_recp = 0 Then ms = ms & "неверно кол-во посещений; "
If Nz(vrach) = "" Then ms = ms & "не указан врач; "
If Nz(RSLT) = "" Then ms = ms & "не указан результат; "
If Nz(ISHOD) = "" Then ms = ms & "не указан исход; "
If Nz(NK) = "" Then ms = ms & "не указан №карты; "
If RSLT = 305 And Nz(napr) = "" Then ms = ms & "для результата 305 должен быть указано отделение направления; "
If RSLT = 305 And IsNull(dnapr) Then ms = ms & "для результата 305 должна быть указана дата направления; "
If RSLT <> 305 And (Nz(napr) <> "" Or Not IsNull(dnapr)) Then ms = ms & "для указаных данных по госпитализации результат должен быть 305; "
'If rslt = 304 Then ms = ms & "результат 304 - лечение продолжено; "
If Not IsNull(DSPC) And Not IsNull(DFPC) Then If DCount("полис", "пересеч", "полис='" & polis & "' and timport.dspc=datevalue('" & DSPC & "') and timport.dfpc=datevalue('" & DFPC & "')") > 0 Then ms = ms & "пересечение периодов; "
If ms <> "" Then
   err_com = Left(ms, Len(ms) - 2)
Else: err_com = ""
End If
Exit Function
1: If Err.Number = 2424 Then
      Exit Function
   Else: MsgBox Err.Description, vbCritical
   End If
'MsgBox err_com
End Function