Office: (Office 2007) Globale Variablen in Abfrage verwenden

Hallo liebe Access Profis,

ich hab mal wieder ein kleine Problem und hoffe auf Hilfe.

Ich hab 3 Abfrage erstellt, die jeweils in eine Tabelle alle Datensätze zwischen zwei Datumsangaben in eine Tabelle schreiben. Jetzt möchte ich das Ganze über ein Modul ablaufen lassen, sprich die drei Abfragen ausführen.
Problem ist jetzt, dass ich den Datumsbereich dreimal eingeben muss, was nicht sonderlich Benutzerfreundlich ist.
Gibt es eine Möglichkeit im Modul global über eine Inputbox diese Daten in zwei Variable zu schreiben und diese dann in allen drei Abfrage zu verwenden?

Bisher war ich erfolglos diese Variable in meine Abfrage einzubauen.

Vielen Dank schon mal für eure Hilfe.

Gruß Christian

:)

 

In der Abfrage kannst Du eine Funktion einbauen, die den Datumswert zurückgibt. Unmittelbar die Variable einsetzen geht nicht, weil Jet mit einer VBA-Variablen nix anzufangen weiß.

Code:

In der Abfrage setzt Du dann "MeinDatum()" ein, aber ohne Gänsefüße.

Du kannst alternativ die SQL-Anweisung in VBA zusammensetzen und dabei direkt die Variable verwenden.

 

Hallo
Klicke auf den Link in meiner FussZeile nach Meine Doc
und lies da auf seite: 73 (5.3.12 Variablen in Abfragen Verwenden)

 

Vielen Dank für eure Hilfe,

ich habe es hinbekommen, allerdings taucht dabei ein neues Problem auf!
Ich habe in der Funktion das Datum als InputBox deklariert und muss jetzt in einer Abfrag das Datum 3x mal eingeben bevor meine Abfrage ausgeführt wird!
Die Funktion sieht wie folgt aus:

Public Function date1() As Date
date1 = InputBox("Bitte Startdatum eintragen!")
End Function

Gibt es hierfür eine sinnvolle Erklärung?

Vielen Dank vorab.

Gruß Christian

 

Hi,

wo ist da die globale Variable? Deine Funktion fragt jedesmal, wenn sie aufgrufen wird, per Inputbox den Wert ab. Wie befohlen.

Du fährst besser, wenn du so vorgehst:

• Datum einmalig in einem Formular abfragen
• dieses Datum per VBA in die SQL der Abfragen einbauen. Das ist ein Einzeiler pro Abfrage:
  Currentdb.QueryDefs("DeineAbfrage").SQL = " ... WHERE Datumsfeld = #" & Format(Forms!Datumsformular!txtDatumstextfeld, "yyyy-mm-dd") & "#"

Den Rumpf der SQL kannst du du aus der bisherigen Abfrage auslesen und anstelle der ... einfügen.

 

Hallo
lies in Meine Doc auch auf seite 73 (5.3.14 Eingabe bei InputBox Prüfen)
und Seite 74 (5.3.15 Parameter Eingabe mit InputBox und möglichkeit zur weiter verwendung der Parameter)

 

... oder Du steuerst das über über einen weiteren Parameter: Code:

und das in den Abfragen entsprechend berücksichtigen (erste Abfrage mit Parameter True, alle anderen mit Parameter False)...

 

Hallo Atrus,
okay ich hab verstanden, dass ich wenn ich den Namen der Variablen in der Abfrage einbau jedesmal die Funktion aufruf, das war nicht mein Ziel!
Ich verstehe noch nicht so ganze die Funktionalität der Currentdb.QueryDefs.
Ich habe folgenden SQL String:
INSERT INTO
SELECT
FROM
WHERE (((tbl_Arbeitszeit.Beginntam) Between date1() And date2()) AND ((tbl_Arbeitszeit.Kategorie) Like "*" & [Welches Projekt?] & "*") AND ((tbl_Arbeitszeit.Ort) Not Like "Reise"))
ORDER BY

Für date1 und date2 möchte ich jetzt immer die Variable verwenden, da diese von 3 Abfragen benötigt wird.

Warum kann ich in meinem Modul nicht einfach über zwei InputBoxen date1 und date2 festlegen und diese dann in den 3 Abfrgaen verwenden?

Gruß Christian

 

Hallo Rudi,

danke für deine Antwort, aber aus den Unterlagen ist mir nicht klar geworden wie ich es schaffe die nun angelegte Variable in dem SQL String der Abfrage zu Verwenden!
Geht das überhaupt? Bei dir heisst es nur bedingt möglich.

gruß Christian

 

Hi,

jetzt komm doch mal von den sch*~ Inputboxen runter. Die sind der allereltzte Weg, um Daten vom User abzufragen, v.a. weil man auf Fehleingaben nicht ordentlich reagieren kann und keine Kontrolle über die eingegebenen Werte hat.

Letztlich willst du doch eine Anfügeabfrage ausführen, die an bestimmten Stellen variable Werte hat. Diese variablen Werte sind aber pro Ausführung fest, nämlich auf die jeweiligen "Laufwerte" eingestellt. Daher ist es ein denkbarer Ansatz, die variablen Werte "jedesmal" als feste Werte in die Abfrage zu schreiben.

Und dazu dient Currentdb.QUeryDefs("Abfragename").sql. Es schreibt die Abfrage neu - mit den eingesetzten Werten. Im Prinzip ist das so, als würdest du die Abfrage jedesmal manuell anpassen.

Alternativ dazu sind Parameterabfragen möglich; da müssen die Parameter dann mit Werten belegt werden.

 

Hallo
dann lies einfach ein wenig weiter
auf Seite :75 (5.3.16 Benutzer-Eingabe mit einem kleinen Formular)
und
(Abfrage mit Zwischen (Begin/Ende) als Parameter)

 

Hallo!

Ich hätte noch eine Alternative zu den von Martin in Beitrag #10 erwähnten Varianten: die Filterwerte in einer lokalen (oder temporären - aber unbedingt user-bezogenen) Tabelle abspeichern und diese Tabelle zum Filtern in der Abfrage verwenden.
Dann kann man sogar die zuletzt genutzten Werte beim Öffnen des Formulars zur Filtereingabe als Vorschlag anbieten.

mfg
Josef

 

Hallo,

okay ich hab verstanden, dass Inputboxen nicht das wahre sind und sehe die Nachteile auch!
Ich habe nun den Versuch gestartet, das Datum in eine Tabell zu schreiben, mit einem Formulat auszulesen und die Werte aus dem Formular in meinen Abfragen zu verwenden.
Kann ich das per VBA die Werte in die Abfrgae zu ünermehmen auch irgendwie umgehen indem ich sie direkt in der Abfrage in mein SQL einbau?

Gruß Christian

 

Hallo, danke euch hat funktioniert!!

Gruß Chris