เกือบอาทิตย์แล้วยังทำไม่ได้เลย 
 
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 เป็นตัวแปร  ตามตัวอย่าง เขียนแบบข้างบนถูกหรือเปล่าครับ