Undertrykkelse af Access fejlbesked

look at the on error event!

Example taken from HELP

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Const conDuplicateKey = 3022
    Dim strMsg As String

    If DataErr = conDuplicateKey Then
        Response = acDataErrContinue
        strMsg = \"Each employee record must have a unique \" _
            & \"employee ID number. Please recheck your data.\"
        MsgBox strMsg
    End If
End Sub

hej !
det nemmeste må vel være at skrive

on error goto errdesc

errdesc:
if err.number = 3022 then
msgbox \" du har lavet en fejl\"

fortsat..
msgbox \" du har lavet en fejl\" 
else
err.description
end if

Hej Kim,

Lige præcis dit eget eks med at skrive tekst i et numerisk felt kan fanges således:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
  Select Case DataErr
      Case 2113
        MsgBox \"Din egen fejlmeddelelse..!\", vbCritical
        \'noget mere kode her
        Response = acDataErrContinue
      Case Else
        MsgBox DataErr & vbNewLine & Error(DataErr)
  End Select
End Sub

DataErr=2113 er den fejl, der opstår, når man skriver tekst i et numerisk felt.

/Thomas

Hi neesgaard>
What it all boils down to is that you can use the forms \"On Error\" event, \"så du selv kan håndtere fejlen\"

Jeg er ingen specialist i programmering, men har læst en del bøger om emnet, og de er alle enige om at man bør fange de fleste og mest sansynlige error\'s direkte i koden:

I dit tilfælde kan funktionen \'IsNumeric(var)\' bruges.

Jeg ved ikke om det er svaret du \'fisker\' efter. Emnet er ret omfattende og man kan gøre en masse ud af sin errorhandling med logfiler osv.

Niels

IsNumeric kan bruges sådan:

if IsNumeric(txtBoks.value) = false then exit sub

Eller hvad man nu synes !!!!!!.

Niels

Undskyld denne ikke er blevey afsluttet før!

Nu har jeg indsat Form_Error forslaget - det virker perfekt! Tak!