ค้นหาแล้วไม่เจอให้แสดง msgbox เตือน

[thaworn Panchan]

Private Sub CmdFind_Click()
Dim strFindName As String

If IsNull(Me.TxtFind) Or (Me.TxtFind) = “” Then
MsgBox “ใส่ข้อมูลไม่ครบ โปรดตรวจสอบ”
Me.TxtFind.SetFocus
Else
strFindName = “SELECT * FROM [บุคคลากร] WHERE [ชื่อ-นามสกุล] LIKE ‘” & TxtFind & “*’;”
Me.RecordSource = strFindName
Me.Requery
Me.TxtFind.SetFocus
Me.TxtFind = Null
End If

สวัสดีครับ…
คือจากตัวอย่าง Code ที่ผมแนบมา ผมอยากให้ทำงานเพิ่ม คือ
1.เมื่อค้นแล้ว ไม่พบเรคคอร์ด จะต้อง msgbox “ไม่พบข้อมูล”
2.เมื่อค้นแล้ว พบมากกว่า 1 เรคคอร์ด ให้แสดง msgbox “พบ..เรคคอร์ด” (เพราะโปรแกรมต้องแสดงรูปด้วย)
ขอขอบคุณน่ะครับ

[กิติศักดิ์ แซ่เฮง]

ลองเปลี่ยนไปใช้ DCount ดูนะครับ ใช้งานง่ายมากครับ ผมไกด์ให้นิดนึงนะครับ ลึก ๆ ลองหาข้อมูลดูครับ

If IsNull(Me.TxtFind) Or (Me.TxtFind) = “” Then
    MsgBox “ใส่ข้อมูลไม่ครบ โปรดตรวจสอบ”
    Me.TxtFind.SetFocus
Else
    ckk=DCount("*","[บุคคลากร]","[ชื่อ-นามสกุล]='" & TxtFind  & "'")
    if(isNull(ckk) or ckk=0) then 
        MsgBox "ไม่พบข้อมูล"
    else
        MsgBox "พบ " & ckk & " เรคคอร์ด"
    endif
End If

[Author]

Posts