น่าจะใช้ฟอร์มช่วย โดยให้เป็นฟอร์มหลักกับฟอร์มย่อย แล้วใส่ text box หรือ Calendar Control ลงในเพื่อให้สามารถกรอกหรือคลิกที่วันที่ใดๆ ก็ได้ แล้วให้ข้อมูลที่ตรงกับวันที่นั้นแสดงในฟอร์มย่อยครับ โดยปรับจากสิ่งที่ได้ทำใน Report ไว้แล้วก็ได้ แต่เปลี่ยนเงื่อนไขเป็น Forms!ชื่อฟอร์มหลัก!ชื่อCalendarControl เย็นนี้ผมจะลองทำเป็นตัวอย่างทั้งหมดให้ดูด้วยครับ

ขอบคุณมากครับ คุณสุภาพ แต่ว่าผมยังไม่เข้าใจในข้อความนี้นะครับว่าจะต้องทำอย่างไร "โดยปรับจากสิ่งที่ได้ทำใน Report ไว้แล้วก็ได้ แต่เปลี่ยนเงื่อนไขเป็น Forms!ชื่อฟอร์มหลัก!ชื่อCalendarControl " ช่วยอีกทีนะครับ

เช่น เมื่อก่อนจะใส่ [ใส่วันที่ที่ต้องการ] ก็ให้เปลี่ยนเป็น [Forms!ชื่อฟอร์มหลัก!ชื่อCalendarControl] ครับ

คือเราต้องสร้าง subform ขึ้นมาใน form หลักที่เป็น Calendar Control ใช่ไหมครับ แล้วเมื่อก่อนที่ผมให้ใส่วันที่ต้องการเนี่ยผมได้ตั้งเงื่อนไขไว้ใน Query ผมสามรถตรงที่นี้เลยใช่ไหมครับ แล้วเรียก แล้วให้ Query นี้เป็นSubform ของ FormCalendarใช่ไหมครับ ขอบคุณมากๆๆครับที่ช่วยผมครับ

ถูกต้องแล้วครับ ให้สร้าง subform จาก query ที่มีแล้ว แล้วใส่ criteria เหมือนที่ผมบอกลงไป

ใส่แล้วแต่ว่ามัน ไม่แสดงข้อมูลใดๆเลยตรับ

ถ้าสะดวก ให้ zip ไฟล์แล้วส่งมาให้ผมดูให้ก็ได้ครับ ที่ kaeg_chaiya@hotmail.com อย่าลืม zip นะครับ เพราะอีเมลล์ผมจะเต็มแล้ว จะทำให้ไฟล์ส่งมาถึงผมช้ามาก หรือตีกลับไปเลยครับ

file มันใหญ่มากครับส่งไปไม่ได้ ไวเผมทำตัวอย่างแล้วจะส่งไปให้ช่วยดูครับ ขอบคุณมากครับ

ผมได้ลองทำดู โดยการสร้าง query จากตารางชื่อ History2000 ผมให้ชื่อเป็น query1 โดยมี SQL ดังนี้ครับ SELECT History2000.รหัสเกษตรกร, History2000.เอตูม, History2000.บีตูม, History2000.วันที่ FROM History2000 WHERE (((History2000.วันที่)=[Forms]![frmShow]![Calendar])); จากนั้นผมได้ไปสร้างฟอร์มชื่อ frmShow โดยให้เป็นฟอร์มเปล่า จากนั้นผมได้เพิ่ม Calendar ลงไป แล้วตั้งชื่อให้เป็น Calendar ขั้นตอนต่อไป ผมได้สร้างฟอร์มอีกอันหนึ่งเพื่อให้เป็น subform ของฟอร์มอันแรก โดยใช้ query1 และกำหนดให้เป็นแบบ tabular หลังจากนั้นผมก็ได้ตั้งชื่อให้เป็น frmSubForm แล้วผมก็ลากไปวางในฟอร์มหลัก และได้เปลี่ยน property ตรง Name ให้เป็น frmSubForm แล้วผมใส่โค้ดนี้ลงไป Private Sub Calendar_Click() Me.frmSubForm.Requery End Sub โค้ดข้างบนจะทำให้ subform ปรับข้อมูลไปตามวันที่ที่เราได้คลิกใน Calendar และโค้ดข้างล่างจะบังคับให้ให้ Calendar แสดงวันเดือนปีเป็น 1 มกราคม 2543 ครับ Private Sub Form_Load() Me.Calendar.Value = "1/Jan/2543" End Sub ตัวอย่างจริงอยู่ที่ http://agserver.kku.ac.th/basiceng/calendar2.zip ครับ

อ.สุภาพ ครับ ตัวอย่างไม่สามารถ D/L ได้ครับ รบกวน อ.สุภาพด้วยครับ ผมอยากศึกษาดูครับ ขอบพระคุณมากๆ ครับ

ต้องขออภัยอย่างมากเลยครับ ผมจำได้ว่าได้ลองคลิกเพื่อ d/l ดูแล้วนะตอนตอบเสร็จ แต่ผมเข้าไปดูวันนี้ ไม่เจอไฟล์จริงๆ ผมคงจะทำให้ได้หลังจากเลิกงานแล้วครับ เพราะไฟล์นี้อยู่กับเครื่องฯ ที่บ้าน เดี๋ยวค่อยเข้ามาดูใหม่นะครับ ขออภัยอีกครั้งในความไม่สะดวก

d/l ได้แล้วครับ