更改 IF Else 条件值以从表中获取

Question

除了在 MS access vba 中硬编码分数和成绩外，我如何将值放在表中并从表中访问它们？这样当分数范围发生变化时，我就不必回到 vba 代码并更新它。我只是更新表中的值，代码只会拾取分数范围并在字段上分配正确的成绩。请帮忙...

Private Sub MarkScored_Exit(Cancel As Integer)
Dim mScore As Integer

mScore = Nz(Forms![frmAssessmentDetails]![subfrmAcademicAssessment]![MarkScored])

If mScore >= 0 And mScore <= 10 Then
    Forms![frmAssessmentDetails]![subfrmAcademicAssessment]![cboGradeCode] = "VLA"
ElseIf mScore > 10 And mScore <= 15 Then
    Forms![frmAssessmentDetails]![subfrmAcademicAssessment]![cboGradeCode] = "LA"
ElseIf mScore > 15 And mScore <= 20 Then
    Forms![frmAssessmentDetails]![subfrmAcademicAssessment]![cboGradeCode] = "S"
ElseIf mScore > 20 And mScore <= 25 Then
    Forms![frmAssessmentDetails]![subfrmAcademicAssessment]![cboGradeCode] = "HA"
ElseIf mScore > 25 And mScore <= 30 Then
    Forms![frmAssessmentDetails]![subfrmAcademicAssessment]![cboGradeCode] = "VHA"
Else
    MsgBox "Please enter valid mark for Score between 0 and 30", vbOKCancel, "Invalid Number"

End If

结束子

Answer 1

我建议在数据库中创建一个新表，例如

|ID| gradeCode | fromScore | toScore|
 0   VLA         0           10
 1   LA          11          15
 2   S           16          20

然后在代码中查询

Select gradeCode from <gradeCodeTableName> where mScore between fromScore and toScore

编辑：正如 Gustav 建议的那样，在不浪费资源的情况下，更好的方法是创建像

这样的表

|ID| gradeCode | fromScore |
 0   VLA         0           
 1   LA          11          
 2   S           16          

然后像这样查询

Select Top 1 gradeCode From <gradeCodeTableName> Where mScore >= fromScore Order By fromScore Desc

您将保存 1 列数据