report

[pctechdr]

Na protino kai ego kati??

Vale auton ton kodika se ena module

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

kai meta grapse If isblank([epivivasi_ploigou]) then tin timi pou theleis.

Sorry gia ta greeklish alla eimai stin douleia kai den exo Elliniki glossa.

[exarhos]

Αρχική Δημοσίευση από pctechdr

Na protino kai ego kati??

Vale auton ton kodika se ena module

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

kai meta grapse If isblank([epivivasi_ploigou]) then tin timi pou theleis.

Sorry gia ta greeklish alla eimai stin douleia kai den exo Elliniki glossa.

καλημέρα και σ ευχαριστώ πολύ για την βοήθεια.
για να καταλάβω καλυτερα. φτιαχνω module με τον παραπάνω κώδικα
μετα που θα γράψω το if...?
εγω θελω να έχω σ ενα αδέσμευτο πεδιο που ονομάζεται "ora_diekp1" την τιμη ενος πεδίου πχ 2 οταν το πεδιο epivivasi_ploigou ειναι αδειο ή null
το "πεδίο 2" έχει πάντα μια τιμη αλλα θέλω την τιμη αυτη (πεδίο 2) μόνο όταν το πεδιο "epivivasi_ploigou" ειναι αδειο ή null
οι τιμές όλων αυτων των πεδίων ειναι sort time
ευχαριστώ πολύ