Sapere come utilizzare i controlli in un form e passare valori da questi controlli a una query consente di risparmiare tempo quando si lavora con i database . Microsoft Office Access è un sistema di gestione di database relazionali comunemente usato per i database più piccoli . Una casella combinata è un controllo utilizzato in interfacce grafiche utente ( GUI) per fornire all'utente una maggiore flessibilità per manipolare i dati . Un controllo casella di riepilogo è utile quando è necessario per visualizzare i risultati delle query per l'utente. Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione per computer utilizzato per automatizzare le attività di routine in Access e altre applicazioni di MS Office . Cose che ti serviranno
Microsoft Office Access
Show More Istruzioni
1

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

Selezionare la scheda " Crea" e "Progettazione Form" per creare un nuovo modulo . Fare clic su " Casella combinata ", nel riquadro " Controls " , quindi fare clic su modulo e trascinare il mouse per creare un nuovo controllo casella combinata . Fare clic su "Pulsante" nel riquadro " Comandi " e aggiungere un nuovo pulsante al form . Selezionare " Casella di riepilogo " e aggiungere un nuovo controllo casella di riepilogo al form.
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 " . Premere il tasto " Ctrl " e "A " e premere " Elimina" per rimuovere tutto il codice esistente .
4

Copia e incolla il seguente codice nel nuovo modulo . Il codice utilizza la tabella " Impiegati " per informazioni .

Option Compare Database

Private Sub Command0_Click ( ) per

Dim strSQL As String Dim

nameSelected As String

Me.Combo0.SetFocus

nameSelected = Me.Combo0.Text

strSQL = "Dipendenti selezionare. [ Professione ] , Lavoratori . [ Indirizzo e-mail ] "

strSQL = strSQL & " FROM Impiegati "

strSQL = strSQL & " WHERE ( ( ( Employees. [ Cognome ] ) = ' " & ( nameSelected ) &" ' ) ) , "

Me.List0.RowSourceType =" Tabella /query "

Me.List0.RowSource = strSQL

End Sub

private Sub Form_Load ( ) per

Me.List0.ColumnCount = 2

Me.Combo0.RowSourceType = " Tabella /query "

Me.Combo0.RowSource = "Dipendenti selezionare. [ Cognome ] FROM Impiegati ; "

End Sub
5

chiudere la " finestra " e fare clic destro " Microsoft Visual Basic Form1 ", quindi selezionare" Visualizza come modulo " . Selezionare un cognome dal controllo casella combinata . Fare clic su " Command0 " per visualizzare le informazioni sui dipendenti nel controllo casella di riepilogo in base al cognome che hai selezionato .