ACCESS FEED: Re: [belajar-access] BELAJAR CLASS

Senin, 05 Oktober 2015

Re: [belajar-access] BELAJAR CLASS

kalau di Access yg spt ini bikin function

'=========================================== yang ini taruh di form yg butuh nilai

By_Notaris = fBiayaNotaris(Pengikatan, Plafon)

'=========================================== function ini taruh di module

Function fBiayaNotaris(pPengikatan, pPlafon)

   If pPengikatan = 19 And pPlafon < 10000000 Then
        fBiayaNotaris = 0
    ElseIf pPengikatan = 19 And pPlafon < 15000000 Then
        fBiayaNotaris = 7500
    ElseIf pPengikatan = 19 And pPlafon < 20000000 Then
        fBiayaNotaris = 10000
    ElseIf pPengikatan = 19 And pPlafon > 20000000 Then
        fBiayaNotaris = 15000
    ElseIf pPengikatan <> 19 Then
        fBiayaNotaris = 0

End If

End Function

Good Luck!

Haer Talib

RumahAccess Indonesia

Tempatnya Belajar Microsoft Access

2015-10-03 12:45 GMT+07:00 satriauad@yahoo.co.id [belajar-access] <belajar-access@yahoogroups.com>:

Master....mohon bantuannya, saya baru mau belajar class. Kurang lebihnya seperti ini :
Saya mau membuat perhitungan biaya, dimana biaya rumusnya sering ganti/berubah
Inginnya saya, rumus itu letaknya diclass, jadi sekali merubah...proses di masing2 form juga ikut berubah
Contoh :

If Pengikatan = 19 And Plafon < 10000000 Then
        By_Notaris.Value = 0
    ElseIf Pengikatan = 19 And Plafon < 15000000 Then
        By_Notaris.Value = 7500
    ElseIf Pengikatan = 19 And Plafon < 20000000 Then
        By_Notaris.Value = 10000
    ElseIf Pengikatan = 19 And Plafon > 20000000 Then
        By_Notaris.Value = 15000
    ElseIf Pengikatan <> 19 Then
        By_Notaris.Value = 0