Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Off-Topic: Namen von Queries in Access nach Excel

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

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

Betreff
Datum
Anwender
Anzeige
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


Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige