Office: Fehler beim zweiten Datensatz... VBA code

Helfe beim Thema Fehler beim zweiten Datensatz... VBA code in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, hab folgendes kleines Problem. Eine Tabelle die Ruhezeiten hat - soll den Inhalt von einer Zeile in die nächste übertragen - damit... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Schlauchi, 5. Juli 2011.

  1. Schlauchi Erfahrener User

    Fehler beim zweiten Datensatz... VBA code


    Hallo zusammen,

    hab folgendes kleines Problem. Eine Tabelle die Ruhezeiten hat - soll den Inhalt von einer Zeile in die nächste übertragen - damit hier was berechnet werden kann. Das funktioniert auch soweit - nur mit den ersten zwei Datensätzten haut das nicht hin.

    • ID SFDTLC Rest10hrs Last10hrsBreak
      4368 GPE 06.04.2011 04:24
      4410 GPE 07.04.2011 00:30 24.06.2011 01:30
      4476 GPE 08.04.2011 02:53 07.04.2011 00:30
      4532 GPE 09.04.2011 00:15 08.04.2011 02:53
    Bei der ID 4410 übernimmt er das Datum vom letzten "Arbeiter" SFDTLC...
    Irgendwie bekomme ich nicht hin - das sobald sich der Arbeiter ändert - der erste "Rest10hrs" gelesen wird - und in "Last10hrsBreak" übertragen wird.
    Hier mein Code:
    Code:
    Public Sub Group_Intervalle()
      Dim db As Database
      Dim RstZeit As DAO.Recordset
      Dim ErsterSatz As Boolean, AktArbeiter As String
      Dim Next10hrs As Date
      Dim Next36hrs As Date
      
      Abfrage = _
          "SELECT   Z.SFDTLC, Z.Rest10hrs, Z.Rest36hrs, Z.Last10hrsBreak, Z.Last36hrsBreak " & _
          "FROM     [GroupID_Local] AS Z " & _
          "ORDER BY Z.SFDTLC, Z.MinvonSFDCIdate;"
      'Die Abfrage wird ausgeführt und ein Recordset RstZeit erstellt
      Set db = CurrentDb
      Set RstZeit = db.OpenRecordset(name:=Abfrage, Type:=dbOpenDynaset, Options:=dbConsistent, LockEdit:=dbOptimistic)
    
    ErsterSatz = True: AktArbeiter = ""
        
      With RstZeit
          'Hole den 1. Satz
          .MoveFirst
          'Überprüfe, ob überhaupt noch ein Satz gelesen wurde;
          'falls nicht: beende die Schleife
          Do Until .EOF
            'Überprüfen, ob ein neuer Arbeiter vorliegt
            ErsterSatz = AktArbeiter <> !SFDTLC
            If ErsterSatz Then
              'Aktualisieren des Namens des neuen Arbeiters
              AktArbeiter = !SFDTLC
              Last10hrsBreak = !Rest10hrs
              Last36hrsBreak = !Rest36hrs
              'Ausgabe der 1.Ankunft des Arbeiters in den Direktbereich:
              Debug.Print !SFDTLC, !Rest10hrs, !Rest36hrs
              'Überschrift ausgeben in den Direktbereich:
              Debug.Print "TLC", "CI-Date", "CO-Date"
                   '1.Satz-Modus ist vorbei:
                    
              ErsterSatz = False
            Else
              'Felder der aktuellen Abfrage können geändert werden:
              .EDIT
                'Abfragefeld wird geändert
                !Last10hrsBreak = Next10hrs
                !Last36hrsBreak = Next36hrs
             'Änderung des Abfragefeldes
              .update
              'Umspeichern um Anfangszeitpunkt für nächsten Satz:
                Next10hrs = !Rest10hrs
                Next36hrs = !Rest36hrs
            End If
            'Hole nächsten Satz
            .MoveNext
          Loop
          'Es gibt nichts mehr zu lesen: Abfrage schließen!
          .Close
      End With
    End Sub
    Es gibt zwei Spalten einmal mit 36hrs und einmal mit 10hrs... ist aber die gleiche funktion.

    Idee warum er beim zweiten Datensatz da was falsch macht?
     
    Schlauchi, 5. Juli 2011
    #1
Thema:

Fehler beim zweiten Datensatz... VBA code

Die Seite wird geladen...
  1. Fehler beim zweiten Datensatz... VBA code - Similar Threads - Fehler zweiten Datensatz

  2. Wert Fehler

    in Microsoft Excel Hilfe
    Wert Fehler: Hallo zusammen, sicher gibt es schon diverse Beiträge, leider habe ich keinen gefunden, der mein Problem los. Ich habe mal einen Auszug meiner Tabelle angehängt. Leider kriege ich in einigen...
  3. Outlook Fehlermeldung 0x800CCC78, Nachricht kann nicht gesendet werden ...

    in Microsoft Outlook Hilfe
    Outlook Fehlermeldung 0x800CCC78, Nachricht kann nicht gesendet werden ...: Hallo, habe seit der Installation von MS Office 2021 Pro ein Problem mit Outlook, dass auch nach 3-maliger Neuinstallation und mit dem MFCMAPI-Tool die Fehlermeldung auch nicht verschwindet. Bin...
  4. Fehler beim Zugriff auf Pfad/Datei

    in Microsoft Excel Hilfe
    Fehler beim Zugriff auf Pfad/Datei: Moin, Ich habe eine Excel Datei erstellt, die ziemlich viele Makros hat, die Anforderung lässt sich leider nicht anders bewerkstelligen. Kurz vor Fertigstellung des Programms bekomme ich jetzt...
  5. WeekdayName erzeugt Fehler

    in Microsoft Access Hilfe
    WeekdayName erzeugt Fehler: Ich verwende eine uralte Access-Datenbank, die mich seit Windows2000 begleitet. Die Access2000 Version konnte über alle neueren Windows-Versionen installiert werden, die Datenbank hat jeweils...
  6. Zeilen in Excel automatisch alle paar Zeilen einfügen

    in Microsoft Excel Hilfe
    Zeilen in Excel automatisch alle paar Zeilen einfügen: Hallo, ich bin über die Googlesuche hier gelandet und dachte ich hätte auch die Lösung für mein Problem schon gefunden. Doch der Beitrag war von 2006 und schon beim Eingeben in MS Office...
  7. Kombinationsfeld: Fehler bei zweiter Filterbedingungg

    in Microsoft Access Hilfe
    Kombinationsfeld: Fehler bei zweiter Filterbedingungg: Problem: Ich habe ein Formular mit mehreren Kombinationsfeldern. Wenn ich nach einem Kombinationsfeld filtere ist es okay. Setze ich noch eine zweite Filterbedingung so kommt eine Fehlermeldung...
  8. Fehler beim zweiten Datensatz... VBA code

    in Microsoft Access Hilfe
    Fehler beim zweiten Datensatz... VBA code: Hallo zusammen, hab folgendes kleines Problem. Eine Tabelle die Ruhezeiten hat - soll den Inhalt von einer Zeile in die nächste übertragen - damit hier was berechnet werden kann. Das...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden