Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come programmare con select con Visual Basic in Microsoft Access

E 'possibile programmare l'utilizzo di " if ... else " dichiarazioni nell'applicazione Access utilizzando Visual Basic per le applicazioni , ma si può avere un programma più pulito utilizzando " SELECT ... CASE " dichiarazioni , invece . Questa istruzione esegue uno dei diversi gruppi di istruzioni a seconda del valore della espressione di test . L'espressione test più comune è un numero intero o una variabile stringa . Se il valore di espressione di controllo corrisponda all'etichetta caso allora il codice successiva all'etichetta caso verrà eseguito. Istruzioni
1

Clicca su "Strumenti Database " e cliccare su " Visual Basic " per avviare l'editor di Visual Basic. Fai clic sul menu "Inserisci" e fare clic su "Modulo " per aggiungere un nuovo modulo
2

Copia e incolla il seguente per avviare una nuova sub e creare le variabili che si intende utilizzare nel vostro Select Case . :

selectstatement private Sub ( ) per

Dim expressionStr As String Dim

expressionInt As String

expressionStr = "3"

expressionInt = 1
3

Copia e incolla il seguente codice per creare una nuova Select Case con un'espressione di test String :

Select Case expressionStr

caso " 1 "

Debug.Print ( " caso 1 " ) per

Case" 2 "

Debug.Print ( " caso 2 " ) per

caso " 3 "

Debug.Print ( " caso 3 " ) per

End Select
4

Copia e incolla il seguente codice per creare un nuovo Select Case con un espressione di test integer :

Select Case expressionInt

caso 1

Debug.Print ( " caso 1 " ) per

caso 2

Debug.Print ( " caso 2 " ) per

caso 3

Debug.Print ( " caso 3" ) per

End Select
5

copiare e incollare il seguente codice per creare una nuova Select Case che metterà alla prova un'espressione intera e controlli per il suo valore in una singola istruzione Case:

Select Case expressionInt

caso 1 , 2 < br

Debug.Print > ( " caso 1 o 2" ) per

caso 3

Debug.Print ( " caso 3" ) per

End Select
Pagina 6

Concludere la procedura digitando "End Sub " alla fine e premere il tasto "Ctrl " e "G" per visualizzare la finestra immediata. Premere il tasto " F5 " per eseguire la procedura e visualizzare i risultati .

 

software © www.354353.com