12. december 2000 - 11:07Der er
10 kommentarer og 1 løsning
Brug en public function
Hej Eksperter
Jeg har lavet en public funtion Errorhandle() som et modul. Men hvordan for jeg mine formulare(vba-koder) til at bruge den function hvis der opstår en fejl.
udsnit af koden -----
Public Function Global_Error_Handler(sSource As String)
Dim sMsg As String Dim lContactSystemSupport As Boolean \' denne linje skal være true hvis man skal bruge coped with Dim lHandled As Boolean
lContactSystemSupport = False
Select Case Err.Number
Case 3043 sMsg = \"Der er ingen diskette i drevet, Indsæt en diskette og prøv igen!\"
Exit Sub End If Case 3024 sMsg = \"Det er ikke den korrekte diskette, indsæt venligst disketten fra Dansk Management Forum\" Exit Sub End If
Brug af AI afslører de svagheder, virksomheder allerede har opbygget gennem års cloud-transformation, nye SaaS-løsninger og fragmenterede sikkerhedssystemer.
I toppen af din kode i dine formularer skal du tilføje en linie der hedder:
On Error Resume ErrorHandler
Nede i bunden af koden skal du skrive følgende:
[Her kommer slutningen af din normale kode]
Resume:
Exit Function \'Eller Exit Sub hvis det er en sub procedure
ErrorHandler:
\'her køres din ErrorHandler - den bliver kaldt herunder
Global_Error_Handler Me.Name (Jeg går ud fra at det argument du vil sende til din errorhandler er navnet på den form hvor fejlen opstår, derfor me.name - hvis ikke giver du den bare et andet argument.)
Resume Continue \'denne linie afslutter funktionen
\'Og endelig kommer din End Function eller End Sub linie
End Function
Alt det ovenstående skal du indbygge i alle dine funktioner i dine formularer, og det vil også være en idé at indsætte den i formularernes \"VedFejl\" hændelse, så fanger du også de fejl der knytter sig til selveformularen...
Håber det hjalp på forståelsen, ellers må du spørge igen.
jeg er et sludder kludder hoved.... jeg har lavet et par dumme fejl i mit forrige svar.... ignorer det og se dette i stedet:
I toppen af din kode i dine formularer skal du tilføje en linie der hedder:
On Error Goto ErrorHandler
Nede i bunden af koden skal du skrive følgende:
[Her kommer slutningen af din normale kode]
Continue:
Exit Function \'Eller Exit Sub hvis det er en sub procedure
ErrorHandler:
\'her køres din ErrorHandler - den bliver kaldt herunder
Global_Error_Handler Me.Name (Jeg går ud fra at det argument du vil sende til din errorhandler er navnet på den form hvor fejlen opstår, derfor me.name - hvis ikke giver du den bare et andet argument.)
Resume Continue \'denne linie afslutter funktionen
\'Og endelig kommer din End Function eller End Sub linie
End Function
Alt det ovenstående skal du indbygge i alle dine funktioner i dine formularer, og det vil også være en idé at indsætte den i formularernes \"VedFejl\" hændelse, så fanger du også de fejl der knytter sig til selveformularen...
Håber det hjalp på forståelsen, ellers må du spørge igen.
Selvom dit svar som sådan er rigtigt nok, tror jeg bare ikke helt jonas kunne gennemskue hvad det var du mente...
Det er min opfattelse at det desværre tit er tilfældet at enten dem der svarer eller dem der spørger ikke tager sig tid til at beskrive tingene ordentligt, for nogle er det du skrev sikkert ganske indlysende, men for andre er det noget mere kompliceret og disse personer har behov for at man beskriver løsningerne lidt mere frem for bare at \"smække\" noget kode i fjæset på dem....
Den første linie kalder din errorhandler, og den anden fortæller access at den ikke skal vise dens standardfejlbesked, men at du har vist det der skal vises....
Horus
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.
