กระทู้เก่าบอร์ด อ.Yeadram
1,550 1
URL.หัวข้อ /
URL
ช่วยด้วย ช่วยด้วย ดูโค๊ดนี้ให้หน่อย ติดนิดเดียวเอง
ช่วยแนะนำและแก้โค้ดให้ผมหน่อยครับคือว่า
ผมทำ Combobox เพื่อแสดงผลลัพธ์ที่ subform
หน้า Form เวลาที่ผม เลือก Combo1 และไปเลือก Combo5 แล้วพอกลับมาเลือกที่ Combo1 อีกครั้ง แต่ทำไมมันต้องคลิกเลือกถึงสองครั้ง ถึงจะแสดงค่าออกมา เหมือนๆค่าใน Combo มันไม่ Null อะครับ
SOURCE CODE
ผมทำ Combobox เพื่อแสดงผลลัพธ์ที่ subform
หน้า Form เวลาที่ผม เลือก Combo1 และไปเลือก Combo5 แล้วพอกลับมาเลือกที่ Combo1 อีกครั้ง แต่ทำไมมันต้องคลิกเลือกถึงสองครั้ง ถึงจะแสดงค่าออกมา เหมือนๆค่าใน Combo มันไม่ Null อะครับ
SOURCE CODE
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.3959s
Private Sub Combo1_AfterUpdate()
Me.Combo5 = vbNullString
Me.Combo7 = vbNullString
Call RunFilter
Combo5.RowSource = "SELECT DISTINCT stock.group2 " & _
"FROM stock " & _
"WHERE stock.group1 = '" & Combo1.Value & "' " & _
"ORDER BY stock.group2;"
End Sub
Private Sub Combo5_AfterUpdate()
Me.Combo7 = vbNullString
Call RunFilter
Combo7.RowSource = "SELECT DISTINCT stock.group3 " & _
"FROM stock " & _
"WHERE stock.group2 = '" & Combo5.Value & "' " & _
"ORDER BY stock.group3;"
End Sub
Private Sub RunFilter()
Dim strFilter As String
Dim bFilter As Boolean
bFilter = False
strFilter = ""
If Nz(Me.Combo1, "") > "" Then 'group1
If Len(Nz(strFilter)) > 0 Then strFilter = strFilter & " And "
strFilter = strFilter & "group1 = '" & Me.Combo1 & "'"
bFilter = True
If Nz(Me.Combo5, "") > "" Then 'group2
If Len(Nz(strFilter)) > 0 Then strFilter = strFilter & " And "
strFilter = strFilter & "group2 = '" & Me.Combo5 & "'"
bFilter = True
If Nz(Me.Combo7, "") > "" Then 'group3
If Len(Nz(strFilter)) > 0 Then strFilter = strFilter & " And "
strFilter = strFilter & "group3 = '" & Me.Combo7 & "'"
bFilter = True
End If
End If
End If
If bFilter Then
Me.qry_stock1.Form.OrderBy = ""
Me.qry_stock1.Form.Filter = strFilter
Me.qry_stock1.Form.FilterOn = True
Else
Me.qry_stock1.Form.Filter = ""
End If
End Sub