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

[exarhos]

Αρχική Δημοσίευση από 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

φίλε μου σ ευχαριστώ πάρα πολύ για τη βοήθεια και συγνώμη που δεν τα πίανω με τη μία
loipo;n έκανα ότι ακριβως περιέγραψες αλλα μολισ κανω κλικ στη report βγαζει bug "expected variable or procedure,not module"