saya coba ini, sukses :Private Sub cmbJenis_AfterUpdate() If Trim(cmbJenis) = "Kotak" Then Me.txtJumlah.Value = Me.txtPanjang.Value * Me.txtLebar.Value * Me.txtTinggi.Value End If End Sub
Salam, Edi Rosadi http://edirosadie.blogspot.comhttp://cilegonmap.blogspot.com http://cilegonan.wordpress.com komersilkan blog atau website anda dengan bergabung di sini atau di sini --- On Fri, 14/8/09, nadhif_fakhri <[email protected]> wrote: From: nadhif_fakhri <[email protected]> Subject: [belajar-access] Perkalian menggunakan filter dan if....? To: [email protected] Date: Friday, 14 August, 2009, 4:30 PM siang semua, saya mau bikin perhitungan menggunakan access (VBA) tapi berdasar kan field jenis, gimana caranya ya, saya coba begini kok gak jalan ... Private Sub Jenis_Change( ) If Jenis = "Kotak" Then Me![Jumlah] = CDbl(Panjang) * CDbl(Lebar) * CDbl(tingi) End If End Sub file terlampir. Terima kasih Best regards, nadhif_fakhri mailto:nadhif_fakhri@ yahoo.co. uk New Email names for you! Get the Email name you've always wanted on the new @ymail and @rocketmail. Hurry before someone else does! http://mail.promotions.yahoo.com/newdomains/sg/
