'Ongeldig gebruik van Null'-probleem

[maurann]

Nu de db werkt stoot ik op een ander probleem dus hier ben ik weer.
Bij het activeren van een formulierknop wordt volgende code uitgevoerd.
Private Sub butSluiten_Click()
'DoCmd.Quit acQuitSaveAll
Dim tAantalKrt As Byte
Dim tKortingBdr As Single
tKortingBdr = (DSum("[Aankoopbedrag]", "Klantenkaart", "[Klantnummer] = " & [Klantnummer]) / 100) * DLookup("[Korting]", "Klant", "[Klantnummer] = " & [Klantnummer])
tAantalKrt = DCount("[Aankoopbedrag]", "Klantenkaart", "[Klantnummer] = " & [Klantnummer])
If tAantalKrt < 11 Then
strSQL = "Update Klant set txtKortingbdr ='" & [tKortingBdr] & "' where Klantnummer = " & _
Me.Klantnummer
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End If

DoCmd.Close
End Sub
Als de waarde van de variabele tKortingBdr Null is dan heeft MS Visual Basic fout 94 tijdens uitvoering aan; ongeldig gebruik van Null waardoor
tabel Klant niet wordt geupdate met de waarde 0.
Hoe kan ik deze fout omzeilen?

Txs.

Maurann

 

[sesam]

Nz

Waarschijnlijk is de waarde van een opgevraagd veld null, dat kun je omzeilen door er de functie NZ omheen te zetten.

 

[maurann]

Super, 't werkt!
Bedankt.