กระทู้เก่าบอร์ด อ.Yeadram
909 8
URL.หัวข้อ /
URL
สร้าง Command button ที่ใช้ค้นหาส่วนหนึ่งของคำ
ผมอยากได้ปุ่มที่ใช้ค้นหา record จากส่วนหนึ่งของคำที่ป้อนใน textbox ครับ
เช่น เวลาที่เราป้อนคำใน textbox เพียงส่วนนึง เมื่อคลิกที่ปุ่มค้นหาแล้วจะแสดงข้อมูลที่มีคำที่เราป้อนออกมาน่ะครับ
ประมานนี้ครับ
เช่น เวลาที่เราป้อนคำใน textbox เพียงส่วนนึง เมื่อคลิกที่ปุ่มค้นหาแล้วจะแสดงข้อมูลที่มีคำที่เราป้อนออกมาน่ะครับ
ประมานนี้ครับ
8 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R23093
ลองดูแล้วครับ คำสั่งใช้ไม่ได้ครับ ไม่รู้ว่าผมพลาดตรงไหน TT
3 @R23094
ผมทำแบบนี้น่ะครับ ไม่ทราบว่าต้องแก้ตรงไหน
ชื่อฟอร์ม ข้อมูลคดี
ชื่อเท็กซ์บ็อกซ์ ค้นจำเลย
ครับ
ชื่อฟอร์ม ข้อมูลคดี
ชื่อเท็กซ์บ็อกซ์ ค้นจำเลย
ครับ
4 @R23096
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
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
5 @R23097
หากต้องการ ค้นหาถัดไปกรณีข้อมูลเหมือนกันหลายเรคคอร์ด
ให้นำตัวแปร 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
ให้นำตัวแปร 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
6 @R23098
ประมาณนี้แหละคุณทนาย(นอกเมือง)
หากผิดพลาดรอท่านอื่นมาเสริมนะ พิมบนโทรศัพท์ลำบากสุดๆ
หากผิดพลาดรอท่านอื่นมาเสริมนะ พิมบนโทรศัพท์ลำบากสุดๆ
7 @R23100
ผิดตรง acCurrent หรือเปล่าครับ?
ส่วนการค้นหา next record
อาจสร้าง public Variable เพื่อจำว่า คำค้นหาเหมือนเดิมหรือไม่
ถ้าไม่เหมือนเดิม ใช้ ,FindFirst
ุ้ถ้าเหมือนเดิม ใช้ .FindNext
ส่วนการค้นหา next record
อาจสร้าง public Variable เพื่อจำว่า คำค้นหาเหมือนเดิมหรือไม่
ถ้าไม่เหมือนเดิม ใช้ ,FindFirst
ุ้ถ้าเหมือนเดิม ใช้ .FindNext
8 @R23101
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
ผมทำถูกมั้ยครับ
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
ผมทำถูกมั้ยครับ
Time: 0.3671s
http://www.thai-access.com/yeadram_view.php?topic_id=4053