สอบถามการQuery Append โดยกรองเงื่อนไขตามComboboxค่ะ
จากกระทู้
https://www.thai-access.com/index.php?topic=196.msg609#msg609 ได้กรองข้อมูลจากQuery มาแสดง
แต่ในกระทู้นี้ในQueryชื่อว่า "StockCard"เพิ่มฟิลด์Remark และทำการAppend Query ไปไว้ในตาราง StockDaily
โดยกรองค่าในฟิลด์ Type OF GOODS ที่Comboboxในหน้าฟอร์มImportFrm ตามรูป
โค้ดในปุ่มViewในหน้าฟอร์ม ImportFrmคือ
CurrentDb.Execute "DELETE FROM StockDaily", dbFailOnError
If Type_cmb = "All" Then
Type_cmb = "*"
'Run Query
On Error GoTo PROC_ERR
DoCmd.SetWarnings False
DoCmd.OpenQuery "StockCard"
DoCmd.SetWarnings True
PROC_ERR:
DoCmd.SetWarnings True
DoCmd.Close acForm, "ViewStockCard"
DoCmd.OpenForm "ViewStockCard"
Else
DoCmd.OpenForm "ViewStockCard"
End If
และนี่คือหน้าตาฟอร์มที่กรองค่าจากCombobox
ปัญหาคือข้อมูลไม่ได้กรองให้ค่ะ แต่แสดงทั้งหมดแทน
ปล. จากกระทู้เดิมที่ทำสามารถกรองค่าได้ตามข้อมูลนี้เลยค่ะ แต่แค่เอามาปรับแก้ทำAppend Queryเพิ่มขึ้นค่ะ