Davidwazza
Programmer
Hey All
I have been having some trouble with this grading program again.
Here it is thus far:
'Functions corresponding to each grade
Private Sub UpdateARIGrade()
Select Case ([intARI] \ 1) '<-- integer division
Case Is >= 90
Me![ARIgrade] = "D"
Case 80 To 89
Me![ARIgrade] = "C"
Case 55 To 79
Me![ARIgrade] = "P"
Case Else
Me![ARIgrade] = "F"
End Select
End Sub
... I need to ensure that if the cell "ARIgrade" is null, it won't display anything. I thought of putting
Case Null
Me![ARIgrade] = " "
just before case else, but this doesnt seem to be workin.
Thanx in advance, David.
I have been having some trouble with this grading program again.
Here it is thus far:
'Functions corresponding to each grade
Private Sub UpdateARIGrade()
Select Case ([intARI] \ 1) '<-- integer division
Case Is >= 90
Me![ARIgrade] = "D"
Case 80 To 89
Me![ARIgrade] = "C"
Case 55 To 79
Me![ARIgrade] = "P"
Case Else
Me![ARIgrade] = "F"
End Select
End Sub
... I need to ensure that if the cell "ARIgrade" is null, it won't display anything. I thought of putting
Case Null
Me![ARIgrade] = " "
just before case else, but this doesnt seem to be workin.
Thanx in advance, David.