Muligvis - hvis du laver det som en sub, kan du nok få lidt gavn af det, rent praktisk, ved at du kan bruge samme errorhandler-sub, til alle de steder du vil fange fejl (og gi' brugeren samme svar)...
Ahh.... Du kunne jo evt. lave det som en sub der ta'r err.number og de andre ting som parameter? Jeg kan ikke huske om den automatisk bruger samme error-object, hvis du bare kalder sub'en...
Hmm - hvis ikke din nye Sub med fejlbehandlingen skal bruges andre steder i programmet, er der ingen fordel i at lave den - bortset fra lidt mere overskuelighed, hvis du mener at du får det ved at putte den i en sub.
PS: I steder for at lave en sub der tager err.number, err.description og de andre som parameter, kan den så ikke tage hele "fejlen" som et errObject?
Private Sub Registrerfejl(ByVal objError As ErrObject) If objError.Number <> "0" Then mCls.sFejl = "Fejl# " & objError.Number & " oprettet af " _ & objError.Source & Chr(13) & objError.Description .. osv - bare en ide
Hmmm - det ved jeg sgu ikke... Jeg så bare der var et objError...
For at vende tilbage: Du spørger om der er en fordel i at lægge fejlbehandlingen i en selvstændig sub, og til det svarer jeg, at det ikke er en fordel, hvis den kode der ligger i fejlbehandlingen kun bliver brugt i loadPulse - bliver den brugt andre steder, er det naturligvis en fordel.
Desværre kan jeg ikke hjælpe med hvad du skal indsætte som objError - det ville ellers være smart, da du så slipper for at sende en hel masse strenge som parametre.
Måske et nyt spørgsmål: Kan man ved On Error sende fejlen som et objError til en anden sub?
Jeg bruger denne form for fejl behandling således at alle kendte fejl bliver behandlet på stedet og ukendte fejl bliver behandlet i sub rutinen UkendtFejl. På den måde ved jeg altid hvor præsist fejlen opstår.
exit sub On Error GoTo Fejl
'Programkoder Fejl: Select case Err.Number Case 13 MsgBox "Ikke et gyldigt tal" Case Else UkendtFejl ("Fejl i form navn procedure navn") Close Exit Sub End Select
Public Sub UkendtFejl(Fejlsted As String) 'Beskriver evt. opsnappede fejl og beskriver fejlen MsgBox Fejlsted & vbCrLf & Err.Number & ": " & _ Err.Description, vbExclamation End Sub
Jeg lavede en lille fejl i Exit sub her står den det rigtige sted
Jeg bruger denne form for fejl behandling således at alle kendte fejl bliver behandlet på stedet og ukendte fejl bliver behandlet i sub rutinen UkendtFejl. På den måde ved jeg altid hvor præsist fejlen opstår.
On Error GoTo Fejl
'Programkoder
exit sub Fejl: Select case Err.Number Case 13 MsgBox "Ikke et gyldigt tal" Case Else UkendtFejl ("Fejl i form navn procedure navn") Close Exit Sub End Select
Public Sub UkendtFejl(Fejlsted As String) 'Beskriver evt. opsnappede fejl og beskriver fejlen MsgBox Fejlsted & vbCrLf & Err.Number & ": " & _ Err.Description, vbExclamation End Sub
Ok cole, med nogle tilpasninger synes din løsning at være anvendelig... Tak for det Jan
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
