Hoe om te gaan met leeg veld?

[Jors]

Hallo,
daar ben ik weer met een vraag. Ditmaal over de code:

Dim prijstotaal As Currency
Dim meter2 As Integer
Dim prijsm2 As Currency
prijstotaal = DSum("[order]*[standaardprijs]", "tblPrijsgegevens", "[Projectnr] = [Projectnummer]")
Prijsproject.Value = prijstotaal
meter2 = Aantalmeters.Value
prijsm2 = prijstotaal / meter2
Prijsperm2.Value = prijsm2

Deze code heb ik in principe werkend gekregen. Echter, wanneer er geen waardes worden gevonden in de bovenstaande code krijg ik de foutmelding:
"Ongeldig gebruik van Null"

Ik heb zitten proberen met een IF functie voor het geval prijstotaal = 0 maar ik krijg de boel niet draaiende zonder foutmelding.

Dus hij moet óf geen foutmelding geven bij bovenstaand probleem óf (mooier naar mijn mening) het veld met prijstotaal vullen met 0.
Hoe krijg ik dit voor elkaar?

Bvd

 

[OctaFish]

Gebruik de Nz functie om waarden standaard als 0 te interpreteren:

Prijsproject.Value = Nz(prijstotaal,0)

En dat dan voor elk veld waarvoor je de Null waarden wilt omzetten.

 

[Jors]

Dank voor je snelle reactie.

Helaas, als de variabele 'prijstotaal' nu als Null doorkomt krijg ik nog steeds dezelfde foutmelding.

 

[OctaFish]

Heb je 'm ook zo gemaakt?

prijstotaal = Nz(DSum("[order]*[standaardprijs]", "tblPrijsgegevens", "[Projectnr] = [Projectnummer]"),0)

 

[Jors]

Volgens mij werkt het zo, bedankt! Ik hou het topic even open voor het geval ik verder nog vast loop, want ik ben nog bezig dit onderdeel verder uit te breiden.