-> กรองชื่อลูกค้าโดยวิธีลิ้งฟอร์มหลัก-ฟอร์มย่อย
-> กรองวันที่ออกบิลโดยใช้คำสั่ง Filter
Private Sub cmdDate_Click()
Me.fm_Invoice_sub2.Form.Filter = "[Saledate] BETWEEN #" & Format(Me.BeginDate, "dd mmm yyyy") & "# AND #" & Format(Me.EndDate, "dd mmm yyyy") & "#"
Me.fm_Invoice_sub2.Form.FilterOn = True
Me.fm_Invoice_sub2.Form.Refresh
Call Form_Current
End Sub
ไฟล์ตัวอย่างผมสร้างตาราง,ฟอร์มหลัก,รีพอร์ทชื่อ Invoice มาให้ใหม่ ส่วนฟอร์มย่อย Invoice_sub จะดึงข้อมูลบิลที่เคยออกไปจากตาราง Sale_H