มีข้อมูลอยู่ 3 แภวคื
1.       301
2.       601
3.       221

เราคิกที่ 301 ทำงานได้ปักกะติ
แต่กัลบ 601 แล้ว error แบบนี้ ค่ะ

มีข้อมูลอยู่ 3 แภวคื
1.       301
2.       601
3.       221
เราคิกที่ 301 ทำงานได้ปักกะติ
แต่กัลบ 601 แล้ว error แบบนี้ ค่ะ

ลองเขียนแบบนี้ดูครับ ตัด .Form ออก

Forms!khormoon.Bookmark = rs.Bookmark

เป็นแบบเดีมเลียค่ะ

ให้เช็คว่าหาเจอหรือเปล่าก่อนครับ

rs.FindFirst ......
If Not rs.NoMatch then
   Forms!khormoon.Form.Bookmark = rs.Bookmark
Else
   MsgBox "หาข้อมุลดังกล่าวไม่พบ"
End If
.....

ถ้ามันหาสิ่งที่ค้นไม่เจอ Bookmark มันจะว่างเปล่าครับ ซึงทำให้มันไปยังตำแหน่ง Bookmark ไม่ได้

เป็นแบบเดีมค่ะ
แบบวิดีโอนี้เลีย
https://drive.google.com/file/d/0B_1bLii2Kx9XTUkyRVU4Y2hlR2s/view?usp=drivesdk
เป็นเพาะ มีข้อมูลมากไป จะเป็นไปได้ไม่ ค่ะ

การใช้ bookmark ตัว recordset จะต้องมาจาก recordset เดียวกัน หรือ clone มาจาก recordset เดิม ถึงจะใช้ rs1.bookmark = rs2.bookmark ได้ ถ้า recordset ทั้งสองอันมีข้อมูลที่ไม่เหมือนกัน ตัว bookmark ก็จะไม่เหมือนกันด้วย

ถ้าจะเปิด form โดยที่มี recordset ที่มาจากข้อมูลของอีกฟอร์ม เราก็ใส่ใน where condition argument ของ method OpenForm ได้เลย

Private Sub b_lahutsin_DblClick(Cancel As Integer)

DoCmd.OpenForm "khormoon", , , "[s_lh] = '" & Me.Text26 & "'"

End Sub

Code where condition argument ใส่ต่อคำสั่ง เปิด Form ใช้ใหม่ค่ะ

ใช่ครับ

รูปแบบการใช้งาน OpenForm Method
DoCmd.OpenForm FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs

เป็นแบบเดีมค่ะ ไม่รูวาใส่ code ผิดธืป่าวืค่ะ
จะเป็นไปได้ใหมว่า ข้อมูลเรามีเยอะถื่ง 1100 แล้วจะหาข้อมูลไม่ พบค่ะ

Private Sub b_lahutsin_DblClick(Cancel As Integer)

DoCmd.OpenForm ("khormoon"), View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs

Set rs = CurrentDb.OpenRecordset("xinkha", dbOpenDynaset)


If Not rs.NoMatch Then

rs.FindFirst "[s_lh] = '" & Me.Text26 & "'"
Forms!khormoon.Form.Bookmark = rs.Bookmark

Else

MsgBox "ไม่มีข้อมูล"

End If
End Sub

ตรวจสอบ บรรทัดนี้ นะ

rs.close
Set rs = Nothing

เพราะถ้า Set rs = Nothing แล้ว ตัวแปรนั้นจะไม่สามารถใช้งานได้ต่อไป

ลองอันนี้หรือยังครับ

Private Sub b_lahutsin_DblClick(Cancel As Integer)

DoCmd.OpenForm "khormoon", , , "[s_lh] = '" & Me.Text26 & "'"

End Sub

ใส่ code แค่นี้พอ ถ้ายังไม่ได้ส่งไฟล์ให้ดูหน่อย เพราะต้องดูที่ตัวข้อมูลว่ามีอะไรบ้าง

ทำได้แล้วค่ะ
ใช้แบบนี้ไม่ error ค่ะ
Private Sub b_lahutsin_DblClick(Cancel As Integer)

DoCmd.OpenForm "khormoon", , , "[s_lh] = '" & Me.Text26 & "'"

End Sub
                             ขอบพระคุณทุกคนมากๆค่ะ