คือผม ทำปุ่มค้นหาไว้ โดยใช้ โค้ดนี้
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 สิ่ง แต่ของสิ่งนั้นมันมีหลายรายการผมอยากให้มันโชว์ทุกรายการไม่ใช่แค่รายการแรกที่เจอครับ

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