IF ... Then Statement

[kristofvdp]

Wie kan me snel helpen met dit gemakkelijk op te lossen probleempje, maar ikzelf kan het helaas niet vinden.

Er moet een actie volgen wanneer een form geladen wordt en een bepaald veld NIET leeg is (dus een waarde bevat).

IF [Res_nr] = ....... Then
Label.visible = false
enzoverder

Wat komt er op die puntjes?
Ik heb al geprobeerd met Is Null, maar daar werkt het niet mee.

Véél dank voor het accessbrein die me helpt.

Greetz Kristof

 

[buick]

Je zou eens kunnen proberen of dit werkt :

IF [Res_nr] Then
Label.visible = false


In ieder geval bij VB wordt de aktie dan uitgevoerd als het veld <> leeg (null) is

 

[kristofvdp]

Helaas helaas,

Kheb het geprobeerd maar hij geeft een foutmelding.
Toch bedankt, maar het wordt nog wat verder zoeken

 

[buick]

En deze ?

IF [Res_nr] = "" Then
Label.visible = false

 

[Guus2005]

bij testen op lege string kan je het best testen op lengte nul:

IF LENGTH(NZ([RES_NR])) = 0 THEN
    LABEL.VISIBLE = FALSE
END IF

of iets korter:

LABEL.VISIBLE = LENGTH(NZ([RES_NR])) > 0

De computer blijft een rekenmachine en hij kan nu eenmaal sneller tellen dan vergelijken.
De NZ() functie staat eromheen voor het geval je een NULL waarde tegenkomt.

HTH
Weest gegroet,
Guus

 

[kristofvdp]

Ik krijg nog een foutmelding bij LENGHT.

Sub of Function ontbreekt.

Moet ik eerst nog iets declareren ofzo?

 

[MarcovD]

Probeer deze is

If not isnull [res_nr] and [res_nr] > 0 then
enz...
end if

Eerst controleren op niet null = leeg.
Daarna ook controleren of het getal groter is dan 0

Als ik de lengte van een veld wil bepalen dan gebruik ik => Len(getalVeld) en dat werkt bij mij perfect.

 

[kristofvdp]

Probleempje opgelost met

If [Res_nr] > 0 then
label.visible = false
enz

Niemand een bezwaar?

Greetz

 

[thomrob]

geen bezwaar

ikzelf gebruik altijd een eigen functie om te testen of een string leeg is.

Function Isnothing(byval Vwhat as variant) as boolean

if Isnull(Vwhat) or len(trim(vwhat))=0 then Isnothing = True

end function

dit verlost mij van het probleem als een string bijvoorbeeld 4 lege tekens bevat en werkt bij mij altijd om te testen of een string leeg is.

 

[Guus2005]

Mooie functie!

Ik zou alleen een andere naam kiezen omdat IsNothing en IsMissing vb functies zijn geloof ik...

HTH
Weest gegroet,
Guus

 

[thomrob]

Mooie functie!

Ik zou alleen een andere naam kiezen omdat IsNothing en IsMissing vb functies zijn geloof ik...

HTH
Weest gegroet,
Guus

ik heb hier in VB(A) nooit problemen mee gehad. De functie klinkt 'native' maar is het dus niet. Ik vond het in ieder geval stoerder dan Isniets o.i.d....