Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Werte vergleichen
  • gehtdoch6128.03.16 12:34
       └ RE: Werte vergleichen Karl Donaubauer29.03.16 10:58
       └ RE: Werte vergleichen PeterDoering02.04.16 15:47
  • Probleme mit Kassenbuch MDB - Laufender Saldo u.a.
  • ThomasKlarer26.03.16 15:38
       └ RE: Probleme mit Kassenbuch MDB - Laufender Sald... PhilS29.03.16 13:54
  • Datensatzzeiger mit movenext bewegen
  • GenGomez15.03.16 10:44
       └ RE: Datensatzzeiger mit movenext bewegen Karl Donaubauer15.03.16 11:38
          └ RE: Datensatzzeiger mit movenext bewegen GenGomez15.03.16 17:14
             └ RE: Datensatzzeiger mit movenext bewegen Karl Donaubauer16.03.16 14:28
                └ RE: Datensatzzeiger mit movenext bewegen GenGomez20.03.16 11:58
  • Übergabe von zweitem Feldinhalt scheitert - Access...
  • Boory08.03.16 10:57
       └ RE: Übergabe von zweitem Feldinhalt scheitert - ... Karl Donaubauer08.03.16 13:07
          └ RE: Übergabe von zweitem Feldinhalt scheitert ... Boory08.03.16 13:26
             └ RE: Übergabe von zweitem Feldinhalt scheiter... Karl Donaubauer08.03.16 15:13
                └ RE: Übergabe von zweitem Feldinhalt scheit... Boory11.03.16 08:12
  • Einsatz unter Hyper V bremst
  • wilo04.03.16 15:59
       └ RE: Einsatz unter Hyper V bremst PeterDoering09.03.16 00:49
          └ RE: Einsatz unter Hyper V bremst wilo09.03.16 15:23
             └ RE: Einsatz unter Hyper V bremst PeterDoering10.03.16 16:07
  • Hat jemand Erfahrung mit KB3085515
  • Mario Nestelberger09.03.16 21:58
       └ RE: Hat jemand Erfahrung mit KB3085515 Mario Nestelberger10.03.16 08:24
          └ RE: Hat jemand Erfahrung mit KB3085515 Karl Donaubauer10.03.16 10:35
  • Access Stammtisch München am 10.3.2016 (Do)
  • StefanWirrer09.03.16 14:57
  • Sterbende Konstante
  • Marzer04.03.16 10:56
       └ RE: Sterbende Konstante PhilS04.03.16 11:38
  • varchar(max) vs. text
  • Marzer12.02.16 16:13
       └ RE: varchar(max) vs. text PhilS12.02.16 16:54
          └ RE: varchar(max) vs. text Marzer12.02.16 17:35
             └ RE: varchar(max) vs. text PhilS12.02.16 18:12
                └ RE: varchar(max) vs. text Marzer13.02.16 06:03
                   └ RE: varchar(max) vs. text PhilS14.02.16 12:21
                      └ RE: varchar(max) vs. text Marzer16.02.16 05:25
                         └ RE: varchar(max) vs. text PhilS16.02.16 11:56
                      └ RE: varchar(max) vs. text Marzer16.02.16 05:30
                         └ RE: varchar(max) vs. text Marzer04.03.16 09:17
       └ RE: varchar(max) vs. text PeterDoering18.02.16 19:53
  • Unterbericht anzeigen
  • HQbauer04.03.16 09:12
  • Bilder aus URL in Bericht anzeigen
  • stefan829.02.16 18:18
       └ RE: Bilder aus URL in Bericht anzeigen PhilS29.02.16 18:41
          └ RE: Bilder aus URL in Bericht anzeigen stefan829.02.16 20:27
             └ RE: Bilder aus URL in Bericht anzeigen PhilS01.03.16 09:41
                └ RE: Bilder aus URL in Bericht anzeigen stefan803.03.16 21:39
  • Datensätze > 30000 sind verschwunden
  • Claudia25.02.16 09:49
       └ RE: Datensätze > 30000 sind verschwunden PeterDoering25.02.16 12:57
  • Einfache Methode zur Erstellung von Datenmodellen
  • astern23.02.16 15:00
  • Ribbon-Synchronisation in Access 2010
  • bmk15.02.16 14:00
       └ RE: Ribbon-Synchronisation in Access 2010 PhilS15.02.16 15:22
          └ RE: Ribbon-Synchronisation in Access 2010 bmk19.02.16 13:26
  • Unterformular plötzlich nichtg mehr ansprechbar
  • SvenG18.02.16 11:02
       └ RE: Unterformular plötzlich nichtg mehr ansprech... PeterDoering18.02.16 19:38
    GenGomez
    Gesendet: 15.03.16 10:44
    Betreff: Datensatzzeiger mit movenext bewegen


    New user

    Beiträge: 3

    Hallo,

    ich habe ein Problem mit Movenext im VBA Code.
    Meine Aufgabe ist es, die Durchaufzeit eines Auftrages anhand seiner Start- und Endezeit unter Berücksichtigung der tatsächlichen Arbeitsfzeit (also ohne Arbeitsfreie Nächte und Wochenenden) zu ermitteln.
    Dafür habe ich neben der Tabelle mit den Aufträgen eine zweite Tabelle mit dem sog. Betriebskalender (BK) angelegt. Dieser enthält die tatsächliche Arbeitszeit am jeweiligen Datum.
    Mein Code soll jetzt anhand des Startdatum zunächst den passenden Tag im BK finden und die Stunden des ersten Tages berechnen. (Bis hier klappt es fehlerfrei).
    Dann will ich den Datensatzzeiger im Recordset des BK auf den nächsten Datensatz (=nächster Tag) bewegen um die Berechnung in einer Schleife bis zum Endetag des Auftrages zu wiederholen.
    In meinem Codebeispiel geht der Datensatzzeiger nach Movenext aber nicht zum Datensatz nach dem Starttag im BK sondern immer zum zweiten DS in der Tabelle bk.
    Finde den Grund dafür nicht. Jemand eine Idee?

    Sub dlz_berechnen()
    ' **************************************
    ' Berechnen der DLZ mit Betriebskalender
    ' **************************************
    Set db = CurrentDb()
    Set rst_bk = db.OpenRecordset("Betriebskalender", dbOpenDynaset)
    Set rst_daten = db.OpenRecordset("tbl_Eingabe", dbOpenDynaset)
    rst_bk.MoveFirst
    rst_daten.MoveFirst

    (Hier fehlt der Code für DLZ <= 1 Tag)
    ' ************************************************
    ' DLZ > 1 Tag
    ' ************************************************

    ' Startdatum im BK finden (dlz_start_date = bk_date)

    kriterium = "Startzeit = " & CLng(dlz_start_date) 'datum aus PzM Start ; CLng -> Sonst Fehlermeldung; SQL Anweisung zusammenbauen
    rst_bk.FindFirst kriterium 'Erster DS mit gleichem Datum finden
    bk_ende_zeit = rst_bk("Endezeit") 'EndeZeit des Starttages ermitteln
    dlz_summe = dlz_summe + (bk_ende_zeit - dlz_start_time) 'Zeitdiff zur DLZ addieren

    ' *************************************************************
    ' nächster Tag BK auswerten und addieren (ganz oder teilweise)
    ' *************************************************************
    rst_bk.MoveNext 'Hier läuft er noch zum zweiten Datensatz - nicht zum Datensatz NACH FindFirst

    bk_ende_zeit = rst_bk("Endezeit")
    bk_start_zeit = rst_bk("Startzeit")
    bk_datum = rst_bk("Betriebsdatum")
    If dlz_ende_date > bk_datum Then
    dlz_summe = dlz_summe + (bk_ende_zeit - bk_start_zeit)
    End If
    If dlz_ende_date = bk_datum Then
    dlz_summe = dlz_summe + (dlz_ende_time - bk_start_zeit)
    End If

    End Sub
    Top of the page Bottom of the page


    Seite: < 18 19 20 21 22 23 ... 24 25 26 27 28 29 30 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)