Avere le conoscenze su come creare e utilizzare forme avanzate in Microsoft Office Access può rendere le applicazioni di database più potente. È possibile creare facilmente un modulo utilizzando la creazione guidata maschera ma non otterrete sempre i risultati desiderati. Avete la flessibilità di aggiungere diversi controlli al Form quando è creare manualmente. Inoltre, è possibile scrivere Visual Basic for Applications (VBA) per eseguire i processi dietro quei controlli. Visual Basic for Applications (VBA) è un linguaggio di programmazione utilizzato per automatizzare le attività di routine in Access e altre applicazioni di MS Office.

Istruzioni

1

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

2

Fare clic sulla scheda "Crea" e selezionare "Modulo Design" per creare un nuovo modulo. Fare clic su "Casella combinata" nel riquadro "Controlli" poi sinistro del mouse il form e trascinare per creare un nuovo controllo casella combinata. Cliccare su "Pulsante" nel riquadro "Controlli" e aggiungere un nuovo pulsante al form. Selezionare "Casella di riepilogo" e aggiungere un nuovo controllo casella di riepilogo al form.

3

Pulsante destro del mouse "Command0" e selezionare "Proprietà". Fare clic sulla scheda "Eventi" e seleziona "[routine evento]" accanto a "Scegliere". Fare clic sui puntini di sospensione ("...") per aprire la finestra di "Microsoft Visual Basic". Premere "Ctrl" e "A" e premere "Cancella" per rimuovere tutto il codice esistente.

4

Copiare e incollare il seguente codice per il nuovo modulo. Il codice verrà caricato il controllo casella combinata con i cognomi dalla tabella "Product".

Option Compare Database

Private Sub Command2_Click()

Dim sqlStr As String

Dim prductSelected As String

Me.Combo3.SetFocus

prductSelected = Me.Combo3.Text

sqlStr = "selezionare i prodotti. [Nome prodotto], prodotti. [Listino prezzi] "

sqlStr = sqlStr & "Da prodotti"

sqlStr = sqlStr & "dove (((prodotti. [ Nome del 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 = "selezionare i prodotti. [Nome prodotto] DA prodotti;"

End Sub

5

Chiudere la finestra di "Microsoft Visual Basic" e fare clic destro "Form1" quindi selezionare "Visualizzazione maschera". Selezionare un nome di produrre dal controllo casella combinata. Fare clic su "Command0" per visualizzare il prezzo di listino nel controllo casella di riepilogo basato sul nome del prodotto selezionato.