Sub Fehler(Fehlerquelle As String)
 
 
Dim ff As Integer
 
 
 
ff = FreeFile
 
Open App.Path & "\ErrorLog\Errorzeit=" & Format(Now, "dd.mm.yyyy hh.mm.ss") & "" & _
  "" & IP & ".log" For Append As #ff
 
Print #ff, "Error Zeit :", Now
Print #ff, "Error Nummer :", Err.Number
Print #ff, "Error Source :", Err.Source
Print #ff, "Error Zeile:", Erl
Print #ff, "Error Beschreibung :", Err.Description
Print #ff, "Error Quelle :", Fehlerquelle
Print #ff, "So ist der Fehler entstanden :", Eingabe
Print #ff, "-"
Close ff
 
End
 
End Sub

Private Sub Text_PLZ_LostFocus()
 
 
10     On Error GoTo Text_PLZ_LostFocus_Error
 
30    oRs.Open "select * from PLZVorwahl where plz='" & Me.Text_Plz.Text & "'", _
  oConn, adOpenStatic, adLockOptimistic
 
Err.Raise 6 'Fehler auslösen zum testen
 
40    If oRs.EOF Then
50      oRs.Close
60      Exit Sub 'Sub verlassen wenn nichts gefunden wurde
70    End If
 
 
80    Me.Text_Ort.Text = oRs("ort")
90    Me.Text_Vorwahl.Text = oRs("vorw")
 
100   oRs.Close
 
120   On Error GoTo 0
 
130   Exit Sub
 
Text_PLZ_LostFocus_Error:
 
       Fehler "Form_Kundenerfassung, Text_PLZ_LostFocus"
 
 
End Sub