การใช้ Do While Loop

[kn208598]

ผมอยากให้ค่าในฟิลด์ Salary มาแสดงที่ฟิลด์ ID ทุกๆเรคคอร์ด  เมื่อกดปุ่ม command 5
โค้ดที่ใช้เมื่อกดปุ่ม Command 5 แล้ว มันใส่ค่าในช่อง ID เป็นค่าแรกของ Salary ทุดเรคคอร์ดเลยครับ 
ต้องแก้โค้ดอย่างไรครับ..ขอขอบคุณครับ

[PNR]

ฟิลด์ Salary มาแสดงที่ฟิลด์ ID ทุกๆเรคคอร์ด

ผมไม่แน่ใจเกี่ยวกับการนำไปใช้งานในอนาคต
กรณีที่มี salary เหมือนกัน ข้อมูล ID ที่เก็บเข้าไปก็จะซ้ำกันนะครับ

วิธีทำง่ายๆใช้ gotoRecord มาช่วยได้ครับ

โค๊ด: [Select]

Dim rst As Recordset
Dim strFirstSalary As String
Set rst = Me.RecordsetClone
If rst.RecordCount = "0" Then
MsgBox "No record"
Else
rst.MoveFirst
strFirstSalary = rst!Salary
DoCmd.GoToRecord , , acFirst
Do Until rst.EOF
Me.ID = strFirstSalary
DoCmd.GoToRecord , , acNext
rst.MoveNext
Loop
End If

[kn208598]

อ๋อครับ..คือผมยกตัวอย่างเพื่อให้ทราบว่าโค้ดตัวนี้มันผิดอย่างไร และต้องแก้อย่างไรน่ะครับ..ขอบคุณครับ..

[PNR]

อ๋อครับ..คือผมยกตัวอย่างเพื่อให้ทราบว่าโค้ดตัวนี้มันผิดอย่างไร และต้องแก้อย่างไรน่ะครับ..ขอบคุณครับ..

ตัวอย่างด้านบนได้เลยครับ

ปกติถ้าจะให้ record ในตาราง นั้นอัพเดทแล้วไปยังเรคคอร์ดต่อไปใช้
rst.movenext อย่างเดียวก็ได้แล้วครับ

แต่ถ้าบนฟอร์มและให้ข้อมูลวางบน Control Textbox ต้องใช้การ gotoRecord เพื่อให้มันสามารถเลื่อนไปยังตัวต่อไปได้ครับ

[kn208598]

อ๋อครับ...ขอบคุณมากครับ..

[kn208598]

คุณ PNK ครับ..ผมแก้โค้ดแล้ว เมื่อรัน ก็ได้ผลลัพท์ เหมือนเดิม ครับ..หรือผมยังผิดตรงไหน.รบกวนดูให้หน่อยได้ไหมครับ..ผมแนบไฟล์มาด้วยครับ..ขอขอบคุณมากน่ะครับ

[PNR]

ขาดโค๊ดไปบรรทัดหนึ่ง
ตรงที่ ให้ ไปยัง record แรกก่อน

Dim rst As Recordset
Dim strFirstSalary As String
Set rst = Me.RecordsetClone
If rst.RecordCount = "0" Then
MsgBox "No record"
Else
rst.MoveFirst
strFirstSalary = rst!Salary
DoCmd.GoToRecord , , acFirst
Do Until rst.EOF
Me.ID = strFirstSalary
DoCmd.GoToRecord , , acNext
rst.MoveNext
Loop
End If

[kn208598]

ขอบคุณมากครับ...