Voorwaarden en Lussen.

If Expressie die Waar of Vals is Then
                Doe iets als de expressie Waar is
            End If
            

Const strResultaat As String = "Het resultaat is....."
            Sub sAls1()
            If MsgBox("Wat kies je ?", vbQuestion + vbOKOnly, "maak keuze") = vbOK Then
                MsgBox "u koos OK!", vbInformation, strResultaat
            End If
            End Sub
            

If Expressie die Waar of Vals is Then
                Doe iets als de expressie Waar is
            Else
                Doe iets anders indien de Expressie niet waar is
            End If
            

Sub sAls2()
            Dim strBoodschap As String
            If MsgBox("Wat kies je ?", vbQuestion + vbOKCancel, "maak keuze") = vbOK Then
                strBoodschap = "u koos OK!"
            Else
                strBoodschap = "u koos Cancel"
            End If
            MsgBox strBoodschap, vbInformation, strResultaat
            End Sub
            

If Eerste Expressie die Waar of Vals is Then
                Doe iets als de eerste expressie Waar is en negeer volgende ElseIf
            ElseIf Tweede Expressie die Waar of Vals is Then
                Doe iets als de tweede expressie waar is en negeer volgende ElseIf
            ElseIf Derde Expressie die Waar of Vals is Then
                Doe iets als de Derde expressie waar is
            End If
            

Sub sAls3()
            Dim intKeuze As Integer
            Dim strBoodschap As String
            intKeuze = MsgBox("Wat kies je ?", vbQuestion + vbYesNoCancel, "maak keuze")
                If intKeuze = vbYes Then
                    strBoodschap = "u koos Yes!"
                ElseIf intKeuze = vbNo Then
                    strBoodschap = "u koos No"
                ElseIf intKeuze = vbCancel Then
                    strBoodschap = "u koos Cancel"
                End If
            MsgBox strBoodschap, vbInformation, strResultaat
            End Sub
            

vertoont veel gelijkenis met voorgaande If Then ElseIf Then End If
            maar is overzichtelijk en beter als er veel condities moeten getest worden
            Select case
                Case
                    voer actie uit indien waar en ga dan naar End Select
                Case
                    voer actie uit indien waar en ga dan naar End Select
                Case
                    voer actie uit indien waar en ga dan naar End Select
            ........enz
            End Select
            

Sub sSelect()
            Dim strBoodschap As String
            Dim varGegeven As Variant
            
            varGegeven = InputBox("voer willekeurig getal in", "Select Case voorbeeld")
            If IsNumeric(varGegeven) Then
                Select Case varGegeven
                    Case Is < 0
                        strBoodschap = "Het getal is kleiner dan nul"
                    Case Is = 0
                        strBoodschap = "Het getal is gelijk aan nul"
                    Case Is < 11
                        strBoodschap = "Het getal is tussen 1 en 10"
                    Case Is < 101
                         strBoodschap = "Het getal is tussen 11 en 100"
                    Case Is < 1001
                        strBoodschap = "Het getal is tussen 11 en 1000"
                    Case Is > 1000
                        strBoodschap = "Het getal is groter dan 1000"
                End Select
            Else
                strBoodschap = "u hebt geen getal ingegeven!"
            End If
             MsgBox strBoodschap, vbInformation, strResultaat
            End Sub
            

For int = 0 To 1000 (of eender ander geheel getal)
            Doe iets, hier wordt een conditie gecontroleerd en herhaal tot aan 1000 (of eender ander geheel getal)
            Next int
            Men kan zonodig de lus verlaten met een Exit For Statement
            

Sub sFor1(intTelTot As Integer, intDeelbaarDoor As Integer)
            Dim intTel As Integer
            Dim intDum As Integer
                For intTel = 1 To intTelTot
                    If intTel Mod intDeelbaarDoor = 0 Then
                        intDum = intDum + 1
                    End If
                Next intTel
            MsgBox " van 1 tot " & intTelTot & " zijn er " & intDum & vbCrLf & " getallen deelbaar door " & intDeelbaarDoor, vbInformation, strResultaat
            End Sub
            

For each
                Doe iets
            Next
            vertoont gelijkenis met voorgaande maar is vooral handig bij objecten en er moet geen limiet getal ingegeven worden
            Hier een voorbeeld met formulieren
            

Sub sFor2()
            Dim objAccess As Access.AccessObject
            Dim intTel As Integer
                For Each objAccess In CurrentProject.AllForms
                    Debug.Print objAccess.Name
                    intTel = intTel + 1
                Next
            MsgBox intTel & " formulieren", vbInformation, strResultaat
            End Sub
            

Do While of Until een bepaalde expressie waar is
                Doe iets
            Loop
            er moet geen limiet getal ingegeven worden en de lus wordt doorlopen
            tot de conditie waar is
            tussen in kan men bijkomende condities instellen en zonodig de lus verlaten met een Exit Do statement
            

Sub sDo1()
            Dim intIets As Integer
            Dim intStap As Integer
                intStap = 1000
                intIets = 1
                    Do While intIets > 0
                        intIets = intIets + 1
                            If intIets > intStap Then
                                If MsgBox(" wij zijn aan " & intIets & " Stoppen ?", vbInformation + vbYesNo) = vbNo Then
                                    intStap = intStap + 1000
                                        If intStap > 30000 Then
                                            MsgBox "nu moet je stoppen!", vbCritical + vbOKOnly, strResultaat
                                            Exit Do
                                        End If
                                Else
                                intIets = -1
                                End If
                            End If
                    Loop
            End Sub
            

            Sub sDo2()
            Dim intIets As Integer
            Dim intStap As Integer
                intStap = 1000
                intIets = 1
                Do Until intIets > 30000
                    intIets = intIets + 1
            
                            If intIets > intStap Then
                                If MsgBox(" wij zijn aan " & intIets & " Stoppen ?", vbInformation + vbYesNo) = vbNo Then
                                    intStap = intStap + 1000
                                        If intStap > 29000 Then
                                            MsgBox "nu moet je stoppen, ik verwittig niet meer!", vbCritical + vbOKOnly, strResultaat
                                            intIets = 30001
                                        End If
                                Else
                                intIets = 30001
                                End If
                            End If
                    Loop
            End Sub
            

Een variante op Do maar zelfde principe dus
            While een voorwaarde is waar
                doe iets
            Wend
            

Sub sWhile()
            Dim intTel As Integer
                While intTel > 30001
                    intTel = intTel + 1
                    If intTel = 30000 Then
                        MsgBox "wij zijn aan " & intTel & vbCrLf & "wij gaan stoppen!", vbCritical, strResultaat
                    End If
                Wend
            End Sub