Filter ผ่าน Sub form
กระทู้เก่าบอร์ด อ.Yeadram

 1,654   6
URL.หัวข้อ / URL Filter ผ่าน Sub form

สวัสดีจ้า อาจารย์ TTT
ร้อนถึงมืออาจารย์อีกแล้วค่ะ

ดิฉันใช้คำสั่งเพื่อจะกรองข้อมูลค่ะ
DoCmd.ApplyFilter "", "[Emp_Name] Like [Forms]![frmmenu]![SubForm]![txtSearch]"

เสร็จแล้วจะฟ้องแบบนี้ค่ะ


อธิบายนิดจ้า
จะมีสร้างฟอร์มเอาไว้ 3
1. frmmenu (สร้างไว้เป็นฟอร์มหลักสำหรับทำเมนู)

2.Subform (คือ subform ของ frmmenu กำหนดให้ไม่มี SourceObject )

3.frmSourceObject (จะทำเป็นฟอร์มเอาไว้เพื่อเรียกเป็น SourceObject ของ subform เนื่องจากมีหลาย SourceObject ที่จะสลับเป็น SourceObject ของ Subform ...โอยงงตัวเอง)

             Me.SubForm.Visible = True
             Me.SubForm.SourceObject = "frmSourceObject"
ประมาณนี้จร้า
โดย: PP เมื่อ: 8 มิ.ย. 2556 , 14:58

6 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R16255
เสร็จแล้วจะฟ้องแบบนี้ค่ะ


Run-time errer '2491'
The action or method is invalid because the form or report isn't bound
to a table or query.

รูปที่แนบมามันเปลี่ยนเองค่ะ
โดย: PP เมื่อ: 8 มิ.ย. 2556 , 19:36
2 @R16273
DoCmd.ApplyFilter "", "[Emp_Name] Like [Forms]![frmmenu]![SubForm]![txtSearch]"

ลองเปลี่ยนเป็น

DoCmd.ApplyFilter "", "[Emp_Name] Like [Forms]![frmmenu]![SubForm].Form.[txtSearch]"
โดย: API เมื่อ: 9 มิ.ย. 2556 , 22:56
3 @R16276
ขอบคุณมากค่ะ
แต่ว่ายังไม่ได้เลย อาการเดิมค่ะ
โดย: PP เมื่อ: 10 มิ.ย. 2556 , 09:46
4 @R16284
RecordSource ของ Form มีค่าเป็นอะไรอยู่ครับ?
โดย: PichaiTC เมื่อ: 10 มิ.ย. 2556 , 20:07
5 @R16285
Dim FilterValue As String

'FilterValue = InputBox("Please enter the Case Name (Blank for all)", "Case Name")
FilterValue = txtSearch

Me.Filter = ""
Me.Filter = "(((tblEmployee.Emp_Name) Like '*" & FilterValue & "*'))"
Me.FilterOn = True

If IsNull(FilterValue) Or FilterValue = "" Then
MsgBox "Filter will be removed", vbExclamation, "Filter Action Canceled"
End If

ขอบคุณครับคุณ PichaiTC
ผมเปลี่ยนมาเป็นใช้แบบนี้แทนครับผม
ก็ได้แล้วครับ แต่ว่าอยากเพิ่ม การค้นหาเพิ่ม
เดิมค้นหาแค่ Emp_Name อยากเพิ่ม Emp_ID ด้วยครับผม
โดย: PP เมื่อ: 10 มิ.ย. 2556 , 20:34
6 @R16299
Me.Filter = "(((tblEmployee.Emp_Name) & (tblEmployee.Emp_ID)Like '*" & FilterValue & "*'))"

โอ้อากู๋ช่วยแย๊ว เพิ่มเงื่อนไข ด้วย & ตามตัวอย่างค่ะ โอวะริมัสสุ
โดย: PP เมื่อ: 11 มิ.ย. 2556 , 20:53
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3016s