Tutorial sulle forme di MS Access avanzate

January 28

Tutorial sulle forme di MS Access avanzate


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.

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 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.