รบกวนสอบถามเรื่องโค้ดฟอร์มค้นหาครับ
กระทู้เก่าบอร์ด อ.Yeadram

 1,180   6
URL.หัวข้อ / URL รบกวนสอบถามเรื่องโค้ดฟอร์มค้นหาครับ

ผมทำฟอร์มค้นหามาดังรูปครับ โดยใส่เงื่อนไขว่าถ้าพิมค้นหาในช่อง รหัส หรือ ชื่อ แล้วไม่พบข้อมูลให้แสดงข้อความว่าไม่พบข้อมูลแล้วให้ลบข้อความที่ค้นหาออกแล้วโชว์เรคคอร์ดทั้งหมด
ปัญหาคือ พอผมค้นหาในช่องชื่อ แล้วไม่พบข้อมูลก็มีข้อความเตือนว่าไม่พบข้อมูลตามปกติแต่ใน text box ข้อความที่ค้นหามันไม่ลบออก แต่โชว์เรคคอร์ดทั้งหมดครับ

Private Sub CmdFind_Click()
    Dim rs As Recordset
    Set rs = Me.RecordsetClone

    Me.Requery
    
    If rs.RecordCount < 1 Then
    MsgBox "äÁ辺¢éÍÁÙÅ"
    Txt_Code = ""
    Txt_Cus_Name = ""
    Form_Load
    DoCmd.ShowAllRecords
          
    End If

    rs.Close
    Set rs = Nothing
    
End Sub
โดย: เก่ง เมื่อ: 30 ม.ค. 2557 , 08:59

6 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R17989
ไม่ทราบว่า Form_Load ทำอะไรบ้างครับ

ลองย้าย
    Txt_Code = ""
    Txt_Cus_Name = ""

มาไว้หลัง
    DoCmd.ShowAllRecords
โดย: PichaiTC เมื่อ: 30 ม.ค. 2557 , 11:01
2 @R17991
ผมได้ลองทำตามคำแนะนำแล้ว ผลที่ได้คือ เมื่อพิมค้นหาที่ text box ชื่อ Txt_Cus_Name แล้ว ระบบขึ้นเตือนว่า ไม่พบข้อมูลในระบบ ดังที่เราได้เขียนโค้ดไว้แต่พอปิด MSG Box ไปพบว่า ข้อความที่เราพิมค้นหาที่ text box ชื่อ Txt_Cus_Name ก็ยังอยู่ไม่หายไปและเรคคอร์ดทั้งหมดก็ไม่โชว์ให้เห็นครับ แต่ text box ชื่อ Txt_Code รันได้ตามปกติคือ เมื่อพิมค้นหาแล้ว ระบบก็แจ้งว่า ไม่พบข้อมูล และเมื่อปิดหน้าต่างนี้ไป text box ชื่อ Txt_Code ก็หายไปไม่มีข้อความที่ค้นหาอยู่ และเรคคอร์ดก็โชว์ข้อมูลมาทั้งหมดตามโค้ดครับ เลยสงสัยว่า ทำไม text box ชื่อ Txt_Cus_Name ติดปัญหาตรงไหนอ่าครับ ขอบคุณมากครับ
โดย: เก่ง เมื่อ: 30 ม.ค. 2557 , 11:41
3 @R17992
คงต้องลองตรวจสอบ property เกี่ยวกับ data ของ Txt_Cus_Name ให้ละเอียดครับ ว่ามีการกำหนดอะไรไว้บ้าง
หรือ ใน code Form_Load มีการกำหนดอะไรเกี่ยวกับ Txt_Cus_Name ไว้บ้าง
โดย: PichaiTC เมื่อ: 30 ม.ค. 2557 , 14:52
4 @R17993
ขอบคุณมากครับผม
โดย: เก่ง เมื่อ: 30 ม.ค. 2557 , 14:59
5 @R17994
Txt_Code.text = ""

Txt_Cus_Name.text = ""

ลองดูครับ
โดย: Akung เมื่อ: 30 ม.ค. 2557 , 17:22
6 @R17999
ขอบคุณมากครับผม
โดย: เก่ง เมื่อ: 1 ก.พ. 2557 , 01:30
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2550s