Nachdem das Wissen darüber, wie die Erstellung und Verwendung fortgeschrittener Formen in Microsoft Office Access können Sie Ihre Datenbank-Anwendungen leistungsfähiger. Sie können sehr einfach ein Formular mit dem Formular-Assistenten , aber Sie werden nicht immer die gewünschten Ergebnisse. Sie haben die Flexibilität , um andere Steuerelemente zum Formular hinzufügen, wenn Sie es manuell erstellen. Darüber hinaus können Sie schreiben, Visual Basic for Applications (VBA) , um Prozesse hinter diesen Kontrollen auszuführen. Visual Basic für Applikationen (VBA ) ist eine Programmiersprache verwendet, um Routineaufgaben in Access und anderen MS Office-Anwendungen automatisieren. Things You
Microsoft Office Access
Northwind Database
brauchen anzeigen Weitere Anweisungen
1

Öffnen Sie die Nordwind Microsoft Office Access-Datenbank. Die Nordwind-Datenbank wird der Microsoft Office-Suite enthalten.
2

Klicken Sie auf " Erstellen " und wählen Sie "Form Design" , eine neue Form zu schaffen. Klicken Sie auf " Combo Box " auf der "Controls" Scheibe dann mit der linken Maustaste auf das Formular , und ziehen Sie , um eine neue Combo-Box -Steuerung zu erstellen. Klicken Sie auf " Taste" auf der "Controls" Fenster und fügen Sie eine neue Schaltfläche, um Ihre Form . Wählen Sie "List Box" und fügen Sie eine neue Listenfeld-Steuerelement auf das Formular.
3

rechten Maustaste auf " Command0 " und wählen Sie "Eigenschaften". Klicken Sie auf die Registerkarte "Ereignis" und wählen Sie " [Event Procedure] " neben "On Click" . Klicken Sie auf die Ellipse ("..." ), um die "Microsoft Visual Basic " Fenster zu öffnen. Drücken Sie "Strg " und " A" und drücken Sie "Löschen" , um alle vorhandenen Code zu entfernen.
4

Kopieren Sie den folgenden Code auf Ihre neue Modul . Der Code wird die Combo-Box -Steuerung mit Nachnamen aus dem "Produkt" Tabelle zu laden .

Option Compare Database

Private Sub Command2_Click () Dim

sqlstr As String

Dim As String

Me.Combo3.SetFocus

prductSelected prductSelected = Me.Combo3.Text

sqlstr = "SELECT Produkte . [Produktname] Produkte . [ Listenpreis ] "

sqlstr = sqlstr & " FROM Products "

sqlstr = sqlstr & " WHERE ((( products. [Produktname] ) = ' " & ( prductSelected ) &" ')); "

Me.List0.RowSourceType =" Table /Query "

Me.List0.RowSource = sqlstr
< p> End Sub