skjule fejl meddelser

on error resume next

hvor skal det stå?

og siger den så intet til fejlene?

Private Sub CheckRecords(ByVal dbRS As ADODB.Recordset)
    On Error Resume Next
    Do Until dbRS.EOF
        ' do something - not important here
        dbRS.MoveNext
Loop
End Sub

http://www.developerfusion.co.uk/show/1741/

Ehhh ........??

Hvad hvis fejlene lægger andre steder i koden, kan man ikke bare sige

if (der er en fejl) then
'ikke udskriv det
else
' udskriv kode
end if

what do you mean 'udskriv kode ?

do you want to see some errors and not others???

i wan't to cancel the errors there become in a msgbox

I understand danish, so no need for you to answer in English :o) (thanks though)


Can you give an example of whay you want.

If you dont have any error handling then your program will fail if an error occurs.

Nogen gange får jeg en msgbox med en kode, som gør programmet afslutter..

fx
Subscript out of range
og rigtigt mange andre errors.

Jeg vil have, at hvis sådan en fejl kommer, så skal den ikke lukke programmet, men bare kører det videre, uden fejlene kommer op.

fx

If (der er en error) then
msgbox "FEJL I PROGRAM"
else
udskriv programmet
end if

".....at hvis sådan en fejl kommer"

do you mean ALL errors or just some errors?

Alle fejlmeddelser

respons?

Hej.

Svaret fra Terry er rigtigt, men et program, der undertrykker fejl, kan da ikke bruges til noget fornuftigt?!

Hvis du f.eks. får "subscript out of range", er det fordi der er flere poster, end et array eller lign. kan indeholde.  Så må du gøre plads, eller på anden vis indsætte en begrænsning i det antal poster, der indlæses. 

Med "On Error goto fejl_1" kan du indsætte en label nederst i subrutinen, og foran den en "exit sub", så veludført kode ikke bringer programmet ind i fejlhåndteringen

fejl_1:
x = msgbox("Der er opstået fejl dit og dat, gør sådan og sådan",48,"Medd. fra ...")
  exit sub
  resume next

Så får brugeren en meddelelse, der giver mening vedr. fejlens art og afhjælpning.

Sorry I've been busy.

If you dont want to see ANY error then use 10/07-2006 16:12:13
(On Error resume next as early as possible)

But as joern correctly says its cant be used for much at all, your program may end up giving incorrect results.

If (On Error) Then
resumse next
End if


???????????????????

The example here is correct

10/07-2006 16:12:13

Or

Private Sub CheckRecords(ByVal dbRS As ADODB.Recordset)
    On Error Resume Next
 
'put your code here

End Sub

and just to make sure its 100% correct

Private Sub NameOfYourSub()
    On Error Resume Next
 
'put your code here

End Sub

thanks gotchi, hope you got it working.

have a good evening
Terry