7 svar · 238 visningar · startad av Ralle
Feltyp:
Körningsfel i Microsoft VBScript (0x800A0006)
Spill
Så här ser raderna ut:
Do Until Poangliga.EOF
If Poangliga("Mal") = Null then
Mal=0
End If
If Poangliga("AntMatcher") = Null then
AntMatcher=0
End If
>MalperMatch1=AntMatcher/Mal
MalperMatch=Round(MalperMatch1, 2)
Jag har även provat med 0 istället för null.
Spill är en försvenskning av Overflow - i det här fallet på grund av Division By Zero.
För att undvika ytterligare fel av den typen:
Do Until Poangliga.EOF
If IsNull(Poangliga("Mal")) Or IsNull(Poangliga("AntMatcher")) Then
MalperMatch = 0
Else
If Poangliga("Mal") = 0 Or Poangliga("AntMatch") = 0 Then
MalperMatch = 0
Else
MalperMatch = Round(Poangliga("AntMatcher") / Poangliga("Mal"), 2)
End If
End If
[blue] .
.
.[/blue]
Poangliga.MoveNext
Loop
Nej, det fungerar inte. Alla blir noll då.
Jahapp, men isånnafall så är det väl SQL-frågan som inte plockar ut det du är på jakt efter.
Jag har fått det att fungera nu, tack vare ditt tips. Gjorde bara om det lite grann.
Jag skrev så här istället:
If IsNull(Poangliga("Mal")) then
MalperMatch=0
Else
If Poangliga("Mal") = 0 AND Poangliga("AntMatcher") then
"AntMatcher" innehåller alltid 0 tydligen så jag tog bort den.
Vips så fungerar det.
Tack ska du ha.
Varsågod.