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
eğer sadece bu 2 seçenek varsa -g/lt ve g/kg- aşağıdaki kod işinize yarayabilir