eigen text bij foutmelding

[andycorp]

ik wil graag eigen teksten laten zien als zich een foutmelding voordoet.
waar kan ik die ingeven of hoe?
bij " msgbox err.description"

alvast dank voor hulp

 

[Solaris]

Kijk hier eens...

 

[OctaFish]

Je maakt, simpel gezegd, een routing door een subroutine te maken in je procedure. Iets als:

Foutje:
     MsgBox "Hier is iets fout gegaan..."
     Resume

Je stuurt de procedure daar heen met:

On Error Goto Foutje

 

[andycorp]

thanks, hoe simpel kan het zijn

 

[OctaFish]

Dit is inderdaad simpel; je kunt het wat ingewikkelder maken door de verschillende fouten apart af te vangen; of dat zinvol is hangt een beetje af van de plek en fouten die je daar kunt verwachten. Je krijgt dan iets als:

Foutje:
Select Case Err.Num
     Case 1
          MsgBox "Fout nummer 1"
     Case 2
          MsgBox "Fout nummer 2"
     Case 3
          MsgBox "Fout nummer 3"
     Case 4
          MsgBox "Fout nummer 4"
     Case Else
          MsgBox "Deze Fout ken ik niet"
End Select

 

[andycorp]

Hee top! Thanks for the free advice!
Case solved