ผมอยากให้ปุ่มค้นหา เจอข้อมูลที่ซ้ำกันหลายๆตัว
กระทู้เก่าบอร์ด อ.Yeadram

 678   1
URL.หัวข้อ / URL
ผมอยากให้ปุ่มค้นหา เจอข้อมูลที่ซ้ำกันหลายๆตัว

คือผม ทำปุ่มค้นหาไว้ โดยใช้ โค้ดนี้
Private Sub SearchEditCom_Click()
    Dim SQLEditCom As String
    Dim dbInfo As DAO.Database
    Dim recordSetEditCom As DAO.Recordset
    Set dbInfo = CurrentDb()
    SQLEditCom = "SELECT * FROM CompensateDetail WHERE RegisNO='" & Me.RegisNOSearch & "'"
    Set recordSetEditCom = dbInfo.OpenRecordset(SQLEditCom)
    If Not recordSetEditCom.EOF Then
        Me.ComIDEditCom = recordSetEditCom![ComID]
        Me.UnitNameEditCom = recordSetEditCom![UnitName]
        Me.CatNameEditCom = recordSetEditCom![CatName]
        Me.TypeNameEditCom = recordSetEditCom![TypeName]
        Me.MenuNameEditCom = recordSetEditCom![MenuName]
        Me.RegNOEditCom = recordSetEditCom![RegNO]
        Me.RegisNOEditCom = recordSetEditCom![RegisNO]
        Me.MenuYearEditCom = recordSetEditCom![MenuYear]
        Me.NoteEditCom = recordSetEditCom![Note]
    Else
        MsgBox ("Not Found Data")
    End If
    recordSetEditCom.Close

End Sub

แต่โค้ดนี้มันจะหาแค่ข้อมูลที่พบตัวแรกมาแสดงตัวเดียวแต่ผมอยากให้มันแสดงข้อมูลทุกตัวที่มันซ้ำกันเวลาผมค้นหา เช่น ผมอยากค้นหาของ 1 สิ่ง แต่ของสิ่งนั้นมันมีหลายรายการผมอยากให้มันโชว์ทุกรายการไม่ใช่แค่รายการแรกที่เจอครับ

ใครพอจะมีวิธีบ้างขอบคุณครับ

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

1 @R23102
1. ให้สร้างฟอร์มผูกเข้ากับเทเบิล CompensateDetail โดยกำหนด RecordSource property ของฟอร์มเป็น CompensateDetail
2. สร้างแต่ละเท็กบ็อกซ์ของฟอร์มให้ผูกกับฟิลด์ต่างๆที่ต้องการ โดยกำหนด ControlSource property ของเท็กซ์บ็อกซ์เป็นชื่อฟิลด์ในเทเบิล
3. กำหนด DefaultView ของฟอร์มให้เป็น Continuous Forms
4. โค้ดที่สั่งให้ฟอร์มแสดงเรคอร์ดตาม SQL statement ที่ต้องการก็คือ

    Me.RecordSource = "SELECT * FROM CompensateDetail WHERE RegisNO='" & Me.RegisNOSearch & "'"
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3320s