User Tools

Site Tools


vba:access:functions:opensqlasquery

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

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
vba/access/functions/opensqlasquery.1408531338.txt.gz · Last modified: 20.08.2014 12:42:18 by yaslaw