Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

NullToZero mnogo dobra stvar!

[es] :: Access :: NullToZero mnogo dobra stvar!

[ Pregleda: 2106 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

bobby63
Nis

Član broj: 11398
Poruke: 180
*.041net.co.yu.



Profil

icon NullToZero mnogo dobra stvar!26.10.2005. u 11:02 - pre 197 meseci
Više puta sam imao problem u slučajevima kada Nz ne pomaže, tj kada neko polje (npr rezultat Query-ja) u datom trenutku ne postoji. Ova fukcija rešava taj problem i daje 0 u takvom slucaju.


Public Function NullToZero(TheValue As Variant)

'This function converts Null to Zero It also converts Non Existing Data to Zero

On Error GoTo NullToZero_Err
If IsNull(TheValue) Then
NullToZero = 0
Else
NullToZero = TheValue
End If
Exit Function

NullToZero_Err:
'This function would only generate an error if the data in TheValue doesn't exist at all.
NullToZero = 0
Exit Function

End Function

Nadam se da će ovo nekome biti korisno.

PS
Da ne ispadne da se hvalim da sam autor, funkciju sam nasao na internetu.
Hear all, trust nothing!
 
Odgovor na temu

[es] :: Access :: NullToZero mnogo dobra stvar!

[ Pregleda: 2106 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.