While Not RsR.EOF
        i = i + 1
 
        If (RsR!Rid = True) And (IsNull(RsR!Rid_Code)) Then
            ' Sind alle notwendigen Daten vorhanden?KontoinhaberNachname <> 
            ' "") And (RsR!KontoinhaberStNr <> "") Then
            If (RsR!F_Firma <> "") And (RsR!BBAN <> "") And ( _
              RsR!KontoinhaberVorname <> "") And (RsR!KontoinhaberNachname _
              <> "") And (RsR!KontoinhaberStNr <> "") And ( _
              RsR![Adressen.Strasse] <> "") And (RsR!StrNr <> "") And ( _
              Not IsNull(RsR!PLZ)) And (RsR!Ort_DE <> "") And ( _
              RsR!Zahlungstermin <> "") Then
 
                ' Alle, für einen Rid-Auftrag relevanten Daten werden nun der 
                ' Textdatei hinzugefügt
                Open pfad & Format(Now, "dd.mm-hh.mm") & ".txt" For Append As #1
                    Print #1, Rid_body_12(Str(i), "090211", RsR!BBAN, Str( _
                      RsR!Rechnungsnummer))
                    Print #1, Rid_body_30(Str(i), RsR!KontoinhaberVorname, _
                    RsR!KontoinhaberNachname, RsR!KontoinhaberStNr, Str( _
                    RsR!F_IVA))
                    Print #1, Rid_body_40(Str(i), RsR![Adressen.Strasse] & " " _
                    & RsR!StrNr, Str(RsR!PLZ), RsR!Ort_DE, RsR!F_Firma)
                    Print #1, Rid_body_70(Str(i), Str(RechnungsbetragNetto( _
                    RsR![Rechnungen.ID_Rechnung])), RsR!Zahlungstermin, _
                    RsR!Zahlungstermin)
                Close #1 ' Textdatei schließen
 
 
                ' Gesamte Rid-textdatei Zeilenweise in das Memo-Feld der 
                ' Rid-Tabelle speichern, zur archivierung...
                Rs!Memo = Rs!Memo & Rid_body_12(Str(i), "090211", RsR!BBAN, Str( _
                  RsR!Rechnungsnummer)) & Rid_body_30(Str(i), _
                  RsR!KontoinhaberVorname, RsR!KontoinhaberNachname, _
                  RsR!KontoinhaberStNr, Str(RsR!F_IVA)) & Rid_body_40(Str(i), _
                  RsR![Adressen.Strasse] & " " & RsR!StrNr, Str(RsR!PLZ), _
                  RsR!Ort_DE, RsR!F_Firma) & Rid_body_70(Str(i), Str( _
                  RechnungsbetragNetto(RsR![Rechnungen.ID_Rechnung])), _
                  RsR!Zahlungstermin, RsR!Zahlungstermin)
 
 
                ' Eintragen des Rid_Codes in die Rechnungen-Tabelle
                RsR.Edit
                RsR!Rid_Code = Rs!ID_Rid
 
                ' Kennzeichnen, dass Rid durchgeführt worden ist
                RsR!Rid_durchgefuehrt = True
 
            Else
...
...
...
Wend