[VBA] Fouten opvangen lukt niet

[Choller]

In een access formulier heb ik een keuzevak. Deze wil ik "indien leeg" ook kunnen opvangen en een waarde (namelijk geen) opgeven.

code:

If Err.Number = vbObjectError + 94 Then
'If chDoelgroep.Value = Null Then
    MsgBox "is nul sukkel"
    dg = " "
Else
    dg = chDoelgroep.Value
End If

Ik heb ook geprobeerd zonder de "vbObjectError" maar ik krijg in beide gevallen een melding "Fout 94 tijdens uitvoering, Ongeldig gebruik van Null".

Tja, ik dacht dat ie zo de null zou opvangen, blijkbaar niet. Ik wil iig dat dg ëen lege string is als er de Value Null is.

iemand een oplossing ?

[Verwijderd]

Als je wilt weten of iets leeg is gebruik IsNull(veld.value) ipv veld.value = Null

[Choller]

ahh.... dank je ErikvSon !!

[Bu588]

Als je de foutmelding niet wilt weergeven, kun je ook dit gebruiken:

code:

dg = Nz(chDoelgroep.Value,"")

De functie Nz geeft de waarde van het eerste argument, behalve als dat Null is, dan krijg je het tweede argument terug.