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
Accesste Çarpma
| Bu Konudaki Yorumlar |
|
Accesste Çarpma - Yazar: MTGK - 14/03/2022, 16:17
RE: Accesste Çarpma - Yazar: mozuer - 18/03/2022, 08:19
|
Konuyu Okuyanlar: 1 Ziyaretçi
