Office: (Office 2003) Alternative zu DLookup

Hallo,

beim Öffnen eines Formular werden etwa 50 Datenfelder mit DLookup gefüllt, was eine gewisse Zeit in Anspruch nimmt. Daher suche ich nach einer Möglichkeit die Daten schon im Vorfeld den einzelnen Felder zu zuweisen, so dass sie bei Formularöffnung sofort verfügbar sind. Geht sowas ? Hat jemand ein Tipp?



gruß

:)

 

Was hältst Du von einem gebundenen Formular?

Alternativ:
http://www.ms-office-forum.net/forum...hp?t=228661#10

 

Entweder nutzt du ein gebundenes Formular (was aber wohl nicht sein soll) oder du setzt ein Recordset ein. Wenn die Felder im Formular wie die in der Tabelle heißen könnte es mit folgendem Luftcode gehen.
Code:

 

... also ich lege nochmal nach.

Ich habe eine Abfrage mit max. 50 Datensätze und ein Feld davon mit seinen 50 Werten ist die Quelle für die Felder im Formular. Ein gebundenes Formular kann ich nicht einsetzen, weil ich keine Listenansicht gebrauchen kann, die Daten sollen mit einem bestimmten Layout (Matrix) dargestellt werden.

Ich fürchte mit den Recordset komme ich da nicht weiter.

Kann man nicht im Vorfeld schon festlegen, welchen Werte die Felder im Formular anzuzeigen haben?

 

Natürlich kannst du vor dem Öffnen des Formulars die Daten ermitteln. Aber was hilft das? Die Ladezeit wird trotzdem nicht schneller. Nur verlagert sie sich schon vor den Formular-Start.

zum Recordset: Was hindert dich daran ein Recordset mit den 50 DS zu öffnen und die Daten an das Formular zu übertragen?
Arne zeigte ein Beispiel bei dem er Werte von einzelnen Felder eines Datensatzes an die Steuerelemente übertrug. Das Umschreiben auf mehrere DS sollte nicht so schwer sein.

 

Hallo
Diese Begründung verstehe ich nicht ganz

was hat ein gebundenes Formular mit Listen ansicht zu tun ?
Bei standartansicht EinzelFormular

 

Das mit den Recordsets werde ich mir noch genauer ansehen.

Meine Vorstellung wäre:
Tägliche automatische Zuweisung z.B.nachts und beim Öffnen des Formulars sind die Daten sofort verfügbar (Snapshot?). Die Daten werden nur betrachtet.

 

Hallo Ruedi,

mit Listenansicht meinte ich die Form-Einstellung "Endlosformular".
Und die Einzelansicht taugt eben auch nicht, weil die relevanten Daten ja in den verschiedenen Datensätzen liegen.





gruß

 

Etwa so:
Code:

Die Feldbezeichnungen im Formular sollten geeignet für einen Schleifendurchlauf sein.

 

Wie lange dauert deine derzeitiger Ladevorgang?
Wenn die Tabelle optimiert ist und du mittels Recordset auf die 50 DS zugreifst sollte das nicht mehr als 1-2 Sekunden dauern. (aus meiner Sicht sind 2 Sek. bereits zu lange)
Ich glaube du kannst dir die Umwege sparen, wenn du das eigentliche Problem löst - die Zugriffsgeschwindigkeit auf die Daten.

 

Hallo,

ich habe, wie geraten, die Abfrage optimiert.
D.h. ich habe eine Feld als Index hinzugenommen, dieses indiziert und DLookup darauf bezogen. Bin mit der Geschwindigkeit jetzt absolut zufrieden.
Jetzt hat mich noch interessiert, wie schnell es mit der "Recordset-Methode" wird. Und siehe da, nochmals schneller, quasi zeitgleich mit den Öffnen des Formulars sind die Daten da.

Nun da ich die Recordset-Variante beibehalten möchte, will ich sie dahingegen erweitern, daß ein Parameter mitübergeben wird. In der Abfrage ist als Bedingung Jahr(Datum) = [Formulare]![FName].[cmbJahr] angegeben (Datum-bzw. Stringformat).

Wie muss ich das in den SQL-String einbauen?

Code:

Gruß

 

Da kann man dann gleich noch einmal optimieren.
Code:

Wenn nun [Datum] passend in einem Index enthalten ist, dann läuft die Abfrage noch einmal etwas schneller. *Smilie

nun zu
Code:

Wenn in der Abfrage "MeineAbfrage" bereits der Verweis auf das Formular gesetzt ist, dann wird das imo nicht so einfach änderbar sein.
Da ich aber von diesen direkten Formularverweisen überhaupt nichts halte, werde ich mich damit auch nicht näher beschäftigen und dafür gleich eine Alternative anbieten. *wink.gif*

1.) komplette SQL-Anweisung per VBA zusammenstellen
Code:

2.) Parameter-Abfrage
gespeicherte Abfrage:
Code:

Verwendung unter VBA:
Code:

Anm.: obiger Code ist Luftcode (ungetestet), aber das Prinzip sollte erkennbar sein.

BTW: Kann es sein, dass du per VBA die Ausgabe einer Kreuztabellenabfrage nachbauen willst?

/edit: Mit der Parameter-Abfragevariante kann sogar der Form-Verweis überschrieben werden, das probierte ich aber noch nie produktiv aus.
Kann es nur für einen Testfall bestätigen, da ich das gerade aus Neugierde testete.

GespeicherteAbfrage:
Code:

VBA-Code:
Code:

Anm.: Das Formular muss nicht offen sein, da [Forms]![Formular1]![txtFilterDat] wie ein Parameter behandelt wird.

 

Hallo,

ich habe den SQL-String für meine Zwecke abgeändert - also die Aggregation in den SQL-String mit reingenommen. (Bsp. von Josef)
Bekomme aber ein Syntaxfehler. Kann jemand helfen ?

Code:

 

meist hilft die Ausgabe der erzeugten SQL-Anweisung.
in diesem Fall, wenn Me!cmbJahr = 2008:
Code:

=> Fehler: . statt \ beim Datum
Abhilfe:
Code:

=>
Code:

BTW: in der Abfrage "MeineAbfrage" ist aber nun nicht mehr die Gruppierung vorhanden, oder?

 

... Zieleinlauf hat stattgefunden. Besten Dank!!!

Nein, habe ich rausgenommen bzw. jetzt kann ich eigentlich auf die Abfrage ganz verzichten und auf die Tabelle zugreifen.