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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • 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
  • Ü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
    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: < 33 34 35 36 37 38 ... 39 40 41 42 43 44 45 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)