Tablodaki Verilerini Form Üzerinden Hesaplamak

Merhaba arkadaşlarım,

[img]

form üzerinden tablodaki veriyi güncellemek istiyorum,
güncellenecek alan: TUKETIM_MIKTARI   alanı

eğer TURU=g/lt ise     ORAN*6*KG
eğer TURU=g/kg ise     ORAN*KG
olacak.

eğer sadece bu 2 seçenek varsa -g/lt ve g/kg- aşağıdaki kod işinize yarayabilir

Private Sub HESAPLA_Click()

xSQL = "UPDATE VERI_TABLOSU " & _

       "SET VERI_TABLOSU.TUKETIM_MIKTARI = IIf([VERI_TABLOSU]![TURU]=""g/lt""," & _

       "[VERI_TABLOSU]![ORAN]*[VERI_TABLOSU]![KG]*6," & _

       "[VERI_TABLOSU]![ORAN]*[VERI_TABLOSU]![KG]);"

CurrentDb.Execute xSQL

End Sub

çok teşekkür ederim.