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

UGETPROJECT.COM ฟอรั่ม ถามตอบปัญหา MS Access ค้นหาแล้วไม่เจอให้แสดง msgbox เตือน

กระทู้นี้ประกอบด้วย 0 ข้อความตอบกลับ มี 1 เสียง และอัปเดตครั้งสุดท้ายโดย  thaworn Panchan 4 เดือน, 3 สัปดาห์ มาแล้ว

กำลังดู 1 ข้อความ - 1 ผ่านทาง 1 (ของทั้งหมด 1)
  • ผู้เขียน
    ข้อความ
  • #1203

    thaworn Panchan
    Participant

    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 “พบ..เรคคอร์ด” (เพราะโปรแกรมต้องแสดงรูปด้วย)
    ขอขอบคุณน่ะครับ

กำลังดู 1 ข้อความ - 1 ผ่านทาง 1 (ของทั้งหมด 1)

คุณต้องเข้าสู่ระบบเพื่อตอบกลับกระทู้นี้