Louise has attended:
Access Advanced course
Access VBA course
Excel Pivot Tables course
Access VBA
I have inherited some VBA code and am trying to put it into 1 if statement (code below). Is this possible?
' change colour background on gad score 0
If Me.GAD71ScoreTotal = 0 Then
Me.GAD71Score0.BackColor = vbBlue
ElseIf Me.GAD71ScoreTotal = 1 Then
Me.GAD71Score0.BackColor = vbWhite
ElseIf Me.GAD71ScoreTotal = 2 Then
Me.GAD71Score0.BackColor = vbWhite
ElseIf Me.GAD71ScoreTotal = 3 Then
Me.GAD71Score0.BackColor = vbWhite
End If
'change colour background on gad score 1
If Me.GAD71ScoreTotal = 1 Then
Me.GAD71Score1.BackColor = vbBlue
ElseIf Me.GAD71ScoreTotal = 0 Then
Me.GAD71Score1.BackColor = vbWhite
ElseIf Me.GAD71ScoreTotal = 2 Then
Me.GAD71Score1.BackColor = vbWhite
ElseIf Me.GAD71ScoreTotal = 3 Then
Me.GAD71Score1.BackColor = vbWhite
End If
RE: Access VBA
Hi Louise, thanks for your query. I would use the Select Case expression to achieve this. More information here:
http://www.bettersolutions.com/vba/VNN529/LA011331611.htm
Hope this helps,
Anthony
