værdien 0

Brug funktionen Nz

hvordan  ?

=nz(felt1;0) + nz(felt2;0)

felt3 = nz(felt1,0) + nz(felt2,0)

a= (b/ 100) * f
hvor vil du smide Nz

:o)

F.eks.:

felt3 = (Nz([felt1], 0) + Nz([felt2], 0))

a=(nz(b,0)/100)*f

(hvis det er i VBA)

Eller i et udtryk i en forespørgsel:

Udtryk1: (Nz([felt1];0)+Nz([felt2];0))

Eller endda:

a=(nz(b,0)/100)*nz(f,0)

Der er da ellers gang i forretningerne idag :0
Egentlig er det jo lidt forkert, fordi spørgsmålet lyder på 0. Vi svarer på Nul. Men meningerne er rigtige nok.

Mugs->som i den virkelige verden, så skal man ikke regnemed hvad folk SIGER, men i stedet regne med, hvad de MENER ;o)

den melder fejl

Åh ja - Men nu skal jeg ikke vælges til Folketinget, så jeg plejer at sige hvad jeg mener ;o)

jeg har valgt denne :

a= (Nz(b, 0) / 100) * Nz(F, 0)

den melder object req....
a er en felt på min form

a= (Nz(b, 0) / 100) * Nz(F, 0))

Duer ik'

where is b and F?

de er alle felter fra min form
og de indholder tal nogle gange og andre gange er de tomme

(Nz(b, 0) / 100) * Nz(f, 0)

er afprøvet og fungerer. Kontroller for stavefejl (feltnavne).

er det i VBA, du skriver? Eller er det direkte i en tekstoks?

where are you placing the code?

ved lukning af formen

Helt korrekt burde det så hedde:

Me!A = (Nz(Me!b, 0) / 100) * Nz(Me!f, 0)

det er en fortløbende formular som har 3 felter
men disse 3 felter bliver indtastet også kommer der 3 ny osv.
felt nr 3 på dem alle skal regnes ud

du bør måske flytte koden til Form_BeforeUpdate

men det burde ikke ændre på fejlen. Du har vel andre feltnavne end a, b og f.

Kan du ikke indsætte den korrekte kode her?

ok, en nærmere forklaring til tingene.

det er sådan så jeg har en fortløbende formular, med  nogle felter men her skal man lige tænke at hver gang der bliver indtastet og tilføjet bliver der vist flere og der kan således på en enkelt formular vises 10 * 3 felter som .


koden :



Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim dbs As Database
Dim qms As QueryDef
Dim rec As Recordset
Dim strSQL As String
Dim A4
Dim id
Dim beregn As Integer

id = Forms!bil!idnr

Me!fr = (Nz(Me!v, 0) / 100) * Nz(Me!fu, 0)
Me!vo = (Nz(Me!v, 0) - (Nz(Me!fr, 0) / (Nz(Me!de, 0))))



'vo = v - fr / de



Set dbs = CurrentDb

strSQL = "SELECT * FROM " & _
        "Bat " & _
        "WHERE ((nummer)=" & id & ") "

       
    Set qms = dbs.CreateQueryDef("", strSQL)
    Set rec = qms.OpenRecordset()
   
If Not rec.EOF Then rec.MoveFirst

Do While Not rec.EOF
   
    A4 = A4 + rec.Fields![vo]

  rec.MoveNext
Loop
   
Me!Vot = (Nz(Me!v, 0) / (Nz(Me!v, 0)))

'Vot = v - fr / A4

A4 er en summen af en bestemt felt som dukker flere gange og den skal så
bruges til noget beregning for en af disse felter for hver af dem

den sidste er vel forkert?

Me!Vot = (Nz(Me!v, 0) / (Nz(Me!v, 0)))

Den vil jo altid give 0

ja det er fejl i det sidste
jeg har rettet det men den melder "overflow"
vo = (Nz(Me!V, 0) - (Nz(Me!FR, 0) / (Nz(a4, 0))))

Overflow > Prøv at kontrollere dine felttyper, om feltet rent faktisk kan indeholde resultatet af beregningen.

den melder det også ved en msgbox

ok jeg har fundet andet løsning til problemmet men jeg har denne fejl som skal rettes.
hvorfor melder denne fejl ?



strsql1 = " Update * b" & _
        "SET fri= " & Fr & ", Vo = " & v & " " & _
        "WHERE ((orid)=" & vr & ") "
       
        Set qry = dbs.CreateQueryDef("", strSQL)
        qry.Execute

det er 2 variabler der skal opdateres i en tabel

Set qry = dbs.CreateQueryDef("", strSQL)

Skal det ikke være strsql1?

den er ændret men det melder at der er en syntaks fejl

på hvilken linie?

fejlen meldes her :

DoCmd.RunSQL strsql1

jeg har fjernet denne      qry.Execute og erstatet med  DoCmd.RunSQL strsql1

En god ide: Skriv denne særning ind aller øverst i modulet (lige under Option Compare Database):

Option Explicit

Gå derefter i menuen Debug->Compile dindatabase
Hvis der er variabler, som ikke er erklæret korrekt (eller hvis der er stavefejl) så vil det vises nu. Option Explicit bør ALTID stå i toppen, da det forhindre mange fejl (f.eks. den med strsql1)

Denne sætning kan automatisk indsættes i nye moduler, hvis man går i Tools->options og sætter kryds i "Require Variable Declarations")