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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Datenblatt dynamisch
  • lagalex08.05.16 13:56
       └ RE: Datenblatt dynamisch PeterDoering08.05.16 19:57
          └ RE: Datenblatt dynamisch lagalex09.05.16 07:51
             └ RE: Datenblatt dynamisch PeterDoering09.05.16 16:23
       └ RE: Datenblatt dynamisch Karl Donaubauer09.05.16 17:24
          └ RE: Datenblatt dynamisch lagalex09.05.16 19:00
             └ RE: Datenblatt dynamisch Karl Donaubauer10.05.16 13:46
                └ RE: Datenblatt dynamisch lagalex12.05.16 22:04
  • "Berechnung läuft..."
  • Lorenz11.05.16 14:55
  • Problem bei bedingter Kompilierung mit Win64, VBA7
  • MalinV10.05.16 20:53
       └ RE: Problem bei bedingter Kompilierung mit Win64... PhilS11.05.16 08:25
          └ RE: Problem bei bedingter Kompilierung mit Win... MalinV11.05.16 11:10
  • Automtisches Einstellen der Zeilenhöhe (vba)
  • VW18106.05.16 12:53
       └ RE: Automtisches Einstellen der Zeilenhöhe (vba) PhilS06.05.16 13:03
          └ RE: Automtisches Einstellen der Zeilenhöhe (vba) VW18106.05.16 13:54
             └ RE: Automtisches Einstellen der Zeilenhöhe (... PhilS06.05.16 16:14
                └ RE: Automtisches Einstellen der Zeilenhöhe... VW18106.05.16 18:12
                   └ RE: Automtisches Einstellen der Zeilenhö... PhilS10.05.16 11:40
  • Access Stammtisch München am 12.05.2016 (Do)
  • StefanWirrer10.05.16 11:03
  • Einladung zum 23. Access-Stammtisch Hannover am 18...
  • KlausWerther04.05.16 10:52
  • Null-Wert Datensatz in Tabelle
  • Rene Stutz16.04.16 12:23
       └ RE: Null-Wert Datensatz in Tabelle PhilS17.04.16 21:41
          └ RE: Null-Wert Datensatz in Tabelle Rene Stutz17.04.16 23:07
             └ RE: Null-Wert Datensatz in Tabelle PhilS19.04.16 07:25
                └ RE: Null-Wert Datensatz in Tabelle Rene Stutz24.04.16 12:58
  • Formular mit 8 Registerkarten drucken - Access 200...
  • Gerhard16.04.16 21:30
       └ RE: Formular mit 8 Registerkarten drucken - Acce... PhilS17.04.16 21:53
  • Access Stammtisch München am 14.4.2016 (Do)
  • StefanWirrer12.04.16 13:27
  • mySQL-Zugriff?
  • Lorenz06.04.16 14:30
       └ RE: mySQL-Zugriff? PhilS06.04.16 14:42
          └ RE: mySQL-Zugriff? Lorenz06.04.16 15:18
             └ RE: mySQL-Zugriff? PhilS06.04.16 15:55
                └ RE: mySQL-Zugriff? Lorenz06.04.16 19:11
  • Probleme mit Access Runtime 2016
  • ThomasKlarer06.04.16 14:13
       └ RE: Probleme mit Access Runtime 2016 PhilS06.04.16 14:49
       └ RE: Probleme mit Access Runtime 2016 Karl Donaubauer06.04.16 17:06
  • Abfrage mit variablem Datenbankpfad
  • sks27.03.16 16:56
       └ RE: Abfrage mit variablem Datenbankpfad PhilS29.03.16 10:17
          └ RE: Abfrage mit variablem Datenbankpfad sks29.03.16 12:36
             └ RE: Abfrage mit variablem Datenbankpfad Karl Donaubauer29.03.16 12:48
                └ RE: Abfrage mit variablem Datenbankpfad sks30.03.16 12:29
                   └ RE: Abfrage mit variablem Datenbankpfad Karl Donaubauer30.03.16 13:06
                      └ RE: Abfrage mit variablem Datenbankpfad sks31.03.16 10:13
                         └ RE: Abfrage mit variablem Datenbankpfad PeterDoering02.04.16 15:53
                            └ RE: Abfrage mit variablem Datenbankpfad sks03.04.16 10:21
                   └ RE: Abfrage mit variablem Datenbankpfad PhilS30.03.16 20:19
  • 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
    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: < 14 15 16 17 18 19 ... 20 21 22 23 24 25 26 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)