Eine Funktion ist eine Programmiersprache Prozedur, die einen Wert zurückgibt. Sie können auch einen Wert, um ihn wie ein Verfahren . Die Funktionen sind in Microsoft Access mit Visual Basic für Applikationen ( VBA) Programmiersprache programmiert . VBA ist die Programmiersprache weitgehend für die Microsoft Office -Produkte verwendet. Aus Gründen der diesem Artikel werden wir die Schaffung einer einfachen Funktion, die das Listenfeld auf einem Formular erstellen wir löscht . Benötigen Sie , um die Grundlagen von Microsoft Access kennen , zu verstehen , wie einige zu tun Verfahren in diesem Artikel . Anleitung
Öffnen Sie das Programm
1
Öffnen Sie Microsoft Access und starten Sie eine neue leere Datenbank.
2
Klicken Sie auf " Formulare" Objekt auf der Symbolleiste Datenbank . Dies wird auf der linken Seite der Seite unter der "Objekte" Position befindet .
3
auf "Create Formular in der Entwurfsansicht " Doppelklick .
4 < p> in ein Listenfeld auf das Formular in der Entwurfsansicht. Wenn Sie dazu aufgefordert , anzugeben, dass Sie die Werte in automatisch Typs im Listenfeld Assistenten. Geben Sie in " Äpfel ", " Orangen ", " Zitronen " und " Bananas " für Ihre Listenelemente . Nennen Sie das Listenfeld " lstFruit " . Beenden Sie die Schritte für den Assistenten und bemerken, dass Ihr Listenfeld mit den Werten auf dem Formular. Machen Sie das Listenfeld in der Lage, mehrere Auswahlen aus dem Eigenschaften-Fenster zu machen.
5
eine Befehlsschaltfläche hinzu . Klicken Sie auf die Schaltfläche "Abbrechen" , wenn der Assistent gestartet . Diese Schaltfläche noch auf der Seite sein . Nennen Sie die Schaltfläche " cmdClear " und stellen Sie die " Caption" -Eigenschaft auf "Löschen" .
6
Öffnen Sie den Visual Basic -Fenster, indem Sie auf den "Code "-Symbol in der 'Form Design " Symbolleiste.
7
Typ in der folgenden Funktion im Code-Fenster : Funktion ClearList ( lst Wie ListBox ) As Boolean Dim varItem As Variant ; Wenn lst.MultiSelect = 0 Then lst = Null Else For Each varItem In lst.ItemsSelected lst.Selected ( varItem ) = False Next End If ClearList = True End Function Diese Funktion löscht die Auswahl aus einem Listenfeld , wenn sie aufgerufen . Für die Funktion funktioniert, müssen Sie es aufrufen und ein Listenfeld , um es
8
Rufen Sie die Funktion aus dem cmdClear_Click Verfahren wie folgt: . Private Sub cmd_Clear & # xD ; ClearList ( lstClear ) End Sub Wie Sie sehen können , nannten wir das " ClearList "-Funktion und übergeben unsere ' lstClear ' listbox es ; erzählt die Funktion , dass dies das listbox wir wollen zu bedienen ist.
9
Testen Sie Ihre Funktion , indem Sie auf das " CmdClear "-Button in 'Form ' view .
