Tutorial auf MS Access fortgeschrittene Formen
Das Wissen über das Erstellen und verwenden Sie erweiterte Formulare in Microsoft Office Access kann Ihre Datenbankanwendungen mächtiger darstellen. Sie können problemlos erstellen eines Formulars mit dem Formular-Assistenten, aber Sie werden nicht immer die gewünschten Ergebnisse erhalten. Sie haben die Flexibilität, verschiedene Steuerelemente zum Formular hinzufügen, wenn Sie es manuell erstellen. Darüber hinaus können Sie Visual Basic für Applikationen (VBA) auszuführenden Prozesse hinter dieser Steuerelemente schreiben. Visual Basic für Applikationen (VBA) ist eine Computer-Programmiersprache, die zum Automatisieren von Routineaufgaben in Access und anderen MS Office-Anwendungen verwendet.
Anweisungen
1 Öffnen Sie die Microsoft Office Access-Datenbank. Die Northwind-Datenbank ist in der Microsoft Office-Suite enthalten.
2 Klicken Sie auf der Registerkarte "Erstellen" und wählen Sie "Formularentwurf" auf ein neues Formular erstellen. Klicken Sie "Kombinationsfeld" im Bereich "Steuerelemente" dann Linksklick Ihre Form und ziehen, um ein neues Kombinationsfeld-Steuerelement zu erstellen. Klicken Sie auf "Button" im Bereich "Steuerelemente" und das Formular eine neue Schaltfläche hinzugefügt. Wählen Sie "Listenfeld" und fügen Sie ein neues Listenfeld-Steuerelement dem Formular hinzu.
3 Maustaste "Command0" und wählen "Eigenschaften". Klicken Sie auf die Registerkarte "Ereignis" und wählen Sie "[Ereignisprozedur]" neben "Anklicken". Klicken Sie auf die Auslassungspunkte ("..."), um das Fenster "Microsoft Visual Basic" zu öffnen. Drücken Sie "Strg" und "A" und "Löschen", um alle vorhandenen Code zu entfernen.
4 Kopieren Sie und fügen Sie den folgenden Code in Ihr neues Modul. Der Code wird das Kombinationsfeld-Steuerelement mit Nachnamen aus der Tabelle "Product" geladen.
Option Compare Database
Private Sub Command2_Click()
Dim SqlStr As String
Dim PrductSelected As String
Me.Combo3.SetFocus
PrductSelected = Me.Combo3.Text
SqlStr = "ausgewählte Produkte. [Produktname], Produkte. [Listenpreis] "
SqlStr = SqlStr & "FROM Products"
SqlStr = SqlStr & "wo (((Produkte. [ Produktname]) ='"& (PrductSelected) &"')); "
Me.List0.RowSourceType = "Tabelle/Abfrage"
Me.List0.RowSource = SqlStr
EndSub
Private Sub Form_Load()
Me.List0.ColumnCount = 2
Me.Combo3.RowSourceType = "Tabelle/Abfrage"
Me.Combo3.RowSource = "ausgewählte Produkte. [Produktname] VON Produkten;"
EndSub
5 Schließen Sie das Fenster "Microsoft Visual Basic" und mit der rechten Maustaste "Form1" und wählen Sie dann "Formular anzeigen". Wählen Sie das Kombinationsfeld-Steuerelement einen Namen zu produzieren. Klicken Sie auf "Command0" Listenpreis in das Listenfeld-Steuerelement basierend auf dem ausgewählten Produkt angezeigt wird.