My code:
Expand|Select|Wrap|Line Numbers
- Private Sub ComboBoxColor_AfterUpdate()
- On Error GoTo Err_Handler
- Dim strForm As String
- Select Case ComboBoxColor.Value
- Case "Color1"
- strForm = "Form1"
- Case "Color2"
- strForm = "Form2"
- Case "Color3"
- strForm = "Form3"
- Case Else
- MsgBox "I don't know what to do with this combobox value"
- GoTo Exit_Sub
- End Select
- DoCmd.OpenForm strForm, acNormal
- Exit_Sub:
- Exit Sub
- Err_Handler:
- MsgBox Err.Description, vbExclamation, "Error " & Err.Number
- Resume Exit_Sub
- End Sub