Wie Programm Mit Select -Anweisungen mit Visual Basic in Microsoft Access

Mitglieder-Login

InformationenMicrosoft Access

Wie man eine Excel -Knopf Erstellen… Microsoft Excel ist ein beliebtes Tabellenkalkulation . Weil es Teil der Microsoft Office Suite ist
Microsoft Office Excel ein Software… Wie man eine Spalte in Microsoft Excel einfügen . Excel kann der Anwender zu analysieren und Informa
Wie man ein Word-Dokument in Excel … Microsoft Excel-Tabellen sind nützliche Werkzeuge für Knirschen Zahlen und Berechnungen zeigt , währ
Wie man ein Log mit Microsoft Excel… Tabellenkalkulationsprogramme wie Microsoft Excel 2005 kann für eine Vielzahl von administrativen An

Software

HOME

* Computer Wissen >> Software >> Microsoft Access >> .

Wie Programm Mit Select -Anweisungen mit Visual Basic in Microsoft Access

Sie können programmieren mit " if ... else "-Anweisungen in Ihre Access-Anwendung mit Visual Basic für Applikationen , aber Sie können eine sauberere Programm mit "select ... case " haben Aussagen statt . Diese Aussage läuft eine von mehreren Gruppen von Aussagen in Abhängigkeit vom Wert des Tests Ausdruck . Die häufigste Testausdrucks eine ganze Zahl oder eine Zeichenfolge variabel. Wenn der Testausdruck Wert entspricht dem Fall Etikett dann wird der Code nach dem Fall Etikett ausgeführt wird. Anleitung
1

Klicken Sie auf " Database Tools " und klicken Sie auf " Visual Basic ", um den Visual Basic -Editor zu starten . Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Module" ein neues Modul hinzufügen
2

Kopieren Sie den folgenden , um einen neuen Sub starten und die Variablen, die Sie in Ihrem Select Case-Anweisung verwenden. :

private Sub SelectStatement () Dim

expressionStr As String Dim

expressionInt As String

expressionStr = "3"

expressionInt = 1
3

Kopieren Sie den folgenden Code , um eine neue Select Case -Anweisung mit einem String -Test Ausdruck zu erstellen :

Select Case expressionStr

Fall " 1 "

Debug.Print ( " Fall 1 " )

Fall" 2 "

Debug.Print ( " Case 2 ")

Fall" 3 "

Debug.Print ( " Fall 3 " )

End Select
4

Kopieren Sie den folgenden Code , um eine neue Select Case-Anweisung mit einem erstellen Integer Testausdruck :

Select Case expressionInt

Fall 1

Debug.Print ( " Fall 1 " )

Fall 2

Debug.Print ( "Case 2")

Fall 3

Debug.Print ( " Fall 3 " )

End Select
5

Kopieren Sie den folgenden Code , um eine neue Select Case-Anweisung , die einen Integer-Ausdruck und prüft für ihr Wert testen in einem einzigen Case-Anweisung zu erstellen :

Select Case expressionInt

Fall 1 , 2

Debug.Print ( "Case 1 oder 2")

Fall 3

Debug.Print ( " Fall 3 " )

End Select
Seite 6

Beenden Sie Ihre Verfahren durch Eingabe von " End Sub " am Ende , und drücken Sie "Strg" und "G" , um das Direkt -Fenster anzuzeigen. Drücken Sie "F5" um die Prozedur auszuführen und die Ergebnisse anzuzeigen.