Private Sub cmdSearch_Click()
reg_no.SetFocus
DoCmd.FindRecord [Text64]
End Sub

ขอบคุณครับคุณ bb1รบกวนอีกครั้งนะครับ
1เมื่อค้นหาไม่เจอ ผมอยากให้แสดง Msgbox"ไม่มีเลขระเบียนที่ท่านต้องการ"
จะต้องทำยังไงเพิ่มเติมครับ
2.ถ้าอยู่เรคคอร์ดแรก อยากให้ ปุ่มรายการก่อนหน้านี้ ใช้งานไม่ได้ชั่วคราว
3.ถ้าอยู่เรคคอร์ดสุดท้าย อยากให้ ปุ่มรายการถัดไป ใช้งานไม่ได้ชั่วคราว
4.อยากให้ข้อความ" จำนวนเร็คคอร์ดที่ 1 / 23" แสดงบน Text50
คุณ bb1 เขียนโค้ดให้ 2 บรรทัด ก็สามารถใช้งานได้ตามความต้องการ
ต้องขอขอบคุณอีกครั้งครับ

ผมลองทำโดยดูตัวอย่างจาก ขุมทรัพย์ Part 1 ที่ อ.สุภาพเคยนำมาให้ดาวน์โหลด
ได้อย่างนี้ครับ
Private Sub Form_Current()
Dim recClone As Recordset
Set recClone = Me.RecordsetClone()
recClone.Bookmark = Me.Bookmark
recClone.MovePrevious
cmdPrevious.Enabled = Not (recClone.BOF)
cmdFirst.Enabled = Not (recClone.BOF)
recClone.MoveNext
recClone.MoveNext
cmdLast.Enabled = Not (recClone.EOF)
cmdNext.Enabled = Not (recClone.EOF)
recClone.MovePrevious
Me![Text50] = "จำนวนเร็คคอร์ดที่ " & (recClone.AbsolutePosition + 1) & "/" & DCount("reg_no", "tbregister")
recClone.Close
End Sub

Private Sub cmdSearch_Click()
reg_no.SetFocus
DoCmd.FindRecord [Text64]
If Text64 <> reg_no Then MsgBox "ไม่มีระเบียนที่ท่านต้องการ"
End Sub

คุณ bb1
ผมไม่รู้จะขอบคุณยังไง เอาเป็นว่าขอบคุณมากครับ
ผมดูโค้ดที่คุณให้มากับที่ผมลองหัดทำเอง ผมจึงรู้ว่าผมหลงทางไปไกลจริงๆ
มิหนำซ้ำยังไม่รู้ด้วยว่าจะเริ่มต้นยังไงดี
ผ่านไปได้ หนึ่งขั้น

ใช้กับ AccXP ไม่ได้ครับ
มันมีแถบสีเหลือง บรรทัดนี้ครับ Set recClone = Me.RecordsetClone()

ลองเปลี่ยน

Dim recClone As Recordset

ให้เป็น

Dim recClone As Object

ดูครับ

เปลียนแล้วยังเหมือนเดิมครับ
Private Sub Form_OnConnect()
Dim recClone As Object
Set recClone = Me.RecordsetClone()
recClone.Bookmark = Me.Bookmark
recClone.MovePrevious
cmdPrevious.Enabled = Not (recClone.BOF)
cmdFirst.Enabled = Not (recClone.BOF)
recClone.MoveNext
recClone.MoveNext
cmdLast.Enabled = Not (recClone.EOF)
cmdNext.Enabled = Not (recClone.EOF)
recClone.MovePrevious
Me![Text50] = "¨Ó¹Ç¹àÃ礤ÍÃì´·Õè " & (recClone.AbsolutePosition + 1) & "/" & DCount("reg_no", "tbregister")
recClone.Close
End Sub

ผมเปลี่ยนไปใช้ 97 เหมือนเดิมดีกว่า
ขอบคุณครับ

จากโค้ด
Private Sub cmdSearch_Click()
reg_no.SetFocus
DoCmd.FindRecord [Text64]
If Text64 <> reg_no Then MsgBox "ไม่มีระเบียนที่ท่านต้องการ"
End Sub


ผมลองเพิ่มโค้ดเพื่อให้มันตรวจสอบว่ากรอกเลขทะเบียนในText64 หรือยัง
พอลองทดสอบมันใช้ไม่ได้ครับ มันมีแถบสีเหลืองที่ DoCmd.FindRecord [Text64] ผมจะต้องแก้ไขตรงไหนครับ
Private Sub cmdSearch_Click()
Text64.SetFocus
If (Text64 = "") Then MsgBox "คุณยังไม่กรอกเลขทะเบียน"
reg_no.SetFocus
DoCmd.FindRecord [Text64]
If Text64 <> reg_no Then MsgBox "ไม่มีระเบียนที่ท่านต้องการ"
End Sub

ขอบคุณครับ

ลองอย่างนี้ดูครับ
Private Sub cmdSearch_Click()
If IsNull(Text64) Then
MsgBox "คุณยังไม่กรอกเลขทะเบียน"
Else
reg_no.SetFocus
DoCmd.FindRecord [Text64]
End If
If Text64 <> reg_no Then MsgBox "ไม่มีระเบียนที่ท่านต้องการ"
End Sub

ใช้ได้แล้วครับคุณ bb1
ขอบคุณครับ
.......................................................................................................
ผมขออนุญาตถามทุกคนต่อนะครับ

จากโค้ดข้างล่างนะครับเมื่อคลิกปุ่ม AddNew ทำไมมันใช้ ไม่ได้ครับ
มันจะมีแถบสีเหลืองที่ บรรทัด recClone.Bookmark = Me.Bookmark ครับ แต่พอเอาบรรทัดนี้ออกไป มันสามารถทำงานได้ครับกดเพิ่มข้อมูลได้
แต่ตรงนี้(recClone.AbsolutePosition + 1) มันเป็น เลข 1 ตลอดครับ ถึงแม้ว่าจะเลื่อนไประเบียนที่ 2 3 4 มันก็ยังเป็น เลข 1 เหมือนเดิม จะแก้ยังไงครับ

....................................................

Private Sub Form_Current()
Dim recClone As Recordset
Set recClone = Me.RecordsetClone()
recClone.Bookmark = Me.Bookmark
Me![txtRecord] = "ระเบียนที่ " & (recClone.AbsolutePosition + 1) & " จากทั้งหมด " & DCount("txtBookID", "tblBook") & " ระเบียน"
recClone.Close
End Sub

Private Sub cmdAddNew_Click()
On Error GoTo Err_cmdAddNew_Click


DoCmd.GoToRecord , , acNewRec

Exit_cmdAddNew_Click:
Exit Sub

Err_cmdAddNew_Click:
MsgBox Err.Description
Resume Exit_cmdAddNew_Click

End Sub

......................................................