| |

VB & DatenbankenRe: Recordset mit snapshot  | |  | Autor: mixxx | Datum: 07.04.04 15:51 |
| habe mit zur kontrolle der Datensätze, ob auch wirklich alle durchlaufen werden, eine schleife erstellt:
' Alle Tage des aktuellen Jahres durchlaufen ...
For i = 1 To anzd
rPprofile.AddNew
rPprofile!Datum = rZusammenhang!Tag
rZusammenhang.MoveFirst
' Alle Viertelstunden eines Tages durchlaufen
For j = 1 To 96
' Je nachdem, bei welcher Viertelstunde wir in der Tabelle
' tZusammenhang sind, den berechneten Wert in die tProzentProfile
' schreiben
Select Case rZusammenhang!ViertelStunde
Case "0_1ViertelStunde": rPprofile![0_1ViertelStunde] = _
getWert(CDate(rZusammenhang!Tag), rZusammenhang!Fascia, _
Typ, Kategorie)
Case "0_2ViertelStunde": rPprofile![0_2ViertelStunde] = _
getWert(CDate(rZusammenhang!Tag), rZusammenhang!Fascia, _
Typ, Kategorie)
Case "0_3ViertelStunde": rPprofile![0_3ViertelStunde] = _
getWert(CDate(rZusammenhang!Tag), rZusammenhang!Fascia, _
Typ, Kategorie)
Case "0_4ViertelStunde": rPprofile![0_4ViertelStunde] = _
getWert(CDate(rZusammenhang!Tag), rZusammenhang!Fascia, _
Typ, Kategorie)
End Select
' Weiter zum nächsten Datensatz ...
rZusammenhang.MoveNext
Next j
' Änderungen übernehmen
rPprofile.Update
Next i ...kann es sein, dass dieses problem bei der art liegt, mit der ich das recordset öffne (snapshot-typ) ??? ...wo liegt ihrer meinung nach der fehler???
Grüße...mix |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|