Calculate Grade

[DCV0204]

I have a form that contains following:
text box called "GBox"
text box called "CalGrade"
Button called "Button1"


Button called "Reset"

I am wanting to key in a numeric grade in GBox, click on Button1 and a letter grade appear in CalGrade.

Here is what I have so far:
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim GBox AsInteger
Dim CalGrade AsString
If GBox >= 90 Then
CalGrade = "A"
ElseIf GBox >= 80 Then
CalGrade = "B"
ElseIf GBox >= 70 Then
CalGrade = "C"
ElseIf GBox >= 60 Then
CalGrade = "D"
Else : CalGrade = "F"
EndIf
EndSub

can someone help.
Thanks.

[John_G]

Hi -

Remove the Dim GBox as integer and Calgrade as String lines. They cause Access to use local (to the sub) variables called GBox and Calgrade instead of the form Text Boxes.

You can do away with Button1 by putting your code in the After Update event of Gbox, so that the Calgrade text box will be updated automatically each time you tyoe a value in GBox.

John

[DCV0204]

I am actually writing this in VB Studio.
Removing those causes error.

Can you help?

[John_G]

Sorry, no. I'm not very familiar with at. I was wondering what the odd syntax on the first line was!

J.

[DCV0204]

ok thanks.