/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Access-funktionen Nz
Fra : pre


Dato : 28-01-02 14:14

Er der en der vil gi´ mig formuleringen for denne funktion (NonZero).
Desværre optræder den i næsten alle de koder jeg tester pt.

--
mvh
pre





 
 
Mikkel Bundgaard (28-01-2002)
Kommentar
Fra : Mikkel Bundgaard


Dato : 28-01-02 22:30

"pre" <send@ingen.mail> wrote in message
news:Tlg58.7669$Eu2.827097@news010.worldonline.dk...
> Er der en der vil gi´ mig formuleringen for denne funktion
> (NonZero).
> Desværre optræder den i næsten alle de koder jeg tester pt.
>
> --
> mvh
> pre
Hej pre

Mener du noget ala dette
"Du kan bruge funktionen Nz til at returnere nul, en streng af
længden nul (" ") eller en anden angivet værdi, når Variant er
Null. Du kan f.eks. anvende denne funktion til at konvertere en
Null-værdi til en anden værdi og forhindre den i at sprede sig
gennem et udtryk."

Du kan ofte anvende funktionen Nz som alternativ til
funktionen IIf. I følgende programkode er to udtryk, der
indeholder funktionen IIf, f.eks. nødvendige, hvis det ønskede
resultat skal returneres. Det første udtryk, der indeholder
funktionen IIf, anvendes til at undersøge værdien i en variabel
og til at konvertere den til nul, hvis den er Null.

varTemp = IIf(IsNull(varFreight), 0, varFreight)
varResult = IIf(varTemp > 50, "Høj", "Lav")

I næste eksempel giver funktionen Nz samme funktionalitet
som det første udtryk, og det ønskede resultat opnås i løbet af
ét trin i stedet for to.

varResult = IIf(Nz(varFreight) > 50, "Høj", "Lav")
"

Håber du kan bruge det til noget
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum



pre (29-01-2002)
Kommentar
Fra : pre


Dato : 29-01-02 15:32

Tak for hjælpen. Jeg skal vist et par ture i tænkeboksen før det sidder
fast. Problemet er at jeg har droppet Access, som jeg ikke har brug for
mere, og de makroer jeg pt. tester er fyldt med den funktion i flere
varianter. Næppe kan jeg forlange af andre at de skal installere Access for
at kunne bruge en makro.

Her et par eksempler:

.Value = Nz(lst.List(i,0)
(En doc-egenskabs Value sættes til teksten i .Value)

If Nz(itm.JobTitle) <> "" Then

Umiddelbart burde det være muligt at definere en tilsvarende funktion. Hvis
ikke det lige var en egenskabs value kunne man vel lige så godt bruge Is
not Empty e.l.
--
mvh
pre


"Mikkel Bundgaard" <mikkelbu@teliamail.dk> skrev i en meddelelse
news:a34fu2$a6h$1@sunsite.dk...
> "pre" <send@ingen.mail> wrote in message
> news:Tlg58.7669$Eu2.827097@news010.worldonline.dk...
> > Er der en der vil gi´ mig formuleringen for denne funktion
> > (NonZero).
> > Desværre optræder den i næsten alle de koder jeg tester pt.
> >
> > --
> > mvh
> > pre
> Hej pre
>
> Mener du noget ala dette
> "Du kan bruge funktionen Nz til at returnere nul, en streng af
> længden nul (" ") eller en anden angivet værdi, når Variant er
> Null. Du kan f.eks. anvende denne funktion til at konvertere en
> Null-værdi til en anden værdi og forhindre den i at sprede sig
> gennem et udtryk."
>
> Du kan ofte anvende funktionen Nz som alternativ til
> funktionen IIf. I følgende programkode er to udtryk, der
> indeholder funktionen IIf, f.eks. nødvendige, hvis det ønskede
> resultat skal returneres. Det første udtryk, der indeholder
> funktionen IIf, anvendes til at undersøge værdien i en variabel
> og til at konvertere den til nul, hvis den er Null.
>
> varTemp = IIf(IsNull(varFreight), 0, varFreight)
> varResult = IIf(varTemp > 50, "Høj", "Lav")
>
> I næste eksempel giver funktionen Nz samme funktionalitet
> som det første udtryk, og det ønskede resultat opnås i løbet af
> ét trin i stedet for to.
>
> varResult = IIf(Nz(varFreight) > 50, "Høj", "Lav")
> "
>
> Håber du kan bruge det til noget
> --
> Mikkel Bundgaard
> IT University of Copenhagen
> http://officehelp.gone.dk
> Codito, Ergo Sum
>
>







Peter Lykkegaard (29-01-2002)
Kommentar
Fra : Peter Lykkegaard


Dato : 29-01-02 22:48


"pre" <send@ingen.mail> wrote in message
news:KuB58.8347$Eu2.894223@news010.worldonline.dk...

> Her et par eksempler:
>
> .Value = Nz(lst.List(i,0)
> (En doc-egenskabs Value sættes til teksten i .Value)
>
> If Nz(itm.JobTitle) <> "" Then
>
> Umiddelbart burde det være muligt at definere en tilsvarende funktion.

Hmm, du kan jo prøve den her lidt gamle traver

.Value = lst.List(i,0) & ""
(En doc-egenskabs Value sættes til teksten i .Value)

If itm.JobTitle & "" <> "" Then

Burde skrives som
If Len(itm.JobTitle & "") > 0 Then

Har du brug for lidt mere udvidet

Function myNz( _
ByVal vData As Variant, _
Optional ByVal vValueIfNull As Variant = "") As Variant

If IsNull(vData) Then
myNz = vValueIfNull
Else
myNz = vData
End If
End Function

Her går jeg ud fra at du ønsker en tom streng, i stedet for Null

mvh/Peter Lykkegaard



pre (02-02-2002)
Kommentar
Fra : pre


Dato : 02-02-02 19:12

Tak for hjælpen - det var næsten alt for meget.
--
mvh
pre


"Peter Lykkegaard" <polonline@hotmail.com> skrev i en meddelelse
news:a375oc$ec2$1@news.net.uni-c.dk...
>
> Function myNz( _
> ByVal vData As Variant, _
> Optional ByVal vValueIfNull As Variant = "") As Variant
>
> If IsNull(vData) Then
> myNz = vValueIfNull
> Else
> myNz = vData
> End If
> End Function
>
> Her går jeg ud fra at du ønsker en tom streng, i stedet for Null
>
> mvh/Peter Lykkegaard
>
>



Peter Lykkegaard (03-02-2002)
Kommentar
Fra : Peter Lykkegaard


Dato : 03-02-02 13:25


"pre" <send@ingen.mail> wrote in message
news:_U578.15421$Eu2.1111730@news010.worldonline.dk...
> Tak for hjælpen - det var næsten alt for meget.

Nope, kun lidt cut'n'paste

mvh/Peter Lykkegaard



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste