foutmelding: ongeldig gebruik van null

[boltc]

hallo,

ik heb een knop die een naam en datum bovenaan een textvak zet..

Dim string_werkzaamheden As String
Dim string_behandelaar As String

string_werkzaamheden = Me.werkzaamheden
string_behandelaar = Me.behandelaar

Me.werkzaamheden.Value = string_behandelaar & " " & Date & " " & Time & ": " & vbCrLf & vbCrLf & vbCrLf & string_werkzaamheden
Me.werkzaamheden.SetFocus
Me.werkzaamheden.SelStart = InStr(1, Me.werkzaamheden, vbCrLf) + 1

Nou is het probleem dat wanneer het textvak leeg is hij de foutmelding 'ongeldig gebruik van null' geeft. Hij moet als het veld leeg is gewoon de naam datum tijd en 1 enter er neer zetten..

Kan iemand mij hiermee helpen?

Bijvoorbaad dank, groetjes bo

 

[Tardis]

Hallo boltc,

zie mijn reaktie op je eerdere vraag.
Je probeert een null waarde toe te wijzen aan een variabele van het type string.
Dat kan niet, vandaar je foutmelding.

Laat de variabelen weg (want niet nodig), of gebruik de Nz funktie:

string_werkzaamheden = Nz(Me.werkzaamheden,"")
string_behandelaar = Me.behandelaar

Ik zou persoonlijk je code aanpassen zodat je knop aleen aktief is als een behandelaar is ingevuld.
Da's persoonlijk, net zoals dat ik zelf een subformulier (1 rij per behandelaar) zou aanraden in plaats van een memoveld

Groet,

Tardis

 

[boltc]

ja dat wouw ik ook nog gaan doen.. maar eerst moest ik dit oplossen maar iig bedankt voor je hulp. groetjes bo