Office: SQL Befehle in Makro oder Modul ausführen

Hi.

Bin leider eine absoluter VBA Niete.
Möchte in Access 2000 folgende SQL Befehle hintereinander in einem Makro oder Modul ausführen.

SELECT TOP 15 [test1].[Region], [test1].[BS], [test1].[TUI_Abw_€]
FROM test1
WHERE ((([test1].[Region])="01"))
ORDER BY [test1].[TUI_Abw_€] DESC;

INSERT INTO tbl_TUIAbw€_Punkte ( BS, TUIAbw€, Punkte )
SELECT temp_top15.BS, temp_top15.TUI_Abw_€, (Select Count (*) FROM [temp_Top15] as Temp WHERE Temp.TUI_Abw_€

:)

 

Hi,

vielleicht so (ungetestet!). Ein Verweis auf DAO ist nötig. Ausserdem weiß ich nicht, ob das € nicht zu Problemen führt.

Code:

 

Hallo Davy,

ich würde die beiden sql Statements als Abfragen speichern und in
einem Makro mit dem Befehl "öffnenAbfrage" ausführen lassen.

MfG Frank

 

Hey Frank,

ja, habe ich auch schon gedacht. Da ich aber das ganze für 14 Regionen (01 , 03,11 u.s. ) machen muss, ist es sehr wesentlich einfacher mit copy und paste den Befehl in einem Modul zu kopieren und die Regionen zu ersetzen.

Hey Jan,

vielen Dank !
Habe ich mal getestet.
Wenn ich dein Script in ein neues Modul einfüge, kann ich es nicht ausführen ( Icon "Ausführen" ist nicht hinterlegt ).
Wenn ich es in eine Schaltfläche eines Formulars kopiere, meckert Access beim Ausführen bei "Set DB" ( 3 Zeile ) "Fehler beim kompilieren, Außerhalb einer prozedur ungültig".

Hast Du ne Idee ???

Danke im voraus !

Gruß
Davy

 

Hast du einen Verweis auf DAO gesetzt?

Zu Franks Lösung. Wenn du zB ein Formular hast, in dem du in einem Kombi deine Region auswählst, dann kannst du in deiner Abfrage einen Verweis auf dieses Feld setzen.

 

Sorry, aber wie gesagt, bin ich bei VBA ein Depp.
Wie mache ich den Verweis auf DAO ???

Zu Frank:

Wenn ich ein Kombifeld wähle, muss ich aber ja immer jede Region einzeln auswählen, oder ?
Also: Wählen im KF Reg 1, dann wählen Reg 3 .. .. Das wäre ja ziemlich aufwendig, oder ?

Danke für die Hilfe !

 

Zu Frank: Ich habe leider keine Ahnung, was der Hintergrund dessen ist und weiß nicht, wie der Ablauf ist, deswegen kann ich nur Vermutungen anstellen. Ob es sinnvoll ist, kannst nur du sagen.

Einen Verweis setzt du im VBA-Fenster unter Extras / Verweise hier suchst du dann Microsoft DAO 3.x, machst ein Häckchen rein und schiebst ihn in der Priorität vor ADO (müsste der 3. Verweis von oben sein).

HTH

 

Funkt leider nicht !
Egal ! Danke trotzdem.
Werde jetzt den umständlicheren Weg mit den Kombifeld gehen!

Hintergrund ist, dass ich nach Umsatz Punkte verteilen möchte und zwar pro Region. Das Büro mit dem höchsten Umsatz in einer Region bekommt 15 Punkte, das zweithöchste 14 u.s.w.

Danke für Euere Hilfe !

 

Ich glaube bei www.kraasch.de gibt es ein Beispiel zu einem Rangsystem. Vielleicht schaust du dir es mal an.