Wie man Daten aus einem Formular in ein Abfrage- Access-Pass . Microsoft Office Access ist ein relationales Datenbank -Management-System häufig für kleinere Datenbanken verwendet. Ein Combo-Box ist eine Kontrolle in Graphical User Interfaces ( GUI) verwendet, um dem Benutzer mehr Flexibilität , um Daten zu manipulieren bieten . Ein Listenfeld-Steuerelement ist nützlich, wenn Sie Abfrage-Ergebnisse für den Benutzer anzuzeigen benötigen . 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
brauchen anzeigen Weitere Anweisungen
1
Öffnen Sie die Nordwind Microsoft Office Access-Datenbank. Die Nordwind-Datenbank wird der Microsoft Office-Suite enthalten.
2
Wählen Sie die Schaltfläche "Erstellen " und "Form Design" , eine neue Form zu schaffen. Klicken Sie auf " Combo Box " auf der "Controls" Fenster klicken Sie dann auf das Formular , und ziehen Sie die Maus, um ein neues Kombinationsfeld-Steuerelement 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 den Schalter (... ), 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 Tabelle "employees" für Informationen zu nutzen.
Option Compare Database
Private Sub Command0_Click () Dim
strSQL As String Dim
nameSelected As String
Me.Combo0.SetFocus
nameSelected = Me.Combo0.Text
strSQL = "SELECT Mitarbeiter . [ Berufsbezeichnung ] , Mitarbeiter . [E -Mail- Adresse ] "
strSQL = strSQL & " FROM Employees "
strSQL = strSQL & " WHERE ((( Employees. [ Nachname ]) = '"& ( nameSelected ) &" ')) ; "
Me.List0.RowSourceType =" Table /Query "
Me.List0.RowSource = strSQL
End Sub