ช่วยแก้ไขคำสั่งนี้หน่อยครับ
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 250   4
URL.หัวข้อ / URL
ช่วยแก้ไขคำสั่งนี้หน่อยครับ

เกือบอาทิตย์แล้วยังทำไม่ได้เลย 
 
Private Sub combobox1_AfterUpdate() 
    Dim lineX As Long 
    Dim lineY, x As String 
    lineX = cbLine.Value 
    lineY = "[lineID]=" & lineX 
   DoCmd.ApplyFilter , "", lineX    
End Sub 
 
พอใช้แล้วมันจะมีหน้าต่างบอกว่าไม่มีมาโคร หรือมีแต่ยังไม่ได้บันทึก (ประมาณนี้ครับ) จะแก้ไขอย่างไร 
 
ขอถามต่ออีกหน่อย ฟังก์ชั่น ApplyFilter ถ้าจะให้ส่วน Wherecondition เป็นตัวแปร  ตามตัวอย่าง เขียนแบบข้างบนถูกหรือเปล่าครับ

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

1 @R01400
ลองแก้เป็น Private Sub combobox1_AfterUpdate() Dim lineX As Long Dim lineY As String lineX = cbLine.Value lineY = "[lineID]=" & lineX DoCmd.ApplyFilter , lineY End Sub
2 @R01408
อาจารย์ครับใช้ได้ แต่มันยังมีหน้าต่างฟ้องบอกว่าไม่มีมาโคร หรือมีแต่ยังไม่ได้บันทึก (ประมาณนี้ครับ) จะแก้ไขอย่างไร ต่อครับ
3 @R01409
คือ แบบว่าข้อมูลกรองตามที่เราต้องการ แต่มีหน้าต่างฟ้องแบบที่ว่าครับ
4 @R01425
ให้ทดลอง Me.Filter = "[LineID]=" & cbLine Me.FilterOn = True
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0517s