Help with group option VBA coding

[rafpac]

Hi,

I work at a customer contact center. Our data analyst has recently quit the business. We use Access 2003.

We are working to update our quality marking sheet. Our quality marking sheet is a form with the calculation code written on VBA by previous analyst.

We currently have three options you can select from:

"yes" (Temp_Value = 2)
"no" (Temp_Value = 1)
"N/A" (Temp_Value = 0)

Here is the code pertaining to each of the individual areas:
Case "fra_1"
If Temp_Val > 0 Then
Perfect_Score = Perfect_Score + 1
Proc_Per = Proc_Per + 1
If Temp_Val = 1 Then
Hold_Sum = Hold_Sum + 0
Else
Hold_Sum = Hold_Sum + 1
Proc = Proc + 1
End If
End If


Now the options mean:
If you select "Yes" this means the criteria has been met and 1 point is awarded against 1 point
If you select "No" this means the criteria has not been met and 0 point is awarded against 1 point.
If you select "N/A" this means it does not affect total points so the overall percentage is not affected.

What we want is to add a fourth option "Bonus" this means criteria has been met and an additional point is awarded meaning 2 points is awarded against 1 point.

Using the original coding as reference I am unable to achieve this. I have done a quick short class on Access 2010 and have no idea on how VBA coding works. If anyone else can give me an idea how to write the new code I would really appreciate it.

If you have taken the time to read this whether you can help or not I still tahnk you for your effort!

 

[stepone]

Can you give the entire code from the 'SELECT.... ' statement to the 'END SELECT' ?

Basically you will need to add a fourth option 'Bonus' which sets Temp_Val to 3. You'll then need to add another IF statement below what you already have ;

If Temp_Val = 3 Then
	Hold_Sum = Hold_Sum + 2
	(Proc = Proc + ??) ??????   <--- need more info
End If

I don't know what 'Proc' is used for , so I can't tell whether you need to adjust its value or not.