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 bewege... GenGomez20.03.16 11:58
    GenGomez
    Gesendet: 20.03.16 11:58
    Betreff: RE: Datensatzzeiger mit movenext bewegen


    New user

    Beiträge: 3

    Hallo Karl,

    danke für Deine hartnäckige Nachfrage. :-)

    Karl Donaubauer - 16.03.16 14:28

    Bist du 100%ig sicher, dass er mit FindFirst den von dir erwarteten DS gefunden hat?
    Prüfe das mal absolut sicher, also z.B. mit NoMatch und der Ausgabe eines eindeutigen Feldwertes:


    Das Problem saß mal wieder vor dem PC.

    Tatsächlich habe ich im Code die StartZEIT abgefragt und nicht das StartDATUM.
    ZUFÄLLIG passte das beim ersten Datensatz mit dem erwarteten Wert, aber eben nicht mehr beim zweiten DS.
    Habe den Code geändert. Jetzt passt es.
    Danke für die Hilfe

    Gruß
    Friedhelm

    So geht es:
    Set db = CurrentDb()
    strSQL = "SELECT ID, Betriebsdatum, Startzeit, Endezeit, MaximalZeit FROM Betriebskalender ORDER BY Betriebsdatum"
    Set rst_bk = db.OpenRecordset(strSQL, dbOpenDynaset)
    Set rst_daten = db.OpenRecordset("tbl_Eingabe", dbOpenDynaset)

    rst_bk.MoveFirst
    rst_daten.MoveFirst

    While Not rst_daten.EOF

    ' ******************************************************
    ' Start und Ende einlesen und bei NULL Werten abfangen
    ' ******************************************************

    If IsNull(rst_daten("Start_PzM")) = True Then
    dlz_start = ("01.01.1900")
    End If
    If IsNull(rst_daten("Start_PzM")) = False Then
    dlz_start = rst_daten("Start_PzM")
    End If

    If IsNull(rst_daten("EndeAbf_spaet")) = True Then
    dlz_ende = ("01.01.1900")
    End If
    If IsNull(rst_daten("EndeAbf_spaet")) = False Then
    dlz_ende = rst_daten("EndeAbf_spaet")
    End If

    If dlz_start = dlz_ende Then
    dlz_summe = 0
    With rst_daten
    .Edit
    !dlz_summe = dlz_summe
    .Update
    End With
    GoTo wende
    End If

    ' ******************************************************
    ' Aufspaltung in Datum und Uhrzeit
    ' ******************************************************

    dlz_start_date = DateValue(dlz_start)
    dlz_start_time = CDbl(TimeValue(dlz_start))
    dlz_ende_date = DateValue(dlz_ende)
    dlz_ende_time = CDbl(TimeValue(dlz_ende))

    ' **************************************************
    ' DLZ <= 1 Tag? Dann nur Zeitunterschied = DLZ_Summe
    ' **************************************************
    If dlz_start_date = dlz_ende_date Then
    dlz_summe = dlz_ende_time - dlz_start_time
    With rst_daten
    .Edit
    !dlz_summe = dlz_summe
    .Update
    End With
    GoTo wende
    End If

    ' ************************************************
    ' DLZ > 1 Tag
    ' ************************************************

    ' Startdatum im BK finden (dlz_start_date = bk_date)

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

    ' *************************************************************
    ' nächster Tag BK auswerten und addieren (ganz oder teilweise)
    ' *************************************************************
    bk_next:
    rst_bk.MoveNext

    bk_datum = rst_bk("Betriebsdatum")
    bk_ende_zeit = CDbl(rst_bk("Endezeit"))
    bk_start_zeit = CDbl(rst_bk("Startzeit"))
    bk_maxzeit = CDbl(rst_bk("MaximalZeit"))
    ' aktueler BK ist = Date_Ende Auftrag
    If bk_datum = dlz_ende_date Then
    dlz_summe = dlz_summe + (dlz_ende_time - bk_start_zeit)
    With rst_daten
    .Edit
    !dlz_summe = dlz_summe
    .Update
    End With
    GoTo wende
    End If
    ' aktueller BK ist < Date_Ende Auftrag
    If bk_datum < dlz_ende_date Then
    dlz_summe = dlz_summe + bk_maxzeit
    End If
    GoTo bk_next

    wende:
    dlz_summe = 0
    rst_daten.MoveNext
    Wend
    MsgBox ("fertig")

    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.)