Off-Topic: Namen von Queries in Access nach Excel

Forumthread: Off-Topic: Namen von Queries in Access nach Excel

24.09.2008 11:24:00

Queries

Tach auch,
ich soll zu den ca. 200 existierenden Queries in unserer Access-Datenbank Beschreibungen abliefern und Kurzbeschriebe, was das Ziel der Query ist, auflisten. Da würde ich mir gerne die Arbeit ersparen jede Query einzeln den Namen kopieren zu müssen.
Gibt es eine Möglichkeit die Namen der Queries editierbar zu exportieren (also nicht mit Screenshot)?
Danke für die Info!
Gruss
Claus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Off-Topic: Namen von Queries in Access nach Excel

24.09.2008 12:33:08

Queries

Hallo Claus,
auf die schnelle Ausgabe im Direktbereich, kannst die Ausgabe dann ja einfach nach Excel kopieren:


Sub ListQueries()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb
For Each qdf In db.QueryDefs
If Not qdf.Name Like "~sq*" Then Debug.Print qdf.Name
Next qdf
db.QueryDefs.Refresh
db.Close
End Sub

Einfach in ein Modul der Access Datenbank kopieren und ausführen.
Gruß
Andreas

AW: Off-Topic: Namen von Queries in Access nach Excel

24.09.2008 16:54:41

Queries

Super!!! Danke Dir!!!
Gruss
Claus

AW: Off-Topic: Namen von Queries in Access nach Excel

24.09.2008 12:49:07

Queries

Hallo Claus,
das folgende Makro (einrurichten in einem Modul der Datenbank) erzeugt eine Textdatei mit einer Liste der Queries.
Mit den auskommentierten Zeilen kannst du auch den SQL-Code mit in die Textdatei schreiben.
Die Textdatei wird im gleichen Verzeichnis wie die Datenbank gespeichert., ggf. anpassen.
Gruß
Franz


Option Compare Database
Sub QuerryListe()
Dim objQueryDef As QueryDef, FF As Integer, strFilename As Variant
Dim strSQL As String, strName As String
FF = FreeFile()
With CurrentDb
strFilename = Left(.Name, Len(.Name) - 4) & "_Querries.txt"
End With
Open strFilename For Output As #FF
For Each objQueryDef In Application.CurrentDb.QueryDefs
With objQueryDef
'Name der Querry
strName = .Name
'SQL der Querry (Zeilenschaltungen werden ersetzt)
'strSQL = Replace(.SQL, VBA.vbCr, " ")
'strSQL = Replace(strSQL, VBA.vbLf, "")
'Daten für Querry in Textfile schreiben
Print #1, strName
'Print #1, strName & vbTab & strSQL
End With
Next
Close #FF
End Sub

Beliebteste Forumthreads (12 Monate)

Off-Topic: Namen von Queries in Access nach Excel

Forumthread: Off-Topic: Namen von Queries in Access nach Excel

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Off-Topic: Namen von Queries in Access nach Excel

Forumthread: Off-Topic: Namen von Queries in Access nach Excel

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread