Bearbeiten Listenfeld Elemente in einer Microsoft Access -Datenbank-Anwendung wird nicht als einen Prozess kompliziert, wie man denken würde . Oder VBA - - In Access können Sie Visual Basic für Applikationen verwenden, um Ihnen helfen, Prozesse zu automatisieren , wie das Verschieben von Elementen aus einem Listenfeld in ein anderes. Die " AddItem "-Methode wird verwendet, um neue Elemente zu einem Listenfeld -Steuerelement hinzuzufügen . Die " ListCount " Eigenschaft bestimmt die Anzahl der Zeilen in einem Listenfeld , und die " RemoveItem " -Methode wird ein Element aus der Liste von Werten in einer Liste angezeigt. Anleitung
1
Klicken Sie auf " Erstellen" -Registerkarte, und klicken Sie auf " Formular-Entwurf . " Klicken Sie auf " List Box " auf der Controls- Fenster , und klicken Sie auf das Formular, um eine neue Liste -Steuerelement hinzuzufügen. Erstellen Sie eine zweite Listenfeld und eine Schaltfläche mit der gleichen Technik .
2
rechten Maustaste auf das erste Listenfeld klicken Sie auf " Eigenschaften" und klicken Sie auf die Registerkarte "Daten" . Wählen Sie " Value List " neben Source Type Reihe. Machen Sie dasselbe für das zweite Listenfeld .
3
rechten Maustaste auf die Form , klicken Sie auf " Eigenschaften " und wählen Sie "Form " unter " Auswahl Typ . " Klicken Sie auf die Registerkarte "Ereignis" und wählen Sie " [Event Procedure] " neben On Load . Klicken Sie auf den Schalter , um Form Load-Ereignis erstellen
4
Kopieren Sie den folgenden Code, um vier Punkte in das Listenfeld -Steuerelement hinzuzufügen : .
Me.List1.AddItem ( " Artikel 1 " )
Me.List1.AddItem ( " Artikel 2 ")
Me.List1.AddItem ( " Artikel 3 " )
Me.List1.AddItem ( " Artikel 4 ")
5
rechten Maustaste auf die Schaltfläche , klicken Sie auf " Build -Ereignis ", und wählen Sie" Code-Generator " auf eine Schaltfläche Click-Ereignis zu erstellen.
6
kopieren und fügen Sie den folgenden Code , um alle Elemente aus der ersten Liste zu verschieben , um das zweite Listenfeld , wenn die Schaltfläche geklickt wird :
Dim xCntr As Integer
Me.List4.SetFocus
< p> Für xCntr = 0 To Me.List1.ListCount - 1 of
Me.List4.AddItem ( Me.List1.ItemData ( xCntr ) )
Weiter xCntr
xCntr = 0 To Me.List1.ListCount - 1 of
Me.List1.RemoveItem (0)
Weiter xCntr
7
Schalter zurück auf die Microsoft Access-Datenbank Fenster , und klicken Sie auf "View" -Symbol auf dem Bereich Ansichten . Klicken Sie auf die Schaltfläche , um die Elemente aus dem ersten Listenfeld zum anderen zu bewegen .