/* */

Wednesday, December 2, 2015

FW: [belajar-access] BELAJAR CLASS

 

 


From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com]
Sent: 19 Oktober 2015 8:56
To: belajar-access@yahoogroups.com
Subject: Re: [belajar-access] BELAJAR CLASS

 

 

Dear Bang Satria,
Tugasnya bikin class atau bikin module ?

Kalau bikin class, berarti anda bikin 'template' yang berisi properti seperti (pengikatan, plafon) dan metode seperti(Biaya).

jadi di implementasinya bisa berupa:


dim notaris as new CNotaris
notaris.pengikatan = Me.cboPengikatan
notaris.plafon = Me.txtPlafon
Me.txtBiayaNotaris = notaris.Biaya

set notaris = nothing


Regards,
Aksan Kurdin

On 10/7/2015 9:58 AM, Haer Talib haertalib@gmail.com [belajar-access] wrote:

 

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

Artikel | Forum | Milis | Download | Training | Links | Blog | Event

 

 

 

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 

 

 

__._,_.___


Posted by: Aksan Kurdin <aksan.kurdin@gmail.com>


Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (7)

SPAM IS PROHIBITED

Visit Your Group

·                                 New Members 3



.


__,_._,___

No comments:

Post a Comment