Sapere come impostare i risultati di una query a un controllo casella di riepilogo e utilizzare i suoi valori in un'altra query può rendere le applicazioni di database più dinamico. Microsoft Office Access consente di creare un'interfaccia utente grafica ( GUI ) , aggiungere un controllo casella di riepilogo e utilizzarlo per visualizzare i dati di query . Access è un sistema di gestione di database relazionale comunemente usato per i database più piccoli . Una query viene utilizzato per recuperare i dati da una tabella di database . Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione per computer utilizzato per automatizzare le attività di routine . Istruzioni
1

Aprire il database di Access Northwind di Microsoft Office . Il database Northwind è incluso nella suite Microsoft Office .

2 Fare clic sulla scheda "Crea " e selezionare " Struttura maschera " per creare un nuovo modulo . Fare clic su " Casella di riepilogo " nel riquadro " Controls " , quindi fare clic sul modulo , tenere premuto il pulsante del mouse e trascinare il mouse per creare un nuovo controllo casella di riepilogo . Fare clic su " Pulsante " sul pannello " Controlli " per aggiungere un nuovo pulsante al form stesso modo si è aggiunto alla casella di riepilogo .
3

destro del mouse su " Command0 " e selezionare "Proprietà ". Fare clic sulla scheda "Evento" e selezionare " [ Event Procedure ] " accanto a " Al clic del mouse . " Fare clic sui puntini di sospensione ( ... ) per aprire la finestra "Microsoft Visual Basic "
4

Copia e incolla il seguente codice in " Private Sub Command0_Click ( ) " : .

Dim strSQL As String

strSQL = " ordini selezionare. [ Employee ID ]",

strSQL = strSQL & "Ordini . [ ID cliente ] , Ordini . [ Data spedizione ]",

strSQL = strSQL & " ordini . [ Nome della nave ] , Ordini . [ indirizzo della nave ] "

strSQL = strSQL & "FROM Orders "

strSQL = strSQL & "WHERE ( ( ( Orders. [ indirizzo della nave ] ) = '123 8th Street ')); "

Me.List0.RowSource = strSQL

Questo codice interrogherà il " Ordini " tavolo e impostare il" Origine riga " proprietà del controllo casella di riepilogo .
5

tornare alla finestra di Microsoft Access e fare clic destro" List0 ", quindi selezionare" proprietà ". Fare clic sulla scheda "Evento" e selezionare " [ Event Procedure ] " accanto a " Dopo aggiornamento ". Fare clic sui puntini di sospensione ( ... ) per aprire la finestra "Microsoft Visual Basic "
6

Copia e incolla il seguente codice in " Private Sub List0_Click ( ) " : .

Dim dbs As Database Dim rst

come Recordset

Dim sqlstr As String

Dim I As Integer

Set dbs = CurrentDb

i = 0 To Me ! List0.ListCount

Me! List0.Selected ( I) Poi

sqlstr = " ordini selezionare. [ Data spedizione ] FROM ordini "

sqlstr = sqlstr & "WHERE ordini [ Employee ID ] = . " & ( me! List0.ItemData ( I) ) & " ; "

Set rst = dbs.OpenRecordset ( sqlstr ) per

rst.MoveLast

rst.MoveFirst

Debug.Print " Spedito data per la voce selezionata : " & rst.Fields ( 0 ) Valore

rst.Close
.

End If

Poi ho

dbs.Close

Questo codice visualizzerà la " Data spedizione " per gli elementi selezionati nella casella di riepilogo . I risultati verranno visualizzati nella finestra " Immediata" .
7

Chiudere la finestra "Microsoft Visual Basic " e fare clic destro " Form1 ", quindi selezionare " Visualizza come modulo . " Fare clic su " Command0 " per riempire la casella di riepilogo con i dati. Selezionare un valore dalla casella di riepilogo per eseguire il codice per il controllo casella di riepilogo .