Come passare dati da un modulo In un Access Query

May 31

Come passare dati da un modulo In un Access Query


Saper utilizzare i controlli in un modulo e passare i 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 nelle interfacce utente grafica (GUI) per fornire all'utente una maggiore flessibilità di manipolare i dati. Un controllo casella di riepilogo è utile quando è necessario visualizzare i risultati delle query per l'utente. Visual Basic, Applications Edition (VBA) è un linguaggio di programmazione utilizzato per automatizzare le attività di routine in Access e altre applicazioni di MS Office.

istruzione

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

2 Selezionare la scheda "Crea" e "Form Design" per creare un nuovo modulo. Fai clic su "Casella combinata" nel riquadro "Controlli", quindi fare clic sul modulo e trascinare il mouse per creare un nuovo controllo casella combinata. Fai clic su "Button" nel riquadro "Controlli" e aggiungere un nuovo pulsante al form. Selezionare "List Box" e aggiungere un nuovo controllo casella di riepilogo al form.

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". Premere il tasto "Ctrl" e "A" e premere il tasto "Elimina" per rimuovere tutto il codice esistente.

4 Copiare e incollare il seguente codice al nuovo modulo. Il codice utilizza la tabella "Impiegati" per informazioni.

Option Compare Database

Private Sub Command0_Click ()

Dim strSQL As String

Dim nameSelected As String

Me.Combo0.SetFocus

nameSelected = Me.Combo0.Text

strSQL = "SELECT dipendenti. [Professione], dipendenti. [Indirizzo e-mail]"

strSQL = strSQL & "FROM Impiegati"

strSQL = strSQL & "WHERE (((Lavoratori [Cognome]) =. '" & (nameSelected) & "'));"

Me.List0.RowSourceType = "Tabella / query"

Me.List0.RowSource = strSQL

End Sub

Private Sub Form_Load ()

Me.List0.ColumnCount = 2

Me.Combo0.RowSourceType = "Tabella / query"

Me.Combo0.RowSource = "SELECT dipendenti [Cognome] FROM Impiegati;".

End Sub

5 Chiudere la finestra "Microsoft Visual Basic" e fare clic destro "Form1", quindi selezionare "Visualizza come modulo." Selezionare un cognome dal controllo casella combinata. Fai clic su "Comando0" per visualizzare le informazioni sui dipendenti nel controllo casella di riepilogo in base all'ultimo nome selezionato.


Articoli Correlati