title image


Smiley Re: Fehlernummern
Hallo,



warum nicht selber erstellen:





On Error Resume Next

Dim i As Long

Dim ErrTxt As String

For i = 1 To 65565



ErrTxt = AccessError(i)

If Left(ErrTxt, 10) "Anwendungs" And ErrTxt "" Then

CurrentDb.Execute "insert into tblFehlercodes (FehlerIndex,Fehlertext) values (" & i & ",'" & ErrTxt & "')"

End If



Next


Gruß vom Bodensee
Franz, DF6GL

PS: Bitte nach Tipps oder Lösungsvorschlägen immer eine Erfolgs- / Mißerfolgsmeldung posten!


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: