Newsgroup: it.comp.appl.access
Titolo: lista dei report da codice

Salve
dovrei popolare una combo con i nomi dei report present del db
qualche suggerimento?
saluti

 ha scritto nel messaggio 
news:49e759aa$0$1115$4faf...@reader2.news.tin.it...

risolto grazie lo stesso
BFS 

 ha scritto nel messaggio 
news:49e75d2b$0$1110$4faf...@reader2.news.tin.it...

Posta per gli altri la soluzione che hai trovato...potrebbe sempre essere 
utile a qualcuno.
-- 
Roberto da Parma 

 ha scritto nel messaggio 
news:gs89cl$nf0$1...@tdi.cu.mi.it...

certo...
Access XP
file ADP
MSDE 2000
data una combo NomeStampa
For I = 0 To CurrentProject.AllReports.Count - 1
    Me.NomeStampa.AddItem CurrentProject.AllReports.Item(I).Name
Next I
ciao
BFS 

 BFS-
Questo non era meglio....?
SELECT MsysObjects.Name
FROM MsysObjects
WHERE Type=-32764
ORDER BY MsysObjects.Name;
@Alex

 wrote in message 
news:90648b92-ea50-47a1...@b16g2000yqb.googlegroups.com...
Questo non era meglio....?
SELECT MsysObjects.Name
FROM MsysObjects
WHERE Type=-32764
ORDER BY MsysObjects.Name;
=======================================
No, questa č meglio:
For Each i In CurrentProject.AllReports
    [NomeStampa].AddItem i.Name
Next
(io non so maneggiare le emoticons, ma tu fa finta che ti
abbia fatto la lingua)
Bruno

 abbia fatto la lingua)
Quella di Baraldi la puo mettere nel rowsource e puo' ordinarla come gli 
pare.
--
ac

 ac-
Adesso digli di scrivere una Routine che metta in ordine alfabetico
gli ITEM della Collection in base a qualche criterio(perchè fanno
veramente SCHIFO non ordinati) o che escludano quelli da escludere in
caso di gestione Utenti... o in caso di mal di testa....
Meno male che ci sei tu che qualche volta mi capisci al volo...
;-)
Ecco ora faccio pure le faccine....
@Alex

 Ecco ora faccio pure le faccine....
Noo le faccine no.. posa l'oppio! :D
-- 
Ciao
Pablitomf
----------------------------
http://www.accessgroup.it/
----------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

ORDER BY MsysObjects.Name;
no!
in un progetto ADP non esistono tabelle, quindi neanche quelle di sistema.
:-)
Giorgio 

caso di gestione Utenti... o in caso di mal di testa....
un bel recordset non associato a tabella ?
:-)
Giorgio 

 abbia fatto la lingua)
Errata:    fa finta
Corrige:  fa' finta
Bruno 

 Giorgio
Effettivamente era meglio specificare la relazione a JET .... ma nel
95% dei casi è lo scenario.
Giusta osservazione, grazie.
@Alex

 Giorgio
Immaginavo....
;-)
Non credo, pur più scalabile, che nel caso di JET sia meglio che usare
direttamente la prorpietà  RowSource sull'oggetto.
@Alex

 Giorgio
Allora ritorniamo nella banalità:
-----------------------------------------
Private Sub Command26_Click()
Dim i, j As Integer, k As Integer, Swap As String
ReDim Rep(1 To CurrentProject.AllReports.Count)
For Each i In CurrentProject.AllReports
    k = k + 1
    Rep(k) = i.Name
Next
For j = 1 To UBound(Rep) - 1
    For k = j + 1 To UBound(Rep)
        If Rep(j) > Rep(k) Then
            Swap = Rep(j): Rep(j) = Rep(k): Rep(k) = Swap
        End If
Next: Next
For j = 1 To UBound(Rep)
    [NomeStampa].AddItem Rep(j)
Next
End Sub
------------------------------------------
Bruno 

 ha scritto nel 
messaggio news:49e86ab6$0$714$5fc...@news.tiscali.it...

Mi aggancio un po' OT.
Avrei bisogno di un po di documentazione su MsysObjects... per esempio su 
Type (query, passthroug, insert, delete, tabelle, form, ecc...) o devo 
sempre scoprire l'acqua calda da solo?
Esiste anche una collection per i Moduli di Classe e le sub?
Sempre grazie.
Daniele 


c'è poco da scoprire
via nelle opzioni e spunta "visualizza le tabelle di sistema e gli oggetti nascosti"
a quel punto è veramente banale il tutto
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

 Daniele
c'č poco da scoprire
via nelle opzioni e spunta "visualizza le tabelle di sistema e gli oggetti 
nascosti"
a quel punto č veramente banale il tutto
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Vale sempre il detto lo scopriremo solo vivendo.
Grazie 

 Esiste anche una collection per i Moduli di Classe e le sub?
se ti ho capito, la collection per i moduli di classe e moduli bas č 
Application.Modules
Per quanto riguarda l'elenco delle sub e delle funzioni cerca nell'help la 
proprietą ProcOfLine, troverai un esempio che le elenca.
Ciao
Giorgio 


Grazie mille.
Daniele
PS Forse è scorretto. Che ne pensi del thread "Snapshot ole db -> jet"?
Grazie sin da ora.
Ciao 

 Allora ritorniamo nella banalità:
[CUT]
con versioni da Access2002 in avanti si può fare anche così
----
Comando1_Click()
    Dim Rs As Object
    Dim Rpt As Object
    Set Rs = CreateObject("ADODB.Recordset")
    Rs.Fields.Append "NomeReport", 200, 255
    Rs.Open , , 2, 3
    For Each Rpt In CurrentProject.AllReports
        Rs.AddNew Array("NomeReport"), Array(Rpt.Name)
    Next
    Rs.Sort = "NomeReport ASC"
    Set Me.CasellaCombinata0.Recordset = Rs
End Sub
----
Ciao
Giorgio 

 Giorgio
Ottima, me l'annoto.
È quel Rs.Sort che fa la differenza!
Bruno