Newsgroup: it.comp.appl.access
Titolo: Lista con tutti i report disponibili?

Leggendo da 
http://www.wa.apana.org.au/~abrowne/homepage.html
  ho capito che
si possono creare delle CaselleCombinate con l'elenco dei report
disponibili. Ma la cosa mi sembra molto difficile primo perchè non sono
esperta della materia e secondo "toppo" notevolmente anche in inglese. Però
non vorrei desistere a priori: c'è qualcuno disposto a darmi un aiuto?
Il primo problema è che ho creato una maschera con una CasellaCombinata che
ha come origine controllo la funzione qui sotto, però la casella combinata
non mi visualizza nulla, anzi dice che mancano virgole: perchè? Ho anche
guardato su Soluzioni.mdb o Northwind ma non mi sembra di avere trovato
esempi.
Che faccio desisto?
Ciao Marina
Function EnumReports(fld As Control, id As Variant, row As Variant, col As
Variant, code As Variant) As Variant
          ' Purpose:  Supplies the name of all saved reports to a list box.
          ' Usage:    Set the list box's RowSourceType property to:
EnumReports
          '               leaving its RowSource property blank.
          ' Notes:    All arguments are provided to the function
automatically.
          ' Author:   Allen Browne        
abr...@odyssey.apana.org.au
Feb.'97.
          Dim db As Database, dox As Documents, i As Integer
          Static sRptName(255) As String              ' Array to store
report names.
          Static iRptCount As Integer                 ' Number of saved
reports.
          ' Respond to the supplied value of "code".
          Select Case code
              Case acLBInitialize                     ' Called once when
form opens.
                  Set db = CurrentDb()
                  Set dox = db.Containers!Reports.Documents
                  iRptCount = dox.Count               ' Remember number of
reports.
                  For i = 0 To iRptCount - 1
                      sRptName(i) = dox(i).Name       ' Load report names
into array.
                  Next
                  EnumReports = True
              Case acLBOpen
                  EnumReports = Timer                 ' Return a unique
identifier.
              Case acLBGetRowCount                    ' Number of rows
                  EnumReports = iRptCount
              Case acLBGetColumnCount                 ' 1 column
                  EnumReports = 1
              Case acLBGetColumnWidth                 ' 2 inches
                  EnumReports = 2 * 1440
              Case acLBGetValue                       ' The report name from
the array.
                  EnumReports = sRptName(row)
              Case acLBEnd
                  Erase sRptName                      ' Deallocate array.
                  iRptCount = 0
          End Select
     End Function

 [cut]
Ho provato la funzione e 'funziona'!
Devi impostare a EnumReports la proprieta' TipoOrogineRiga di una combo o di
una lista (dalla finestra delle proprieta')
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------

 Function EnumReports(fld As Control, id As Variant, row As Variant, col As
