Case

If-Then-Else, VBA statement.

Syntax
      Select Case test_expression
         Case condition_1
           result_1
         Case condition_2
           result_2
         ...
         Case condition_n
           result_n
       [ Case Else
           result_else ]
      End Select
Key
   test_expression  An expression returning a string or numeric value. 
                    This value will be compared to the list of conditions.

   condition_n      Conditions are evaluated in the order listed.
                    Once a condition is found to be true, the corresponding code
                    will be executed and no further conditions will be evaluated.

   result_n         The code to be executed when a condition is met.

Comparison operators: Less than <, Less than or equal to <=, Greater than >, Greater than or equal to >=, Not equal <>, Equal =
Range comparison can also be done: 1 To 10 or 500 To 600
or the comparison may be a comma separated list of items: 2,4,6,8,10 or "Jan", "Feb", "Mar"

Example

Dim intVoltage as Integer
Dim strDescription as String

intVoltage = Me.txtVoltage

Select Case intVoltage
 Case 110
  strDescription = "Domestic"
 Case 220,240
  strDescription = "European"
 Case 600
  strDescription = "Industrial"
 Case Else
  strDescription = "Unknown"
End Select

MsgBox strDescription

“You see things; and you say 'Why?' But I dream things that never were; and I say 'why not?'” ~ George Bernard Shaw

Related:

Nz - Detect a NULL value.
If-Then-Else


© Copyright SS64.com 1999-2013
Some rights reserved