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

Selasa, 06 Oktober 2015

Re: [belajar-access] BELAJAR CLASS

Kalau yg saya buatin kemarin itu function bukan sub.

Function bisa dipanggil untuk menghasilkan nilai, kalau sub hanya menjalankan perintah.

Kalau memberi nilai kepada sebuah control (combo atau text box) via VBA, anda harus memberi identifier yang jelas.

Misal: me.pengikatan dan me.Plafon dan me.By_Notaris

Saran saya, pelajari identifier, hal ini fundamental.

Lalu pelajari pula expression, juga fundamental dalam programming.

Good luck!

Haer Talib

RumahAccess Indonesia

Tempatnya Belajar Microsoft Access

2015-10-05 16:13 GMT+07:00 satriauad@yahoo.co.id [belajar-access] <belajar-access@yahoogroups.com>:

Sudah saya coba...tapi masih bingung
Punya saya seperti ini

Modul modHitung
=================
Public Sub Notaris()
    Dim Pengikatan As Integer
    Dim Plafon As Currency
    Dim By_Notaris As Currency

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

Terus di form saya 'Call Notaris' tetep ga keluar angkanya

Dimana pengikatan di form adalah combobox, Plafon itu textbox, By_notaris juga textbox
Maaf nih, baru belajar