Private Function Eindeutige_TAN_Nummer() As Long
  Dim JH_REP_TAN As Recordset         ' Recordset einbinden
  Dim Count As Long
  Dim OK As Boolean
  Dim UNIKAT As Long
  Set JH_REP_TAN = TDAUSER.rsGetTAN   ' Recordset mit richtigem DECommand setzen
 
  On Error Resume Next                ' Brauch man für den Fehlerfall bei 
  ' .Update
 
  OK = False
  Count = 0
  While Not OK                        ' Solange bis OK = true
    JH_REP_TAN.Open                   ' DECommand öffnen
    With JH_REP_TAN
      .Requery
      !TAN = !TAN + 1                 ' Wert lesen, erhöhen und zurück schreiben
      .Update
      UNIKAT = !TAN                   ' Eindeutige TAN-Nummer merken
    End With
    If JH_REP_TAN.Status = 2048 Then  ' Bei Fehler 2048 sonst 0
      JH_REP_TAN.CancelUpdate         ' Update rückgängig machen. (Setzt alles 
      ' zurück)
      Count = Count + 1               ' Versuche zählen
    Else
      OK = True                       ' Fehlerfrei dann OK=True für Abbruch
    End If
    JH_REP_TAN.Close                  ' DECommand schließen
  Wend
  Eindeutige_TAN_Nummer = UNIKAT      ' Funktion den Wert zuweisen
End Function