January 28
Avere la conoscenza su come creare e utilizzare forme avanzate in Microsoft Office Access possono rendere le applicazioni di database più potenti. È possibile creare facilmente un form utilizzando la Creazione guidata Maschera ma non sarà sempre ottenere i risultati desiderati. Hai la possibilità di aggiungere diversi controlli al form quando si crea manualmente. Inoltre, è possibile scrivere Visual Basic, Applications Edition (VBA) per eseguire i processi dietro quei controlli. Visual Basic, Applications Edition (VBA) è un linguaggio di programmazione utilizzato per automatizzare le attività di routine in Access e altre applicazioni di MS Office.
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 combinata" nel riquadro "Controlli" poi a sinistra del mouse il modulo e trascinare 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 "On Click". 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 caricherà il controllo casella combinata con cognome dalla tabella "Prodotto".
Option Compare Database
Private Sub Command2_Click ()
Dim SQLStr As String
Dim prductSelected As String
Me.Combo3.SetFocus
prductSelected = Me.Combo3.Text
SQLStr = "SELECT Products. [Nome del prodotto], Products. [Listino]"
SQLStr = SQLStr e "FROM Products"
SQLStr = SQLStr & "WHERE (. ((Products [Nome di prodotto]) = '" & (prductSelected) & "'));"
Me.List0.RowSourceType = "Tabella / query"
Me.List0.RowSource = SQLStr
End Sub
Private Sub Form_Load ()
Me.List0.ColumnCount = 2
Me.Combo3.RowSourceType = "Tabella / query"
Me.Combo3.RowSource = "SELECT Products [Nome del prodotto] FROM Products;".
End Sub
5 Chiudere la finestra "Microsoft Visual Basic" e fare clic destro "Form1", quindi selezionare "Visualizza come modulo". Selezionare un Produrre nome dal controllo casella combinata. Fai clic su "Comando0" per visualizzare Listino nel controllo casella di riepilogo in base al nome del prodotto selezionato.