CASE Statement in access 2003 with Attachment

[sichilaba]

Hi

Find attacment of the CASE Statement on the attached database in Access 2003. Name of the database is Kent.

I have typed the code below in the StudentResult text box but it is not working. Please check out the attachment and help

Private Sub StudentResult_afterupdate ()
Dim StudentMark As Integer
Dim StudentResult As String

Select Case StudentMark.value
Case Is > 50
StudentResult = "Fail"
Case 51 To 60
StudentResult = "Pass"
Case 61 To 70
StudentResult = "Credit"
Case 71 To 80
StudentResult = "Merit"
Case 81 To 90
StudentResult = "Distinction"
End Select
End Sub

 

[Brianwarnock]

Why start a new thread when this post appears in the original and I have replied to it?

Brian

 

[DCrake]

You are duplicating your threads. This is not permitted.

Also you are cancelling out your mark value by dimming a variable of th same name
Private Sub StudentResult_afterupdate ()

Select Case Me.StudentMark
Case Is [COLOR="DarkRed"][B]< [/B][/COLOR]50
Me.StudentResult = "Fail"
Case 51 To 60
Me.StudentResult = "Pass"
Case 61 To 70
Me.StudentResult = "Credit"
Case 71 To 80
Me.StudentResult = "Merit"
Case 81 To 90
Me.StudentResult = "Distinction"
Case else
Me.StudentMark = "Not known"
End Select
End Sub

 

[sichilaba]

Thanks David. At least lam almost getting there....The first record displays the answer correctly but subsequent records displays nothing. How do l fix this?