เพิ่มข้อความใน combobox

[tast107]

จากไฟล์ผมต้องการเพิ่ม "ทุกรายการ" ใน combobox เพื่อแสดงยอดขายทั้งหมดใน query1_subform ครับ ขอคำแนะนำด้วยครับ

[snasui]

Code VBA ที่เขียนไว้แล้วอยู่ใน Module ใด ชื่อว่าอะไรครับ

[tast107]

อยู่ใน form1 ครับ
คร่าวๆ คือผมเขียน query ดึง table1 table2 แล้วใช้ combobox ในform1 ดึง query แล้วเขียน vba ให้ subform ชี้ไปที่ combobox

[snasui]

Combo3 ใช้ Table1 เป็น Row Source หากต้องการให้มีค่าอื่นนอกเหนือไปจากนั้นก็ต้องไปเพิ่มค่าใน Table1 ครับ หรือไม่อย่างนั้นก็ต้องเขียน Code สำหรับ Add Item เข้าไปใน Combo3 เอง โดยที่ Item ที่ Add เข้าไปนั้นคือค่าที่ต้องการต่อด้วยค่าใน Table1

[tast107]

ผมได้ลองเพิ่ม All ใน table แล้วครับ แต่ปัญหาคือ ใน query1 ไม่รู้ว่าต้องเขียนโค้ดยังไงครับ ของเดิมคือ
[forms]![form1]![Combo3]

[snasui]

ผมเข้าใจว่าถ้าเลือก All ก็ให้เลือกมาทุกคน หากเป็นเช่นนั้นต้องปรับ Query ลองศึกษาการใช้ If ตาม Link นี้ครับ http://msdn.microsoft.com/en-us/library/ms182587.aspx

[tast107]

ผมลองเขียนโค้ด
if sname="All" {select * form table1}
ใน query1 แล้วมันฟ้องว่า

Invalid SQL statement;expected 'DELETE', 'INSERT', 'PROCEDURE' , 'SELECT' , or 'UPDATE' .