Newsgroup: it.comp.appl.access
Titolo: 2a Ripresa: Lista Controlli di un Oggetto

Il codice che gentilmente @ALex mi ha passato, e cioè
Private Sub Form_Load()
   On Error Resume Next
   Dim frm As Access.Form
   Dim ctl As Access.Control
   Dim prp As DAO.Property
   Dim dbs As Database, ctr As Container, doc As Document
   Set dbs = CurrentDb
   ' Restituisce il riferimento al contenitore Forms.
   Set ctr = dbs.Containers!Forms
   ' Elenca insieme Documents del contenitore Forms.
   Set dbs = CurrentDb
   ' Restituisce il riferimento al contenitore Forms.
   Set ctr = dbs.Containers!Forms
   ' Elenca insieme Documents del contenitore Forms.
   For Each doc In ctr.Documents
      Debug.Print "FORM = " & doc.Name & vbNewLine
      Set frm = Forms(doc.Name)
      For Each ctl In frm.Controls
         Debug.Print "----CONTROL = " & ctl.Name & vbNewLine
          For Each prp In ctl.Properties
             Debug.Print "--------Property = " & prp.Name & " = " &
prp.Value & vbNewLine
          Next prp
      Next ctl
   Next doc
End Sub
--------------------
mi restituisce :
- la lista delle maschere,
- i controlli dell'ultima maschera
- le proprietà dell'ultino controllo.
Il codice valutandolo ( non è che sono un esperto)
dovrebbe dare:
- maschera1
       controllo1
            proprietà1
            proprietà2
            ecc
       controllo2
            proprietà1
            proprietà2
            ecc
- maschera2
       controllo1
            proprietà1
            proprietà2
            ecc
       controllo2
            proprietà1
            proprietà2
            ecc
-ecc.
Qualche consiglio?
Grazie
Paolo

Paolo Dal Bosco ha scritto:

Ciao Paolo, mi pare strano quello che dici, di certo funziona solo
sulle Form Aperte, ma
non è possibile che non ti dia l'Elenco dei Controlli e delle
proprità...!
Io ho provato personalmente il codice e, con 2 Form aperte, in ogni
form(copiate) ho 3
controlli diversi(una CheckBox, una textBox ed un OptionButton), mi
vengono
restituiti sia l'elenco delle 2 Form ed in ognuna tutti i controlli e
per ogni controllo
l'elenco delle Properties visibili.
Se devi vedere anche le Form Chiuse, ed è l'unico motivo che penso ti
abbia spinto
ad usare la Collectioin Conteiners(altrimenti avresti usato la
collections FORMS), devi
aprirele se non aperte....!
Verifica meglio la cosa, ti assicuro che la routine funziona...
@Alex

 Paolo
Ciao Paolo, mi pare strano quello che dici, di certo funziona solo
sulle Form Aperte, ma
non č possibile che non ti dia l'Elenco dei Controlli e delle
propritą...!
Io ho provato personalmente il codice e, con 2 Form aperte, in ogni
form(copiate) ho 3
controlli diversi(una CheckBox, una textBox ed un OptionButton), mi
vengono
restituiti sia l'elenco delle 2 Form ed in ognuna tutti i controlli e
per ogni controllo
l'elenco delle Properties visibili.
Se devi vedere anche le Form Chiuse, ed č l'unico motivo che penso ti
abbia spinto
ad usare la Collectioin Conteiners(altrimenti avresti usato la
collections FORMS), devi
aprirele se non aperte....!
Verifica meglio la cosa, ti assicuro che la routine funziona...
@Alex
----------------------------
ci mancherebbe che metessi in dubbio il funzionamento, allora sbaglio
qualcosa io:
- se disabilito il debug. print per i controlli e le proprietą mi dą la
   lista delle maschere-Ok
- se disabilito il debug. print per le maschere e le proprietą mi dą la
   lista dei controlli dell'ultima maschera
non riesco a capire il perchč.
Chiedo una cortesia, puoi verificare?
Grazie
Paolo

[CUT]
Verifica meglio la cosa, ti assicuro che la routine funziona...
@Alex
--------------------------------------------
funziona!
non funziona se il nome della maschera ha il maggior peso.
Normalmente uso come maschera di lavoro una maschera con none "ZZZZZZZZ"
con questo nome non funziona.
la stezza maschera chianata "aaa", minor peso ti tutte le altre maschere,
funziona
egregiamente.
C'č una logica?
Grazie
Paolo

 Paolo
Sinceramente non saprei...., ma non mi hai chiarito se serve ciclare
solo le Form aperte o tutte....??
@Alex

 Paolo
Sinceramente non saprei...., ma non mi hai chiarito se serve ciclare
solo le Form aperte o tutte....??
@Alex
-----------------------------------------
tutte (quella aperta la salto con un if)
Ciao.
Paolo

 Paolo
Sinceramente non saprei...., ma non mi hai chiarito se serve ciclare
solo le Form aperte o tutte....??
@Alex
----------------------------
rettifico: quelle non attive.
Grazie
Ciao

 Paolo
Sinceramente non saprei...., ma non mi hai chiarito se serve ciclare
solo le Form aperte o tutte....??
@Alex
--------------------------------------
scusami Alex se disturbo, allora
- il risultato dei 2 loop l'ho portato su file testo
amara sorpresa: i controlli sono gli stessi per tutte le maschere
dovrebbe in teoria essere
form1, contrl1(della form1), prop1(della form1, contrl1)
           contrl2(della form1), prop1(della form1, contrl2)
form2, contrl1(della form2), prop1(della form2, contrl1)
           contrl2(della form2), prop1(della form2, contrl2)
....
ho provato in vari modi, ma il risultato cambia mma č sempre errato.
cosa mi consigli?
grazie e buona giornata
Paolo

 Paolo
Mandami un demo che vedo di capire meglio il problema.
@ALex

[CUT]
Mandami un demo che vedo di capire meglio il problema.
@ALex
---------------------
inviato, grazie
paolo

 ha scritto nel messaggio
news:1156925808....@p79g2000cwp.googlegroups.com...



@ALex
------------------------------------------
ho risolto, grazie del tuo indispensabilie aiuto.
Puoi cestinare tutto.
Grazie ancora
Paolo