Errors

[eeyk]

warom werkt die niet?

on error goto errocode


errorcode:

if err.number = "-10587" then
msgbox err.discription & " ERROR CODE" & err.number, vbokonly + vbcritical, "ERROR"
end if


if err.number = "11" then
msgbox err.discription & " ERROR CODE" & err.number, vbokonly + vbcritical, "ERROR"
end if


if err.number = "54" then
msgbox err.discription & " ERROR CODE" & err.number, vbokonly + vbcritical, "ERROR"
end if


if err.number = "32" then
msgbox err.discription & " ERROR CODE" & err.number, vbokonly + vbcritical, "ERROR"
end if


if err.number = "82" then
msgbox err.discription & " ERROR CODE" & err.number, vbokonly + vbcritical, "ERROR"
end if


if err.number = "91" then
msgbox err.discription & " ERROR CODE" & err.number, vbokonly + vbcritical, "ERROR"
end if


if err.number = "101" then
msgbox err.discription & " ERROR CODE" & err.number, vbokonly + vbcritical, "ERROR"
end if


[code]

 

[That Guy]

erhm, het is efficienter om een select-case loop te gebruiken, of ze gewoon in een array te donderen en ze dan 1 voor 1 te checken.

Als het goed is werkt je code. Als je het trouwens zo wilt houden, zou ik een if-then-ELSEIF-elseif- enzovoorts gebruiken.


Ohja, error nummers zijn longs. Je gebruikt ze als strings? (if err.number = "101" is dus niet goed, doe zoiets: if err.number = 101 then...)

 

[CoD_NL]

Als het goed is werkt je code. Als je het trouwens zo wilt houden, zou ik een if-then-ELSEIF-elseif- enzovoorts gebruiken.

Of je vergelijkt het allemaal in één statement. (aangezien ze allemaal hetzelfde doen)

dim i as long
i = err.number

if i = -10587 or i = 11 or i = 54 or i = 32 or i = 82 or i = 91  or i = 101 then
  'msgbox error code 
end if

 

[eeyk]

bedankt Alle bij ik heb het

ik heb

if err.number = 81 or .. or .. en zo gedaan :thumb: