ไม่ทราบว่าตรงไหมครับ
http://www.thai-access.com/yeadram_view.php?topic_id=4053

ลองดูแล้วครับ คำสั่งใช้ไม่ได้ครับ ไม่รู้ว่าผมพลาดตรงไหน TT

ผมทำแบบนี้น่ะครับ ไม่ทราบว่าต้องแก้ตรงไหน



ชื่อฟอร์ม ข้อมูลคดี
ชื่อเท็กซ์บ็อกซ์ ค้นจำเลย
ครับ

Public Sub DoSearch()
Dim vText
Dim rst As Recordset
Set rst = Me.recordsetClone   
vText = ชื่อกล่องข้อความที่ต้องการค้น
   With rst
      .FindFirst "[เขตข้อมูลที่ต้องการค้น] = " & vText & "*"
      If Not .NoMatch Then   ' หากเจอข้อมูลที่ค้นหา
            Me.Bookmark = .Bookmark    'กำหนดเรคคอร์ดปัจจุบันบนฟอร์มตรงกันกับข้อมูลใน rst
   End With
End If

หากต้องการ ค้นหาถัดไปกรณีข้อมูลเหมือนกันหลายเรคคอร์ด
ให้นำตัวแปร rst ไปไว้ global scope
แล้วสร้างปุ่มค้นหาอีกปุ่ม โค้ดของปุ่มเป็นดังนี้

Dim vText

Set rst = Me.recordsetClone    
vText = ชื่อกล่องข้อความที่ต้องการค้น
   With rst
      .FindNext "[เขตข้อมูลที่ต้องการค้น] Like * " & vText & "*"    ' กรณีนี้ใช้ Like และ * เพื่อค้นทุกๆส่วนของฟิลด์ที่มีอักขระนั้นอยู่
      If Not .NoMatch Then   ' หากเจอข้อมูลที่ค้นหา
            Me.Bookmark = .Bookmark    'กำหนดเรคคอร์ดปัจจุบันบนฟอร์มตรงกันกับข้อมูลใน rst
   End With
End If

ประมาณนี้แหละคุณทนาย(นอกเมือง)
หากผิดพลาดรอท่านอื่นมาเสริมนะ พิมบนโทรศัพท์ลำบากสุดๆ

ผิดตรง acCurrent หรือเปล่าครับ?

ส่วนการค้นหา next record
อาจสร้าง public Variable เพื่อจำว่า คำค้นหาเหมือนเดิมหรือไม่
ถ้าไม่เหมือนเดิม ใช้ ,FindFirst
ุ้ถ้าเหมือนเดิม ใช้ .FindNext

Public Sub Command51_Click()
Dim vText
Dim rst As Recordset
Set rst = Me.RecordsetClone
vText = ค้นโจทก์
   With rst
      .FindFirst "[โจทก์] = " & vText & "*"
      If Not .NoMatch Then '
            Me.Bookmark = .Bookmark '
   End With
End If




ผมทำถูกมั้ยครับ