Newsgroup: it.comp.appl.access
Titolo: INFO DB

    Vorrei stampare, in pratica, il contenuto del mio DB. Mi spiego meglio:
Tutti nomi delle tabelle (solo i nomi e non il tipo di formattazione dei
campi ecc)
e cosi per le maschere, le query, i moduli, i report.
Grazie anticipatamente! CF

 ha scritto nel messaggio
news:9tntsg$r4g$1...@nreada.inwind.it...

Strumenti->Analizza->Analizzatore
Ciao Roberto - Syd

 ha scritto nel messaggio
news:JaQL7.13567$4M2.3...@news2.tin.it...

In questo modo mi ci vogliono 128 per stampare il rapporto, al massimo
riduco a 64 pagine (1 nome per ogni pagina).
Vorrei che il tutto molto sintetico mi venisse stampato in un foglio!!
saluti CF

 ha scritto nel messaggio
news:9tntsg$r4g$1...@nreada.inwind.it...

Vai sul Sito Comune (link qui sotto), Sezione General, la FAQ di Fabio
Montagner intitolata "Stampare gli oggetti di un file .mdb" penso che faccia
al caso tuo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

[CUT]
Private Sub Form_Current()
Set db = CurrentDb
Set rs = db.openrecordset("Tb_Rapporto_DB")
For Each Qry In db.Querydefs
    If Left(Qry.Name, 1) = "Q" Then
        With rs
            .AddNew
            .Fields("Descrizione") = Qry.Name
            .Update
        End With
    End If
Next
Set db = CurrentDb
Set rs = db.openrecordset("Tb_Rapporto_DB")
For Each tbl In db.tabledefs
    If Left(tbl.Name, 1) = "T" Then
        With rs
            .AddNew
            .Fields("Descrizione") = tbl.Name
            .Update
        End With
    End If
Next
Dim frm As AccessObject
Dim obj As Object
Set db = CurrentDb
Set obj = Application.CurrentProject
Set rs = db.openrecordset("Tb_Rapporto_DB")
For Each frm In obj.AllForms
  If Left(frm.Name, 1) = "M" Then
        With rs
            .AddNew
             .Fields("Descrizione") = frm.Name
            .Update
         End With
     End If
Next
End Sub
In questo modo, mi restituisce nello stesso campo della tabella, i nomi di
tabelle, query e maschere.
Cortesemente, mi potreste aggiustare le funzioni che seguono, per la
restutuzione dei moduli, report e macro?
Set db = CurrentDb
Set rs = db.openrecordset("Tb_Rapporto_DB")
For Each Qry In db.Querydefs
    If Left(Qry.Name, 1) = "Q" Then
        With rs
            .AddNew
            .Fields("Descrizione") = Qry.Name
            .Update
        End With
    End If
Next
------------------
Set db = CurrentDb
Set rs = db.openrecordset("Tb_Rapporto_DB")
For Each Qry In db.Querydefs
    If Left(Qry.Name, 1) = "Q" Then
        With rs
            .AddNew
            .Fields("Descrizione") = Qry.Name
            .Update
        End With
    End If
Next
---------------------
Set db = CurrentDb
Set rs = db.openrecordset("Tb_Rapporto_DB")
For Each Qry In db.Querydefs
    If Left(Qry.Name, 1) = "Q" Then
        With rs
            .AddNew
            .Fields("Descrizione") = Qry.Name
            .Update
        End With
    End If
Next
--------------------------
GRAZIE CF

 ha scritto nel messaggio
news:9tqusc$eb7$1...@nreadb.inwind.it...

Perchč non usi ciň che č sul Sito Comune? Lě viene fatto con tre query ed un
report.
Sai, io sono un po' pigro e non rifaccio mai ciň che trovo pronto. ;-)



Grazie Roberto, il problema č risolto.
Saluti CF