Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub lstStatus_LostFocus()
On Error GoTo err_this
Select Case lstStatus.Value
Case "Apples"
lstStatus.ForeColor = vbRed
Case "Bananas"
lstStatus.ForeColor = vbYellow
Case "Grapes"
lstStatus.ForeColor = vbGreen
End Select
exit_this:
Exit Sub
err_this:
MsgBox Err.Description & " Error#: " & Err.Number
Resume exit_this
End Sub
[code]
Private Sub Form_Current()
On Error GoTo err_Form_Current
Select Case lstStatus.Value
Case "Apples"
Detail.BackColor = vbRed
Case "Bananas"
Detail.BackColor = vbYellow
Case "Grapes"
Detail.BackColor = vbGreen
End Select
exit_Form_Current:
Exit Sub
err_Form_Current:
MsgBox Err.Description & " Error#: " & Err.Number
Resume exit_Form_Current
End Sub
[code]
=IIf([strStatus]="Off",String$(20,"g"),"")
=IIf([strStatus]="On",String$(20,"g"),"")