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

 

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

__._,_.___

---

Posted by: dody ginandjar <dody_gin@yahoo.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (1)

SPAM IS PROHIBITED

Visit Your Group

• New Members 3

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___