Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Grading 3
- Thread starter cantech2
- Start date
-
1
- #2
Hi,
Do you mean "... depending on the value in the score field" - this would make more sense.
If this is the case, right click on the score field, choose Build Event then Code Builder.
You will end up with something like
Private Sub txtScore_BeforeUpdate (Cancel As Integer)
End Sub
On the right hand drop down box, change BeforeUpdate to AfterUpdate, and the following lines will come up:
Private Sub txtScore_AfterUpdate ()
End Sub
You can delete the earlier lines as it is not needed in this case, and put the following code in between the lines:
You will need to change in the code:
txtScore to the name of the textbox that holds the score.
txtGrade to the name of the textbox that holds the grade.
You may also want to change the ratings that give different scores.
John
Do you mean "... depending on the value in the score field" - this would make more sense.
If this is the case, right click on the score field, choose Build Event then Code Builder.
You will end up with something like
Private Sub txtScore_BeforeUpdate (Cancel As Integer)
End Sub
On the right hand drop down box, change BeforeUpdate to AfterUpdate, and the following lines will come up:
Private Sub txtScore_AfterUpdate ()
End Sub
You can delete the earlier lines as it is not needed in this case, and put the following code in between the lines:
Code:
Dim intScore As Integer
If IsNumeric (txtScore) Then
intScore = Val (txtScore)
Select Case intScore
Case 1 To 40
txtGrade = "F"
Case 41 To 50
txtGrade = "E"
Case 51 To 60
txtGrade = "D"
Case 61 To 70
txtGrade = "C"
Case 71 To 80
txtGrade = "B"
Case 81 To 100
txtGrade = "A"
Case Else
txtGrade = "Invalid"
End Select
Else
MsgBox "Score is not a numeric value"
End IfYou will need to change in the code:
txtScore to the name of the textbox that holds the score.
txtGrade to the name of the textbox that holds the grade.
You may also want to change the ratings that give different scores.
John
- Thread starter
- #3
Dear Jrbarnett,
thanks for your last response. Was wonderful.
Next issue:
I could implement the event on the form. However, the grades do not show up on a report and I dont see the option to build an event there. How can I get the grades to function in a report.
Thanks,
Cantech2
thanks for your last response. Was wonderful.
Next issue:
I could implement the event on the form. However, the grades do not show up on a report and I dont see the option to build an event there. How can I get the grades to function in a report.
Thanks,
Cantech2
Then you'll need to do it in a query. Something like:
IIF([ScoreFieldName] < 60, "F", iif([ScoreFieldName] < 70, "D", iif([ScoreFIeldName] < 80, "C", iif([ScoreFieldName] < 90, "B", iif([ScoreFieldName] <= 100, "A", "Invalid Score"
))))
Some SQL supports Case Statements, but I don't think Access does (sure would be nice!!).
HTH
Leslie
IIF([ScoreFieldName] < 60, "F", iif([ScoreFieldName] < 70, "D", iif([ScoreFIeldName] < 80, "C", iif([ScoreFieldName] < 90, "B", iif([ScoreFieldName] <= 100, "A", "Invalid Score"
))))Some SQL supports Case Statements, but I don't think Access does (sure would be nice!!).
HTH
Leslie
-
2
- #6
CajunCenturion
Programmer
This also looks like a good canidate for the oft overlooked Switch function
And this function can be used in a ControlSource, something like the following:
Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein
Code:
Grade = Switch(Score < 60, "F", _
Score >= 60 And Score < 70, "D", _
Score >= 79 And Score < 80, "C", _
Score >= 80 And Score < 90, "B", _
Score > 89, "A")
Code:
=Switch([txtScore]<60,"F",[txtScore]>=60 And [txtScore]<70,"D",[txtScore]>=70 And [txtScore]<80,"C",[txtScore]>=80 And [txtScore]<90,"B",[txtScore]>89,"A")Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein
- Thread starter
- #7
CajunCenturion
Programmer
You're quite welcome cantech2.
Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein
Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein
- Thread starter
- #9
Next question:
Now, on the same report, assume Jack, Jill and Bill are in a class and they all take Chemistry. Jack has 70% with grade A, Jill has 45% with grade D and Bill has 65% with grade B. Each of them has their reports on a separate page because I asked for a page break after each students details. The scores and grading work fine.
My question is, how do I make a field called POSITION to show that Jack was 1st, Jill was 3rd and Bill was 2nd so that I can easily print each students report. And if 2 students have the same score, they should have same position.
Now, on the same report, assume Jack, Jill and Bill are in a class and they all take Chemistry. Jack has 70% with grade A, Jill has 45% with grade D and Bill has 65% with grade B. Each of them has their reports on a separate page because I asked for a page break after each students details. The scores and grading work fine.
My question is, how do I make a field called POSITION to show that Jack was 1st, Jill was 3rd and Bill was 2nd so that I can easily print each students report. And if 2 students have the same score, they should have same position.
- Status