Ostatnio musiałem przeanalizować dość złożoną bazę Access z kilkuset kwerendami
Oto jak sobie zrobić ich spis do okienka debuggera lub do tabeli
Jeżeli chcemy wrzucać dane do tabeli musimy ją najpierw utworzyć (nazwa tabeli jak i nazwy pól muszą być identyczne jak w kodzie)
Jeżeli nie chcemy wrzucać do tabeli to trzeba usunąć wszystkie linijki gdzie jest odwołanie do obiektu Recordset (rs)
Oczywiście aby wrzucić dane do okienka Debuggera trzeba je po pierwsze włączyć (Ctrl+G) a po drugie odkomentować linijkę z Debug.Print
Option Compare Database Option Explicit Sub lista_kwerend_do_tabeli() Dim db As DAO.Database Dim kw As DAO.QueryDef Set db = CurrentDb Dim Licznik_kw As Long Dim Typ_kw As String Dim rs As DAO.Recordset Set rs = db.OpenRecordset("_tbSpisKwerend") For Each kw In db.QueryDefs Licznik_kw = Licznik_kw + 1 Select Case kw.Type Case 0 Typ_kw = "SELECT" Case 32 Typ_kw = "DELETE" Case 48 Typ_kw = "UPDATE" Case 64 Typ_kw = "APPEND" End Select 'Debug.Print Licznik_kw; kw.Name, Typ_kw, kw.Fields.Count rs.AddNew rs.Fields("Nazwa_kw").Value = kw.Name rs.Fields("Typ_kw").Value = Typ_kw rs.Fields("Liczba_pol").Value = kw.Fields.Count rs.Update Next Set db = Nothing End Sub |