Identificativo articolo: 280372 - Ultima modifica: venerdì 20 ottobre 2006 - Revisione: 5.3

Come popolare una casella di riepilogo o una casella combinata con nomi di oggetti di database

Visualizza i prodotti a cui si riferisce l?articolo.
Questo articolo è stato precedentemente pubblicato con il codice di riferimento I280372
Utenti esperti: sono richieste conoscenze avanzate di gestione di codice, interoperabilità e funzioni multiutente.

Le informazioni contenute in questo articolo si applicano ai database di Microsoft Access (mdb) e ai progetti di Microsoft Access (adp).

Per la versione di questo articolo relativa a Microsoft Access 97, vedere 124344  (http://support.microsoft.com/kb/124344/ ) .
Espandi tutto | Chiudi tutto

Sommario

In questo articolo viene spiegato come utilizzare il nuovo metodo AddItem in Microsoft Access per popolare una casella di riepilogo o una casella combinata con i nomi di oggetti di database.

Informazioni

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presume che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. Gli esperti Microsoft sono autorizzati a fornire spiegazioni in merito alla funzionalità di una particolare procedura, ma in nessun caso a modificare questi esempi per fornire funzionalità aggiuntive o a creare procedure atte a soddisfare specifiche esigenze. La procedura riportata di seguito consente di popolare una casella di riepilogo o una casella combinata con i nomi di oggetti di database:
  1. Aprire il database di esempio Northwind.mdb.
  2. Creare una nuova maschera in visualizzazione Struttura.
  3. Aggiungere un controllo casella di riepilogo, quindi impostare le seguenti proprietà:
       Listbox
   ------------------------------
   Nome: listObjects
   TipoOrigineRiga: Elenco valori
   Numero colonne: 2
   Larghezza colonne: .7"; 1.5"
  4. Aggiungere il seguente codice all'evento OnLoad della maschera:
    Private Sub Form_Load()
    Dim accObject As Access.AccessObject
    
    'Fill with Tables
    For Each accObject In CurrentData.AllTables
        Me.listObjects.AddItem "TABLE;" & accObject.Name
    Next
        
    'If currently opened file is an Access database (mdb), then fill
    'with queries.
    'Otherwise, if it is an Access project (adp), fill with views, 
    'stored procedures, database diagrams, and functions.
    If CurrentProject.ProjectType = acMDB Then
        For Each accObject In CurrentData.AllQueries
            Me.listObjects.AddItem "QUERY;" & accObject.Name
        Next
    Else
        For Each accObject In CurrentData.AllViews
            Me.listObjects.AddItem "VIEW;" & accObject.Name
        Next
        For Each accObject In CurrentData.AllStoredProcedures
            Me.listObjects.AddItem "PROCEDURE;" & accObject.Name
        Next
        For Each accObject In CurrentData.AllDatabaseDiagrams
            Me.listObjects.AddItem "DIAGRAM;" & accObject.Name
        Next
        For Each accObject In CurrentData.AllFunctions
            Me.listObjects.AddItem "FUNCTION;" & accObject.Name
        Next
    End If
    
    'Fill list with forms.
    For Each accObject In CurrentProject.AllForms
        Me.listObjects.AddItem "FORM;" & accObject.Name
    Next
    'Fill list with reports.
    For Each accObject In CurrentProject.AllReports
        Me.listObjects.AddItem "REPORT;" & accObject.Name
    Next
    'Fill list with data access pages.
    For Each accObject In CurrentProject.AllDataAccessPages
        Me.listObjects.AddItem "PAGE;" & accObject.Name
    Next
    'Fill list with macros.
    For Each accObject In CurrentProject.AllMacros
        Me.listObjects.AddItem "MACRO;" & accObject.Name
    Next
    'Fill list with modules.
    For Each accObject In CurrentProject.AllModules
        Me.listObjects.AddItem "MODULE;" & accObject.Name
    Next
End Sub
  5. Salvare la maschera, quindi chiuderla.
  6. Aprire la maschera in visualizzazione Maschera.
Si noti che la casella di riepilogo contiene due colonne. La prima riporta il tipo di oggetto, ad esempio tabella, query, maschera e così via, mentre la seconda il nome dell'oggetto.
Le informazioni in questo articolo si applicano a:
  • Microsoft Office Access 2003
  • Microsoft Access 2002 Standard Edition
Torna all'inizio
Chiavi: 
kbprogramming kbcode kbhowto KB280372
LE INFORMAZIONI CONTENUTE NELLA MICROSOFT KNOWLEDGE BASE SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA, COMPRESA QUELLA RIGUARDO ALLA COMMERCIALIZZAZIONE E/O COMPATIBILITA' IN IMPIEGHI PARTICOLARI. L'UTENTE SI ASSUME L'INTERA RESPONSABILITA' PER L'UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO MICROSOFT CORPORATION E I SUOI FORNITORI SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI, ANCHE SE MICROSOFT O I SUOI FORNITORI FOSSERO STATI AVVISATI. IL DOCUMENTO PUO' ESSERE COPIATO E DISTRIBUITO ALLE SEGUENTI CONDIZIONI: 1) IL TESTO DEVE ESSERE COPIATO INTEGRALMENTE E TUTTE LE PAGINE DEVONO ESSERE INCLUSE. 2) I PROGRAMMI SE PRESENTI, DEVONO ESSERE COPIATI SENZA MODIFICHE, 3) IL DOCUMENTO DEVE ESSERE DISTRIBUITO INTERAMENTE IN OGNI SUA PARTE. 4) IL DOCUMENTO NON PUO' ESSERE DISTRIBUITO A SCOPO DI LUCRO.
 

Get Help Now

Contact a support professional by E-mail, Online, or Phone

Traduzione articoli

 

Related Support Centers