Wie wird die Combo Box in einer Abfrage Access. Zum Beispiel , in Microsoft Access kann eine Combo-Box machen es einfacher für die Benutzer, Daten zu manipulieren. Verwenden der Visual Basic für Applikationen (VBA) Programmiersprache , können Sie eine Form zu machen, erstellen Sie eine Tabelle , und verwenden Sie dann die Tabelle, um Daten zu einem Kombinationsfeld hinzuzufügen. Anleitung
1

Starten Sie Microsoft Office Access 2007 , wählen Sie " Blank -Datenbank", und klicken Sie dann auf " Erstellen".
2

Klicken Sie auf den "Create "-Registerkarte, und wählen Sie dann "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 es an eine neue Combo-Box -Steuerung zu erstellen. Klicken Sie auf " Taste" auf der "Controls" Fenster, um eine neue Schaltfläche, um Ihre Form hinzufügen.
3

rechten Maustaste auf " Command0 ", und klicken Sie dann auf "Eigenschaften". Klicken Sie auf die Registerkarte "Ereignis" , und wählen Sie dann " [Event Procedure] " neben "On Click. " Klicken Sie auf den Schalter (... ), um die "Microsoft Visual Basic " -Fenster zu öffnen
4

Kopieren Sie den folgenden Code unter " Private Sub Command0_Click () ": .

Dim strSQL As String

strSQL = " CREATE TABLE dataTable ( ComboIndx NUMBER , rowData TEXT ); "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dataTable ( ComboIndx , rowData ) "

strSQL = strSQL & " VALUES (1, ' Row1 '); "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dataTable ( ComboIndx , rowData ) "

strSQL = strSQL & " VALUES (2, ' Row2 '); "

DoCmd.SetWarnings Falsch
< p> DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dataTable ( ComboIndx , rowData ) "

strSQL = strSQL & " VALUES (3, ' Row2 '); "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( strSQL )

strSQL = "Select dataTable . * vom dataTable "

strSQL = strSQL & "WHERE dataTable.rowData = ' Row2 '; "

Me.Combo0.RowSource = strSQL
5

Schalter zurück auf die Microsoft Access -Fenster mit der rechten Maustaste " Combo0 ", und klicken Sie dann auf " Eigenschaften . " Klicken Sie auf die Registerkarte "Ereignis" . Wählen Sie. [Event Procedure] " neben" Nach Update ". Klicken Sie auf den Schalter ( ...), um das Fenster" Microsoft Visual Basic "-Fenster.
6

Kopieren Sie den folgenden Code unter " Private Sub Combo0_AfterUpdate () ": Dim dbs

As Database Dim rst

Als Recordset

Dim comboString As Integer Dim

sqlstr As String
< p > Set dbs = CurrentDb

comboString = Me.Combo10.Text

sqlstr = "SELECT FROM dataTable.rowData dataTable "

sqlstr = sqlstr & "WHERE dataTable.ComboIndx = " & ( comboString ) & "; "

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

MsgBox" die Daten für diese Combo Index : Microsoft Visual " & rst.Fields (0 ) Wert

rst.Close

dbs.Close
7

Ende. " Basic " Fenster . rechten Maustaste auf" Form1 ", und klicken Sie dann auf " Form anzeigen . " Klicken Sie auf" Command0 ", um die Combo-Box mit Daten zu füllen .
8

Wählen Sie einen Wert aus der Combo-Box . Sie finden Sie die Daten für diesen Index in einer Message-Box zu sehen.