กำลังสร้าง From ที่เป็น Combo Box ค่ะ เงื่อนไข
Combo 0 แสดงนามสกุลจาก Field SurName
Combo 2   แสดงชื่อใน Field GrandNameที่เป็น Sub ของนามสกุลนั้น ในCombo o
Combo 4 แสดงชื่อใน Field ParentsNameที่เป็น เป็น Sub ของ GrandNameใน Combo2
Combo 6 แสดงชื่อใน Field ChildName ที่เป็น Sub ของ ParentsName ใน Combo4
Combo 8 แสดงชื่อใน Field NNName ที่เป็น Sub ของ ChildName ใน Combo 6
Text 10 แสดง Code จาก Field Code

โดยข้อมูลทั้งหมดมาจาก Query ที่ชื่อ QueTotal
สร้าง From ชื่อ FrmGen

สร้าง ComboBox โดยไม่ใช้ wizard นะคะ โดยมีรายละเอียดดังนี้

ในส่วนของ Combo Property

Combo0
-     Column Count      ใส่ 1
-     Control Source     ใส่ QueTotal
-     Row Source      ใส่ “Select Distinct SurName From QueTotal”
-     RowSource Type เลือก Table /Query

Combo2
-     Column Count      ใส่ 1
-     Control Source     ใส่ QueTotal
-     Row Source      ใส่ “Select Distinct GrandName From QueTotal”
-     RowSource Type เลือก Table /Query

Combo4
-     Column Count      ใส่ 1
-     Control Source     ใส่ QueTotal
-     Row Source      ใส่ “Select Distinct SurName From QueTotal”
-     RowSource Type เลือก Table /Query

Combo6
-     Column Count      ใส่ 1
-     Control Source     ใส่ QueTotal
-     Row Source      ใส่ “Select Distinct SurName From QueTotal”
-     RowSource Type เลือก Table /Query

Combo8
-     Column Count      ใส่ 1
-     Control Source     ใส่ QueTotal
-     Row Source      ใส่ “Select Distinct SurName From QueTotal”
-     RowSource Type เลือก Table /Query

Text 10
-     Control Source     ใส่ QueTotal


Code ที่ใส่

Option Compare Database
Private Sub Combo0_Change()
    If Combo0 <> "" Then
    Combo2.RowSource = "Select GrandName From QueTotal where SurName like '" & Combo0 & "'"
    Combo2.Requery
    End If
End Sub

Private Sub Combo2_Change()
    If Combo2 <> "" Then
    Combo4.RowSource = "Select ParentsName From QueTotal where GrandName like '" & Combo2 & "'"
    Combo4.Requery
    End If
End Sub

Private Sub Combo4_Change()
    If Combo4 <> "" Then
    Combo6.RowSource = "Select ChildName From QueTotal where ParentsName like '" & Combo4 & "'"
    Combo6.Requery
    End If
End Sub

Private Sub Combo6_Change()
    If Combo6 <> "" Then
    Combo8.RowSource = "Select NNName From QueTotal where ChildName like '" & Combo6 & "'"
    Combo8.Requery
    End If
End Sub

Private Sub Combo8_Change()
    If Combo8 <> "" Then
    Text10.RowSource "Select Code From QueTotal where NNName like '" & Combo8 & "'"
    Text10.Requery
    End If
End Sub

ตาม QueTotal เป็น File แนบนะคะ แล้วมันขี้น Error   ที่ Capture แนบเป็น File อ่ะค่ะ เป็นทุก Combo เลยต้องแก้ไขยังไงดีคะ