G
Guest
The debug stops on the first "Case Is = 1 to 20000" line:
Private Sub PopulationBracket_BeforeUpdate(Cancel As Integer)
Select Case Nz(CountyPopulation, CityPopulation)
Case Is = 1 to 20000
Result = 1
Case Is 20001 to 40000
Result = 1.5
Case Is 40001 to 100000
Result = 2.5
Case is 100001 to 200000
Result = 3
Case Else
Result = 3.5
End Select
Me.txtPopulationBracket = Result
Can you help? Thanks
Private Sub PopulationBracket_BeforeUpdate(Cancel As Integer)
Select Case Nz(CountyPopulation, CityPopulation)
Case Is = 1 to 20000
Result = 1
Case Is 20001 to 40000
Result = 1.5
Case Is 40001 to 100000
Result = 2.5
Case is 100001 to 200000
Result = 3
Case Else
Result = 3.5
End Select
Me.txtPopulationBracket = Result
Can you help? Thanks