This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
vba:access:functions:opensqlasquery [20.08.2014 12:42:18] yaslaw |
vba:access:functions:opensqlasquery [31.08.2015 11:57:54] (current) yaslaw |
||
---|---|---|---|
Line 1: | Line 1: | ||
- | ======[VBA] [Access] openSqlAsQuery()====== | + | ======[VBA][Access] openSqlAsQuery()====== |
In MS Access kann man SQL-Statements, welche man in VBA erstellt nicht direkt öffnen. Mit der folgenden | In MS Access kann man SQL-Statements, welche man in VBA erstellt nicht direkt öffnen. Mit der folgenden | ||
Funktion wird eine temporäre Abfrage (<nowiki>QueryDef</nowiki>) erstellt und diese anschliessend geöffnet | Funktion wird eine temporäre Abfrage (<nowiki>QueryDef</nowiki>) erstellt und diese anschliessend geöffnet | ||
Die Abfrage bleibt bestehen und wird beim nächsten mal auf das neue SQL angepasst. | Die Abfrage bleibt bestehen und wird beim nächsten mal auf das neue SQL angepasst. | ||
- | In einer Mehrbenutzerumgebung sollte der Name des temporären Query noch um die Userkennung ergänzt werden. | + | >In einer Mehrbenutzerumgebung sollte der Name des temporären Query noch um die Userkennung ergänzt werden. |
<code vb>'------------------------------------------------------------------------------- | <code vb>'------------------------------------------------------------------------------- | ||
Line 21: | Line 21: | ||
On Error Resume Next | On Error Resume Next | ||
- | 'Versuchen das SQL hinter der Abfrage vw_temp zu ersetzen | + | 'Versuchen das SQL hinter der Abfrage vw_temp_username zu ersetzen |
CurrentDb.QueryDefs(qryName ).sql = sql | CurrentDb.QueryDefs(qryName ).sql = sql | ||
If Err.Number <> 0 Then | If Err.Number <> 0 Then |