vba:access:functions:opensqlasquery
Differences
This shows you the differences between two versions of the page.
| Next revision | Previous revision Next revision Both sides next revision | ||
|
vba:access:functions:opensqlasquery [09.12.2013 09:39:54] 127.0.0.1 external edit |
vba:access:functions:opensqlasquery [20.08.2014 12:43:52] yaslaw |
||
|---|---|---|---|
| Line 18: | Line 18: | ||
| ' */ | ' */ | ||
| Public Sub openSqlAsQuery(ByVal sql As String) | Public Sub openSqlAsQuery(ByVal sql As String) | ||
| - | Const C_TEMP_QUERY_NAME = "vw_temp" | + | Dim qryName as String: qryName = "vw_temp_" & Environ("UserName") |
| 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(C_TEMP_QUERY_NAME).sql = sql | + | CurrentDb.QueryDefs(qryName ).sql = sql |
| If Err.Number <> 0 Then | If Err.Number <> 0 Then | ||
| 'Falls das Query vw_temp noch nicht besteht, neu anlegen | 'Falls das Query vw_temp noch nicht besteht, neu anlegen | ||
| - | Call CurrentDb.CreateQueryDef(C_TEMP_QUERY_NAME, sql) | + | Call CurrentDb.CreateQueryDef(qryName , sql) |
| Err.clear | Err.clear | ||
| End If | End If | ||
| Line 31: | Line 31: | ||
| 'Abfrage öffnen | 'Abfrage öffnen | ||
| - | Call DoCmd.OpenQuery(C_TEMP_QUERY_NAME) | + | Call DoCmd.OpenQuery(qryName ) |
| End Sub</code> | End Sub</code> | ||
vba/access/functions/opensqlasquery.txt · Last modified: 31.08.2015 11:57:54 by yaslaw
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: GNU Free Documentation License 1.3
