Memanggil procedure didalam database internal

Procedure yang sudah dibuat didalam modules dapat digunakan oleh object-object didalam Access, diantaranya query, form, report, macro, serta module lainnya. Memanggil procedure ini terdiri dari berbagai cara, diantaranya:

  • Menggunakan nama procedure itu sendiri
  • Menggunakan statement Call
  • Menggunakan nama module serta nama procedurenya.

Menggunakan nama procedure itu sendiri

Ini adalah memanggil procedure yang umum digunakan. Contoh:

Sub Main()

    MultiBeep 56

    Message

End Sub

Sub MultiBeep(numbeeps)

    For counter = 1 To numbeeps

        Beep

    Next counter

End Sub

Sub Message()

    MsgBox “Time to take a break!”

End Sub

Lihatlah contoh diatas. Procedure Main memanggil procedure Multibeep dan procedure Message yang dibuat dibawahnya.

Menggunakan Statement Call

Statement Call biasanya digunakan untuk memanggil fungsi yang membutuhkan beberapa argument. Contoh penggunaan statement Call:

Sub Main()

    HouseCalc 99800, 43100

    Call HouseCalc(380950, 49500)

End Sub

Sub HouseCalc(price As Single, wage As Single)

    If 2.5 * wage <= 0.8 * price Then

        MsgBox “You cannot afford this house.”

    Else

        MsgBox “This house is affordable.”

    End If

End Sub

Menggunakan nama module serta nama procedurenya

Cara ini dilakukan jika pada access Anda terdapat dua atau lebih procedure yang mempunyai nama procedure yang sama. Ingat, Anda tidak dapat memanggil suatu procedure begitu saja dengan cara pada No.A, jika pada module yang lain terdapat procedure lainnya yang mempunyai nama yang sama. Contoh penggunaan:

Misalnya Anda sudah membuat suatu procedure di module “Module1” di Access sebagai berikut:

Public Function Main()

    MsgBox “Testing My Procedure !”

End Function

Kemudian pada module “Module2”, Anda ingin memanggil procedure Main pada “Module1”, dimana nama procedure yang Anda gunakan pada “Module2” ini namanya sama persis. Maka procedurenya adalah:

Public Function Main()

    Call Module1.Main

End Function

Jika nama Module anda mempunyai spasi (misal namanya “Module 1”), maka gunakanlah tanda [ ] pada nama modulenya. Contoh:

Public Function Main()

    Call [Module 1].Main

End Function

Leave a Reply

%d bloggers like this: