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

istruzione

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

2 Fare clic sulla scheda "Crea" e selezionare "Form Design" per creare un nuovo modulo. Fai clic su "Casella di riepilogo" nel riquadro "Controlli", quindi fare clic sul modulo, tenere premuto il pulsante del mouse e trascinare il mouse per creare un nuovo controllo casella di riepilogo. Fai clic su "Button" nel riquadro "Controlli" per aggiungere un nuovo pulsante per il modulo stesso modo si è aggiunto nella casella di riepilogo.

3 Right-click "Comando0" e selezionare "Proprietà". Fare clic sulla scheda "Evento" e selezionare "[Routine evento]" accanto a "Al clic". 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 SELECT. [ID impiegato],"

strSQL = strSQL e "Ordini. [ID cliente], Ordini. [Data Spedito],"

strSQL = strSQL e "Ordini. [nome della nave], Ordini. [indirizzo della nave]"

strSQL = strSQL & "FROM Ordini"

strSQL = strSQL & "WHERE (. ((Ordini [Nave Indirizzo]) = '123 8th Street'));"

Me.List0.RowSource = strSQL

Questo codice interrogherà la tabella "Ordini" e impostare il "origine riga" proprietà del controllo casella di riepilogo.

5 Tornare alla finestra di Microsoft Access e destro del mouse su "List0", quindi selezionare "Proprietà". Fare clic sulla scheda "Evento" e selezionare "[Routine evento]" accanto a "dopo l'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 ()":

DBS fiochi come database

Dim rst come Recordset

Dim SQLStr As String

Dim I As Integer

Set dbs = CurrentDb

Per I = 0 To Me! List0.ListCount

If Me!List0.Selected(I) Then

SQLStr = "Ordini SELECT. [Spedito Data] FROM Ordini"

SQLStr = SQLStr & ". DOVE Ordini [ID impiegato] =" & (! Me List0.ItemData (I)) & ";"

Set rst = dbs.OpenRecordset (SQLStr)

rst.MoveLast

rst.MoveFirst

Debug.Print "Spedito data per l'elemento selezionato:" & rst.Fields (0) .Value

rst.Close

Finisci se

Poi ho

dbs.Close

Questo codice mostrerà la "Data di consegna" 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." Fai clic su "Comando0" 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.