อยากให้ข้อมูลแสดงสลับกันบนฟอร์มแสดงผล

[prajak]

รบกวนสอบถามอาจารย์ทุกท่านนะครับ ผมมีข้อมูลที่ได้จากการ query ประมาณไม่น่าเกิน4record ต้องการให้แสดงบนฟอร์มทีละ1record โดยแสดงสลับกันไปแบบวนloop ไปเรื่อยๆต้องทำอย่างไรครับ ปัจจุบันใช้วิธีตามรูป แต่รู้สึกว่าบางครั้งมันจะแสดงซ้ำๆrecordเดิมหลายครั้งแล้วค่อยจะวนloopครับ

[สันติสุข]

ใส่ Time Interval property ของฟอร์ม เป็นระยะเวลาที่แสดงแต่ละเรคอร์ด หน่วยเป็นมิลลิวินาที

ใน On Timer event procedure ใส่โค้ด

Private Sub Form_Timer()
    On Error Resume Next
    DoCmd.RunCommand acCmdRecordsGoToNext
    If Me.NewRecord Or Err.Number <> 0 Then DoCmd.RunCommand acCmdRecordsGoToFirst
End Sub

ส่วนคิวรี่ไม่ต้องเลือก TOP 1 ใช้คิวรี่ที่แสดงผลทุกเรคอร์ด หรือไม่ก็ผูกเข้ากับเทเบิลไปได้เลย

[prajak]

ขอบคุณครับอาจารย์ เดี๋ยวผมจะลองทำดูครับ

[prajak]

ผมลองทำตามที่อาจารย์สันติสุขแนะนำ ในส่วนของการสลับแสดงผลบนฟอร์มOKเลยครับ แต่ลืมบอกอาจารย์ไปว่าข้อมูลที่แสดงผลปกติแล้วจะมีการเปลี่ยนค่าตลอดตามการupdateข้อมูลของผู้ใช้งาน แต่ตอนนี้บนฟอร์มจะไม่เปลี่ยนตาม ยังคงแสดงข้อมูลเก่าที่ไม่update ผมเลยจะลองใช้คำสั่ง me.requery ต่อท้ายคำสั่งที่อาจารย์ให้มาก็ไม่ได้ครับ มันจะกลายเป็นแสดง record เดิมๆซ้ำๆครับ รบกวนอาจารย์แนะนำด้วยครับ
เดิมผมใช้คำสั่งนี้บน On Timer event procedure

Me.ID = DLookup("ID", "QTblSaw1_ByDate")
Me.Requery

[สันติสุข]

ให้แก้เป็น

On Error Resume Next
DoCmd.RunCommand acCmdRecordsGoToNext
If Me.NewRecord Or Err.Number <> 0 Then Me.Requery

[prajak]

ได้แล้วครับอาจารย์ ขอบคุณมากๆครับ