Msg box แจ้งเตือน กรณีค้นหาด้วย Keyword แล้วไม่พบ

[Tatchawin]

สวัสดีครับ

กำลังทำฟอร์มค้นหาใน MS Access ครับ โดยมีโค้ดตามด้านล่างนี้ ซึ่งผมต้องการสร้างเงื่อนไข เพื่อเช็คว่าถ้าค้นหาด้วย Keyword แล้วไม่พบ
ให้มี Msg box แจ้งเตือนขึ้นมา พอจะมีแนวทางแนะนำหรือช่วยเขียนโค้ดต่อให้ดูเปนตัวอย่างได้ไหมครับ

ขอบพระคุณมากๆครับ



Private Sub cmdSearch_Click()
    If IsNull(Me.txtSearch) Then
        MsgBox "Please fill keyword for search in search box", , "Keyword for Search"
        Me.txtSearch.SetFocus
    Else
        Dim strsearch As String
        Dim strText As String
        strText = Me.txtSearch.Value
        strsearch = "SELECT * from qryAllergic where ((BrieflySCGEmployeeID like ""*" & strText & "*"") or (EmpName like ""*" & strText & "*"") or (AllergicName like ""*" & strText & "*""))"
        Me.RecordSource = strsearch
    End If
End Sub

[สันติสุข]

...
...
...
        Me.RecordSource = strsearch
        If Me.Recordset.RecordCount <= 0 Then
            Msgbox .....
        End If
...
...
...

[Tatchawin]

ขอบคุณมากครับ ทำได้แล้วครับ

[แดนชัย]

ขอไพล์ตัวอย่างหน่อยครับ