|
| |
Visual-Basic Einsteiger| Problem mit "For Each ..... Next" -Anweisung | |  | | Autor: Silvio22 | | Datum: 12.11.03 17:18 |
| Hallo Leute,
diesmal muß ich euch mit einem ungewöhnlichen Problem mit meiner Schleife
konfrontieren.
Ich habe einen Bericht, dessen Recordsource-Eigenschaft ich erst beim Öffnen setze (SQL-String).
Der Bericht enthält Daten aus zwei Tabellen, eine Haupt~ und eine Untertabelle, die 1:n miteinander verknüpft sind.
Gruppiert wird in dem Bericht nach allen Treffern des SQL-Strings in der Haupttabelle.
Die entsprechenden, zugehörigen Datensätze der Untertabelle bilden dann den Detailbereich einer jeden Gruppe.
Soweit nichts besonderes.... Aber:
Die Ergebnissmenge der SQL-Abfrage aus der Haupttabelle besteht aus Datensätzen,
die beim Speichern sowohl als "neu", als auch "alt" tetuliert wurden. (völlig gemischt)
Das Problem ist nun, dass die Daten aus der Untertabelle immer andere sein müssen, je nachdem, ob der zugehörige Datensatz aus der Haupttabelle als "alt" oder "neu" gespeichert wurde.
Ich habe mir überlegt, daß ich die Ergebnissmenge der SQL-Abfrage der Haupttabelle mit einer "For Each ... next"-Anweisung durchgehe, und mir dann die Daten aus Untertabelle in Abhängigkeit von "alt" oder "neu" zusammenstelle.
[u]Das Gerüst schaut dann so aus:
Dim strKTR As String
Dim strSQLGrund As String
Dim strSQLAufbau As String
strKTR = InputBox("Suche nach .... ?", "Suchen")
strSQLGrund = "Select * From Haupttabelle Inner Join Untertabelle ON _
Haupttabelle.XXX = Untertabelle.XXX Where Haupttabelle.XXX = '" &" & _
"strKTR & "'"Soweit ist alles OK, eine einfache SQL-Syntax, aber jetzt geht´s los:
'Jeden Datensatz der Ergebnismenge des SQL-Strings anschauen....
For Each ???" in "ErgebnismengeDesSQLStrings"
'Wenn ??? = "alt", dann....
If ??? = "alt" then
'... nehme die Positionen 1 bis 150 aus der Untertabelle...
strSQLAufbau = strSQLGrund & " AND Where Untertabelle.Pos BETWEEN 1 AND 150
'Wenn ??? = "neu", dann....
ElseIf ??? = "neu" then
'.... nehme nur Positionen 1 bis 75 aus der Untertabelle....
strSQLAufbau = strSQLGrund & " AND Where Untertabelle.Pos BETWEEN 1 AND 75
End If
Next
Me.Recordsource = strSQLAufbauWer kann mir sagen, ob das so funktionieren würde, oder wer weiß, wie man es besser machen könnte.
Außerdem bereitet mir der Aufbau der "For Each .... next"-Anweisung große Probleme.
Vielleicht kann mir hierbei auch jemand behilflich sein.
Ich freue mich über jede Hilfe und sage schon einmal herzlichen Dank dafür....
Liebe Grüße
Silvio | |
 | 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 |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Neu! sevDTA 3.0 Pro 
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere 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
|
|
Sie sind aktuell nicht angemeldet.
