report

[pctechdr]

Aderfe xoris to module auto pou egrapses DEN paizei. Xreiazesai tin synartisi pou sou edosa oposdipote.

Bima 1: Dimiourgeis neo module i antigrafeis ton kodika poy soy edosa se ena yparxon.
Public Function IsBlank(arg As Variant) As Boolean
Select Case VarType(arg)
Case vbEmpty
IsBlank = True
Case vbNull
IsBlank = True
Case vbString
IsBlank = (LenB(arg) = 0)
Case vbObject
IsBlank = (arg Is Nothing)
Case Else
IsBlank = IsMissing(arg)
End Select
End Function
Bima 2: Stis idiotites tou report - Events - OnCurrent grafeis auto If IsBlank([epivivasi_ploigou]) Then [ora_diekp1] = [pedio2]
Telos