, 20 2018 . 19:09
+
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
" "
=================================================
, ,
TRANZAKTION_VSE_V_OFISE_TBL.PAY_VID " <> '' And <> '' And <> ' '"
:
PEREM_PAY_VID = " <> '' And <> '' And <> ' '"
If FUN_IMEEM_LI_ZAPISI_K_VIGRUZKE("V_INARI", PEREM_PAY_VID) = False Then
MESS " . "
Exit Function
End If
( )
.
http://www.sql.ru/forum/1304179/uslovie-otbora-v-zaprose
