ขอสอบถามการเขียน code ของ combo ดังนี้
1. กรณีต้องการเลือกคำว่า All แล้วให้แสดงข้อมูลทั้งหมดออกมา
ซึ่งได้ดูตัวอย่างของอาจารย์yeadram
จาก http://www.thai-access.com/yeadram_view.php?topic_id=432

โดยได้ปรับปรุง rowsoucre ของ combo เป็น

SELECT "All" as Liability_Type FROM [DPN] UNION SELECT [DPN].Liability_Type FROM [DPN];

เมื่อเลือกข้อมูลแต่ละ type ข้อมูลจะแสดงออกมาคะ แต่ถ้าเลือก All ข้อมูลไม่ปรากฎคะ
โดยได้ใช้ code ตามที่ อาจารย์yeadram ได้ให้ไว้ ดังนี้

Private Sub comboHGT_Change()
If comboHGT <> "" Then filterMe
End Sub

Private Sub comboyear_Change()
If ComboYear <> "" Then filterMe
End Sub

Private Sub comboMonth_Change()
If ComboMonth <> "" Then filterMe
End Sub

Sub filterMe()
Dim wcYear As String
Dim wcMonth As String
Dim wcHTG As String

If comboHGT = "" Or IsNull(comboHGT) Or comboHGT = "*" Then wcHGT = "*" _
Else: wcHGT = comboHGT

If ComboYear = "" Or IsNull(ComboYear) Or ComboYear = "*" Then wcYear = "*" _
Else wcYear = ComboYear

If ComboMonth = "" Or IsNull(ComboMonth) Or ComboMonth = "*" Then wcMonth = "*" _
Else wcMonth = ComboMonth

Me.RecordSource = "select * from DPN_Query where DYear = '" & wcYear & "' and DMonth = '" & wcMonth & "' and Liability_Type = '" & wcHGT & "'"
Me.Requery
End Sub

2. ถ้าต้องการให้เมื่อเปิด Form ออกมาแล้ว ให้ทุก ๆ Combo default ค่า All ต้องเขียน code อย่างไรคะ

ขอบคุณค่ะ