Accesste Çarpma - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Accesste Çarpma (/konu-accesste-carpma.html) |
Accesste Çarpma - MTGK - 14/03/2022 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ü? RE: Accesste Çarpma - mozuer - 18/03/2022 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 |