Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Kommt drauf an
Autor: erich1961
Datum: 15.05.14 13:43
Manchmal machen auch on error resume next einen Sinn: wie bei: Private Function DirExists(ByVal Path As String) As Boolean On Error Resume Next DirExists = CBool(GetAttr(Path) And vbDirectory) On Error GoTo 0 End Function oder Private Function IsIDE() As Boolean On Error Resume Next Debug.Print 1 / 0 IsIDE = (Err <> 0) On Error GoTo 0 End Function Aber den User mit err.number oder err.description zu verwirren, tue ich nicht, das macht nur Ärger. Ich mach das lieber so: Private Sub WriteErrorData(ByVal Text As String, ByVal FehlerMeldung As String, ByVal Fehler As Long) Dim i As Integer Dim version As String Dim VistaPfad As String version = App.Major & "." & App.Minor & "." & App.Revision VistaPfad = GetFolder(sfidCOMMON_APPDATA) On Error GoTo errhand Fehlernummer: " & Trim(Fehler) i = FreeFile Open (VistaPfad & "\text\error" & Date & ".txt") For Append As i Print #i, version & ";" & Trim(Date) & ";" & Trim(Time) & ";Mandant:" & MandantenNummer & ";" & Text & ";" & FehlerMeldung & ";Fehlernummer: " & Trim(Fehler) Close #i If IsIDE = True Then Beep Debug.Print FehlerMeldung End If On Error GoTo 0 If Fehler = 0 Then Exit Sub Exit Sub errhand: ... Aufruf geht folgendermassen: Call WriteErrorData("Datenschreiben ÄndereLokal " & sql, Err.Description, Err.Number)

VB6 MySQL DAO Win7 32bit Connection Problem	3.175	erich1961	08.05.14 08:46
Re: VB6 MySQL DAO Win7 32bit Connection Problem	1.796	erich1961	08.05.14 10:10
Verdacht für Fehlerquelle	1.710	erich1961	09.05.14 11:43
Lösung in Sicht	1.746	erich1961	10.05.14 17:12
Problem gelöst	1.723	erich1961	13.05.14 21:18
Re: Problem gelöst	1.708	Franki	15.05.14 00:30
Kommt drauf an	1.690	erich1961	15.05.14 13:43

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen