Access-o-Mania

Hallo Leute,

mein Problem ist das ich mehrere ähnliche Abfragen habe. Der Übersicht wegen würde ich die in's VBA einbinden damit ich nicht zu viele Abfragen habe.

SQL-String der Abfrage:
SELECT WC_Forecast_temp.P_Equipment, WC_Forecast_temp.P_WPositionstext, WC_Forecast_temp.Startdatum, WC_Forecast_temp.Type, WC_Forecast_temp.Application
FROM WC_Forecast_temp
WHERE (((WC_Forecast_temp.Application)="sti"))
ORDER BY WC_Forecast_temp.Anzahl;

Nun habe ich versucht den String in's VBA einzubinden:
Dim strSQL As String

strSQL = " SELECT WC_Forecast_temp.P_Equipment, WC_Forecast_temp.P_WPositionstext, WC_Forecast_temp.Startdatum, WC_Forecast_temp.Type, WC_Forecast_temp.Application " & _
"FROM WC_Forecast_temp " & _
"WHERE (((WC_Forecast_temp.Application) = 'sti')) " & _
"ORDER BY WC_Forecast_temp.Anzahl; "

DoCmd.RunSQL strSQL
Leider funktioniert der Code nicht richtig ???

Vielleicht kann ja jemand helfen
Danke!

Deine Abfrage ist ein Auswahlabfrage. RunSQL erwartet eine Aktionsfrage ( Delete, Insert, Update ...)

Deinen SQL-String könnte Man unter VBA in etwa so verwenden

dim rs as dao.recordset
Set rs = CurrentDB.openRecordset(strSQL)
...

Hallo net_user,

Zitat

Code [Auswählen] Erweitern

DoCmd.RunSQL strSQL

Funktioniert nur mit Aktionsabfragen (INSERT, UPDATE).
Der SQL-String scheint soweit in Ordnung, ausser vielleicht,
dass es am Anfang und am Ende kein Leerzeichen braucht (das
Semikolon am Ende kannste auch weglassen).
Ein SELECT musst Du einem geeignetem Objekt (Abfrage,
Formular, List-/Kombifeld) zuweisen.
hth
gruss ekkehard

Zu langsam  :(

Vielen Dank für Eure Hilfe!!