Public Function FUN_IMEEM_LI_ZAPISI_K_VIGRUZKE(KADA As String, PAY_VIDS As String) As Boolean

Dim MYSQL As String
Dim SKOKA As Integer
Dim rst As Object
Dim DB As Object

MYSQL = "SELECT TRANZAKTION_VSE_V_OFISE_TBL.* " _
& " FROM TRANZAKTION_VSE_V_OFISE_TBL " _
& " WHERE (((TRANZAKTION_VSE_V_OFISE_TBL.FOR_PAYMENT) > 0) And ((TRANZAKTION_VSE_V_OFISE_TBL.PAY_VID) " & PAY_VIDS & ") And ((TRANZAKTION_VSE_V_OFISE_TBL." & KADA & ") <> '1') And ((TRANZAKTION_VSE_V_OFISE_TBL.NAL_BEZNAL) Like '*')) "

Set DB = CurrentDb
Set rst = DB.OpenRecordset(MYSQL)

 SKOKA = 0
If rst.RecordCount <> 0 Then
  rst.MoveLast
  rst.MoveFirst
 SKOKA = rst.RecordCount
End If

   If SKOKA <> 0 Then
       FUN_IMEEM_LI_ZAPISI_K_VIGRUZKE = True
   Else
         FUN_IMEEM_LI_ZAPISI_K_VIGRUZKE = False
   End If

End Function

If FUN_IMEEM_LI_ZAPISI_K_VIGRUZKE("V_INARI", "='ЖКХ'") = True Then
 Forms("ADMIN_MANEGER_FRM").Controls("SPISOK_POSTUPLENIY_PLATEZEY").AddItem "Имеются записи ЖКХ"
End If

PEREM_PAY_VID = " <> 'ГАЗ'  And <> 'Ксерокс' And <> 'Снятие заглушки'"

If FUN_IMEEM_LI_ZAPISI_K_VIGRUZKE("V_INARI", PEREM_PAY_VID) = False Then
        MESS "Для выгрузки нет данных. "
       Exit Function

End If