Accesste Çarpma

Merhabalar


Metın kutusu = Km
Metın kutusu=Oran
Metın kutusu= km×oran

Şeklinde accesste çarpma işlemi yapmak istiyorum.Ancak;

Burada oran adlı kutuya km kutusundaki sayının 400 dahil 1.6 
800 dahil 1.4
1200 dahil 1.2
1200 üstü 1.0 oranını otomatik attırmak istiyorum exelde buna benzer kodlar var accesste mümkün mü?

Private Sub Metin1_AfterUpdate()
Dim snc1 As Double, snc2 As Double, snc3 As Double
If Me.Dirty Then Me.Dirty = False
snc1 = Me.Metin1
Select Case snc1
Case 0 To 400
snc2 = 1.6
Case 401 To 800
snc2 = 1.4
Case 801 To 1200
snc2 = 1.2
Case Is > 1200
snc2 = 1
End Select
Me.Metin2 = snc2
snc3 = snc1 * snc2
Me.Metin3 = snc3
End Sub