การ Query Append กรองค่าตามCombobox

[Earth]

สอบถามการ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คือ

โค๊ด: [Select]

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เพิ่มขึ้นค่ะ

[pizza_p]

ถ้า Type_cmb = "All" มันถึงจะทำ Query StockCard ที่ว่า แต่ถ้า Type_cmb เป็นตัวเลือกอื่นมันก็จะวิ่งมาที่นี่เลย
Else
DoCmd.OpenForm "ViewStockCard"
ก็เลยได้ผลอย่างที่ว่าครับ

[ปิ่นณรงค์]

น่าจะเป็นแบบนี้ไหมครับ

โค๊ด: [Select]

If  (Type_cmb) = "All" Then
Type_cmb = "*"
 DoCmd.SetWarnings False
 DoCmd.OpenQuery "StockCard"
 DoCmd.OpenForm "ViewStockCard"
 DoCmd.SetWarnings true
else
  DoCmd.SetWarnings False
  DoCmd.OpenQuery "StockCard"
  DoCmd.OpenForm "ViewStockCard"
  DoCmd.SetWarnings true
end ifเราเปลี่ยนแค่ว่าต้องการกำหนดให้ถ้าเป็น ALL ก็ให้แทนค่าใน Combobox เป็น * ครับ ถ้าเป็นรายการอื่นก็ให้รันคิวรี่และเปิดฟอร์มตามปกติ

[Earth]

ขอบคุณค่ะ ทำได้แล้วว

โค๊ด: [Select]

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
'Run Query
On Error GoTo PROC_ERR
  DoCmd.SetWarnings False
  DoCmd.OpenQuery "StockCard"
  DoCmd.SetWarnings True
DoCmd.OpenForm "ViewStockCard"
End If

[Earth]

สอบถามจากกระทู้เพิ่มเติมค่ะ
จากรูปด้านล่างในตารางจะมีสินค้าอยู่หลายชนิด(ในกรอบแดงซ้าย)
จึงเพิ่มCombobox เลือกเฉพาะชนิดที่ต้องการ4 ชนิดจากทั้งหมด(ในกรอบแดงขวา)



จากนั้น เมื่อกดปุ่ม 4Type ต้องการให้ Query กรองข้อมูลมาแค่ 4ชนิดนี้เท่านั้น (คือชนิดทั้งหมดในComboboxด้านขวา)
ต้องเขียน CriteriaในQueryยังไงหรอคะ

[pizza_p]

มัน fix 4 ตัวนี้หรือเปล่า หรือมีเงื่อนไขอะไรที่จะได้มาซึ่ง 4 ตัวดังกล่าว ถ้าไม่ได้มีเงื่อนไขพิเศษ ก็ hard code ไปเลย เช่น

In ("FG","ACC","ACC-SET","IMPLEMENT")

[Earth]

ไม่ได้ fix 4 ตัวนี้ค่ะ เพราะอาจมีเพิ่มค่าได้ในภายหลัง โดยในComboboxทางด้านขวาค่ามาจากAdd value เข้ามาเองค่ะ
ซึ่งสามารถเพิ่มTypeเพื่อกรองภายหลังได้อีก
ซึ่งจะให้แสดงค่าและพอกดปุ่ม 4Type จะกรองค่าทั้ง4ชนิดเลยค่ะ

[ปิ่นณรงค์]

กำหนดตารางขึ้นมาเก็บค่า ตารางชื่อ 4Type โดยอาจจะกำหนด Field ชื่อ Type นะครับ แล้วใส่รายการที่ต้องการนำมากรองไว้ได้เลย

ที่ Criteria ใส่
In (select [Type] from [4Type])

รายการจาก Type ทั้งหมดจะถูกนำมากรองสำหรับคิวรี่นั้นครับ