Dim i
i = DBEngine(0)(0).TableDefs.Count
For i = 0 To i - 1
If Left(Trim(DBEngine(0)(0).TableDefs(i).name), 3) = "á¼¹" Then
Me.ComboSorcePlan.AddItem Item:=DBEngine(0)(0).TableDef(i).name
End If
Next i

ผมอ่านค่า TABLE NAME มาใส่ COMBOBOX ได้อย่างต้องการครับ
แต่มีปัญหาว่า TABLE ที่เกิดใหม่ จากการ RUN ACTION QUERY
มันจะมองไม่เห็น จนกว่าจะปิด APPLICATION แล้วเปิดใหม่
ทำไมเป็นเช่นนั้น ครับ
แล้วถ้าผมไม่ต้องการให้ปิด แล้วเปิดใหม่ ให้มันอ่าน TABLE ขณะนั้นเลย
ผมจะสั่งอะไรเพิ่มเติมครับ ขอบคุณครับ