ACCESS FEED: Re: [belajar-access] Ask: VBA Query dengan 2 parameter dari 2 combobox

Selasa, 22 September 2015

Re: [belajar-access] Ask: VBA Query dengan 2 parameter dari 2 combobox

Hello Bang Dody

Apa bukan karena kelebihan underscore pada pernyataan ini:

Me.cmd__hole_id.RowSource = hSQL

Semoga karena itu saja, soalnya SQL Command anda jadi sulit dibaca karena pakai CAPITAL semua.

Oya, itu kenapa year pakai apostrop juga utk mengapitnya?

Thanks

Haer Talib

RumahAccess Indonesia

Tempatnya Belajar Microsoft Access

On Tue, Sep 22, 2015 at 11:21 AM, dody ginandjar dody_gin@yahoo.com [belajar-access] <belajar-access@yahoogroups.com> wrote:

Saya membuat 3 combobox dalam 1 form :

- cmb_Year

- cmd_Block

- cmd_hole_id

isi cmd_block digenerate setelah cmd_Year dipilih (After_Update) -> berhasil
isi cmd_hole_id digenerate setelah cmd_blok dipilih (After_Update) dengan menggunakan dua parameter dari cmd_blok dan cmd_year -> tidak berhasil.

berikut code yang saya buat :

Sub cmb_Year_AfterUpdate()
tSQL = "SELECT GB_SITE.BLOCK FROM GB_SITE WHERE GB_SITE.DATA_YEAR = '" & Me.cmb_Year & "' UNION SELECT BUFFER_GB_SITE.BLOCK FROM BUFFER_GB_SITE WHERE BUFFER_GB_SITE.DATA_YEAR = '" & Me.cmb_Year & "' GROUP BY BLOCK ORDER BY BLOCK;"
Me.cmb_Block.RowSource = tSQL
End Sub

Sub cmb_Block_AfterUpdate()

hSQL = "SELECT GB_SITE.SITE_ID FROM GB_SITE WHERE GB_SITE.BLOCK = '" & Me.cmb_Block & "' AND GB_SITE.DATA_YEAR = '" & Me.cmb_Year & "' UNION SELECT BUFFER_GB_SITE.SITE_ID FROM BUFFER_GB_SITE WHERE BUFFER_GB_SITE.BLOCK BUFFER_GB_SITE.BLOCK = '" & Me.cmb_Block & "' AND BUFFER_GB_SITE.DATA_YEAR = '" & Me.cmb_Year & "' ORDER BY SITE_ID;"
Me.cmd__hole_id.RowSource = hSQL

End Sub

Sebelumnya saya ucapkan terima kasih,

salam,

Dody G