แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
เพิ่ม VBA ให้เมื่อเปิดฟอร์ม criteria = 1 แล้วทำการกรองข้อมูลโค๊ด: [Select]Private Sub Form_Load()
Me.criteria = 1
Me.Sell_Query.Form.Filter = "[Bal] >= " & Me.criteria
Me.Sell_Query.Form.FilterOn = True
Me.Sell_Query.Form.Refresh
End Sub
ทดลองเอาไฟล์ของท่านไปตีโจทย์แล้วทำการแก้ไขดังนี้
1.เอา [Forms]![Sell]![criteria] ใน Query ออก
2.แก้ชื่อซัพฟอร์มจากเดิม ฟอร์มย่อย Sell Query เป็น Sell_Query 'ป้องกันปัญหาภาษาไทย+ช่องว่าง
3.แก้ VBA เป็นโค๊ด: [Select]Private Sub criteria_AfterUpdate()
If IsNull(Me.criteria) Then
Me.Sell_Query.Form.FilterOn = False
Me.Sell_Query.Form.Refresh
ElseIf Me.criteria = 0 Then
Me.Sell_Query.Form.Filter = "[Bal] = " & Me.criteria
Me.Sell_Query.Form.FilterOn = True
Me.Sell_Query.Form.Refresh
Else
Me.Sell_Query.Form.Filter = "[Bal] >= " & Me.criteria
Me.Sell_Query.Form.FilterOn = True
Me.Sell_Query.Form.Refresh
End If
End Sub
สิ่งที่ได้
- ไม่ใส่ค่าอะไรเลย = จะแสดงรายการทั้งหมด
- ใส่ค่า 0 = แสดงเฉพาะรายการที่มีค่า Bal เท่ากับ 0
- ใส่ค่า >0 เช่น
[1] แสดง 2,10
[2] แสดง 2,10
[10] แสดง 10
จนถึงตอนนี้ อ่านแล้วก็ไม่เข้าใจว่าต้องการอะไร
เดาว่าน่าจะต้องใช้ Validation Rule และ Validation Text มีทั้งใน Text Box และในตาราง เลือกเอาว่าจะใช้ที่ไหน
แต่กำหนดอย่างไร ทำให้ไม่ได้ เพราะไม่รู้ว่าต้องการอย่างไร
