Access-o-Mania

Hallo Wissende,

im Internet finde ich nur, wie man eine Tabelle erstellt und der Datenbank hinzufügt.

Geht das auch mit einer Abfrage und wenn ha, wie? (SQL-Statement gebe ich dann an)

Vielen Dank im voraus

Hans-Jürgen

Sub Neue_Abfrage()

Dim qry_Test As QueryDef
Set qry_Test = CurrentDb.CreateQueryDef("Dein SQL_Statement")

End Sub

So etwas geht auch per DDL.

Public Sub CreateViewDDL()
    'Purpose:   Create a new query using DDL.
    Dim strSql As String
   
    strSql = "CREATE VIEW qryBez as SELECT ID, Bezeichnung FROM tblBez" _
           & " WHERE ID<3;"
    CurrentProject.Connection.Execute strSql
    RefreshDatabaseWindow
End Sub

Knobbi38

Herzlichen Dank euch beiden!