Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

======[VBA][Access] openSqlAsQuery()======
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
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.

<code vb>'-------------------------------------------------------------------------------
'mpl          by ERB software
'Environment  Access 2000 und höher
'Author       Stefan Erb (ERS)
'History      22.12.2011 - ERS - Creation
'-------------------------------------------------------------------------------

'/**
' * Öffnet ein SQL-String als Abfrage (QueryDef)
' * @param  String       SQL-Statement
' */
Public Sub openSqlAsQuery(ByVal sql As String)
	Dim qryName as String: qryName = "vw_temp_" & Environ("UserName")
	
On Error Resume Next
	'Versuchen das SQL hinter der Abfrage vw_temp_username zu ersetzen
	CurrentDb.QueryDefs(qryName ).sql = sql
	If Err.Number <> 0 Then
		'Falls das Query vw_temp noch nicht besteht, neu anlegen
		Call CurrentDb.CreateQueryDef(qryName , sql)
		Err.clear
	End If
On Error GoTo 0

	'Abfrage öffnen
	Call DoCmd.OpenQuery(qryName )

End Sub</code>

Und hier noch ein Beispiel wie man die Funktion anwenden kann
<code vb>
Public Sub test()
	Dim Sql As String
	Dim id As Long
	
	id = MsgBox("Get ID")
	
	Sql = "SELECT * FROM myTable WHERE ID = " & id

	Call openSqlAsQuery(Sql)

End Sub</code>
{{tag>VBA MS_Access}}
Yaslaw.Info

User Tools

Site Tools

Page Tools
