Mas sudah ok nih terima kasih,
tapi ketika saya rubah ke pertambahan kok hasilnya salah..?
saya ganti seperti ini

Private Sub Pertama_AfterUpdate
Hasil.value=IIF(Not Isnull(Pertama) and Not Isnull(Kedua),Pertama + Kedua,"")
end sub

Gimana ya ?
Makasih
    

    
MBA> Pak Nadif,

MBA> Private Sub Kedua_AfterUpdate
MBA>  Hasil.value=IIF(Not Isnull(Pertama) and Not 
MBA> Isnull(Kedua),Pertama*Kedua,"")
MBA> end sub

MBA> Private Sub Pertama_AfterUpdate
MBA>  Hasil.value=IIF(Not Isnull(Pertama) and Not 
MBA> Isnull(Kedua),Pertama*Kedua,"")
MBA> end sub




Best regards,
 nadhif_fakhri                            
mailto:[email protected]

Kirim email ke