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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • 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
  • Ü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
  • Zu viele verwendete Ports bei Benutzung von DAO Re...
  • DRO15.01.16 14:46
       └ RE: Zu viele verwendete Ports bei Benutzung von ... PhilS15.01.16 19:16
          └ RE: Zu viele verwendete Ports bei Benutzung vo... DRO22.01.16 12:29
             └ RE: Zu viele verwendete Ports bei Benutzung ... PhilS24.01.16 17:40
                └ RE: Zu viele verwendete Ports bei Benutzun... DRO25.01.16 08:02
                   └ RE: Zu viele verwendete Ports bei Benutz... wilo26.01.16 15:49
                      └ RE: Zu viele verwendete Ports bei Benu... DRO01.02.16 07:55
                         └ RE: Zu viele verwendete Ports bei Be... PhilS14.02.16 12:25
  • Drucker für Access-Bericht per VBA auswählen
  • Roland12.02.16 15:05
       └ RE: Drucker für Access-Bericht per VBA auswählen Karl Donaubauer12.02.16 16:17
          └ RE: Drucker für Access-Bericht per VBA auswählen Roland12.02.16 16:49
    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: < 19 20 21 22 23 24 ... 25 26 27 28 29 30 31 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)