Menjalankan Query Paramater di Dalam VBA

8 May

To:    belajar-access@yahoogroups.com
From:    “Sofyan Efendi” <sofyan@madinah.cc>
Date:    Thu, 7 Sep 2006 09:47:33 +0700

Pada FAQ hari kemarin (tanggal 06 September 2006 11:18) dengan judul “FAQ Hari Ini: Too few parameter” telah dibahas mengenai penggunaan query paramater. Adapun untuk menjalankan query parameter langsung di dalam VBA, dimana criteria untuk parameter tersebut berasal dari dalam control pada suatu form, maka kita harus mendefinisikan parameternya secara langsung di dalam VBA. Marilah kita bahas sama-sama caranya.

CONTOH MENDEFINISIKAN PARAMETER DI DALAM VBA DENGAN PARAMETER DARI DALAM CONTROL PADA SUATU FORM

Dim dbSample As Database
Dim qdfSample As QueryDef
Set dbSample = CurrentDB()
Set qdfSample = dbSample .QueryDefs(” qryParameterQuer y”)
‘Disinilah parameter tersebut didefinisikan:
qdfSample![Forms! FormName! ControlName] = _
Forms![FormName] ![ControlName]

CONTOH MENDEFINISIKAN PARAMETER DI DALAM VBA DENGAN PARAMETER DARI DALAM INPUT BOX

Dim dbSample As Database, qdfSample As QueryDef
Set dbSample = CurrentDb()
Set qdfSample = dbSample.QueryDefs( “qryParameterQue ry”)
‘Disinilah parameter tersebut didefinisikan:
qdfSample![Tolong input Tgl:] = #7/9/2006#

CONTOH FILE (LENGKAP):
http://www.filelodge.com/files/hdd8/194664/samples/QueryParameterVBA.rar

Wassalaamu’alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
– AccessWeb <http://www35.websamba.com/accessweb&gt;
– OPI-Homepage <http://www.geocities.com/opi1978&gt;

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: