Warning: A non-numeric value encountered in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 101
Warning: filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in /home2/icentarb/public_html/icentar/classes/class.filesystem.php on line 142
Public Function DSum(ByVal Pole As String, ByVal Tabela As String, Optional ByVal Uslov = "")
Dim rsds As ADODB.Recordset
Dim StrSQL As String
Dim Vkupno As Double
Vkupno = 0
If IsNull(Uslov) Or Uslov = "" Then
StrSQL = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela
Else
StrSQL = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela & " WHERE ((" & Tabela & "." & Uslov & "))"
End If
Set