ลองเอาออกดูครับ

DoCmd.ApplyFilter , Y

- คืออาจารย์ครับต้องการให้ApplyFilterตามเงื่นไขของค่าYครับ
- หลัง DoCmd.ApplyFilter "", จะใช้เป็นตัวแปรได้ไหมครับ

ใช้ได้เหมือนตัวอย่างที่ทำตอนแรกเลยครับ

เพียงแต่ตัด "" ออก ก็จะใช้งานได้

ไม่ทราบว่ามีปัญหาหรือ error ตรงไหนบ้างครับ

กราบขอภัยอาจารย์อย่างสูงที่ทำให้เสียเวลาครับ คือผมถามผิดนั่งทำอยู่ 2 ไฟล์ในเวลาเดียวกัน เลยมึน! เอามาถามผิดไฟล์ คำสั่งที่มีปัญหาตัวนี้ครับ
Dim vCb, cLine, cRat, X2 As Integer
Dim X, Y As String
cLine = cbLine.Value
cRat = cbRat.Value
X = cRat & cLine
X2 = X
Y = "[lineID]=" & cRat & "And [ratio]=" & cLine
If vCb = X2 Then
DoCmd.ApplyFilter , Y
End If
ไม่มี error แต่คำสั่งไม่ทำงานครับ

ถ้าค่า Y เป็น String ทั้งหมด ให้ลองเปลี่ยนเป็น

Y = "[lineID]='" & cRat & "' And [ratio]='" & cLine & "'"

ที่ ApplyFilter แล้วไม่เห็นอะไร แสดงว่าค่าที่ต้องการกรองไม่ถูกต้อง

อยากรู้ว่าอะไรที่มันส่งไป ให้เปิด Form ในโหมด Design แล้วดูตรง Filter ใน Properties ครับ จะเห็นค่าที่สั่งให้มีการกรองครั้งสุดท้าย

ยังไม่ได้ครับ
ขอรบกวนอาจารย์อีกครั้งครับช่วยดูไฟล์ที่ส่งมาให้หน่อยครับ