Pass number range values to table from form

[janerussel]

I am trying to pass these values to a field in the underlying table. This doesn't seem to be working.

How would I write a CASE statement for this

If Forms!frmSrScreen.Age.Value < 75 Then
!VulnA = 0

ElseIf Forms!frmSrScreen.Age.Value > 84 Then
!VulnA = 3

Else: !VulnA = 1

End if

 

[ineuw]

Select Case Forms!frmSrScreen.Age.Value
Case Is < 75
!VulnA = 0
Case Is > 84
!VulnA = 3
Case Else
!VulnA = 1
End Select

Win2000P/Acc2000 - It's best to stay with products that work.