Newsgroup: it.comp.appl.access
Titolo: Problema con query di Access97

In poche parole mi serve vedere quali query sono utilizzate dal database e
quali no. Esiste un modo automatico per farlo o mi devo star a controllare
una per una tutte le 230 query?
Aiutatemi vi prego!!!
Tnx.

 ha scritto nel messaggio
news:av1l6i$b3smo$1...@ID-173210.news.dfncis.de...

Beh, detta così mi verrebbe da chiederti cosa ci fai con 230 Query.....!!!
Non so se c'è qualcosa in giro, ma puoi crearti una piccola Routine
che esplorando l'oggetto "AccessApplication.Module" delle Form e dei Moduli
cerchi all'interno del codice la stringa con il nome della QRY.
E' una bella palla, ma è l'unica cosa che con relativamente poche righe di
codice
puoi fare......!!
Ti butto li 2 righe di codice che non sono nè complete nè corrette, le ho
scritte
stralciando del codice dall'applicazione Publibatch di RoDago regolarmente
pubblicata sul SitoComune tanto per darti un'idea di come gestirla.
Dim appAccess As New Access.Application
Dim Ogg As Recordset
dim NumRigDic1  as long
Set dbs = currentdb
Set Ogg = dbs.OpenRecordset("SELECT Name, Type, Flags FROM MSysObjects ",
dbOpenSnapshot)
With appAccess
  Ogg.MoveFirst
  Do Until Ogg.EOF
    Select Case Ogg!Type
        Case -32768 'Esecuzione su Form
                NumRigDic1 = .Forms(Ogg!Name).Module.CountOfDeclarationLines
                For i = 1 To NumRigDic1
                    righedic(i) = .Forms(Ogg!Name).Module.Lines(i, 1)
                    'Quì cerchi con un'altro ciclo il testo di tutte le tue
QRY
                    'che ovviamente estrai con un Recordset dedicato che
prente
                    ' i dati da MSysObject
                Next i
        Case -32761 'Esecuzione su Moduli Standard e di Classe
                NumRigDic1 = .Modules(Ogg!Name).CountOfDeclarationLines
                For i = 1 To NumRigDic1 'Memorizzo nell'array la sezione
Dichiarazioni.
                    righedic(i) = .Modules(Ogg!Name).Lines(i, 1)
                    'Quì cerchi con un'altro ciclo il testo di tutte le tue
QRY
                    'che ovviamente estrai con un Recordset dedicato che
prente
                    ' i dati da MSysObject
                Next i
    end select
 loop
 end with
@Alex.

@Alex :

Ti ringrazio per l'interessamente e l'aiuto che mi hai offerto ma ho già
controllato se usavo le query nel codice del programma. Quello che mi serve
ora è controllare se ci sone alcune query che non uso fra di loro, proprio
fra le query di access. Non so se mi sono spiegato, cmq non penso che ci sia
qualcosa per controllare se le query sono praticamente legate fra di loro
tipo una relazione fra tabelle. :-(

 ha scritto nel messaggio
news:av1l6i$b3smo$1...@ID-173210.news.dfncis.de...

Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Lorenzo Coronati e Davide La Mantia (Sib) intitolata "Verifica se una
tabella o una query è usata in una form o in un report".
Sarà Sufficiente che ti ricavi un elenco che contiene il nome di tutte le
query e per ognuna di esse lanci la funzione contenuta nella FAQ di cui
sopra e saprai se quella query è utilizzata o meno in una maschera o in un
report.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------