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

ลองเปลี่ยนไปใช้ 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

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

ถามเพิ่มเติมครับ ปรกติทำคนเดียวใช้ไฟล์เดียวที่อยู่ในเครื่องเหรอครับ หรือว่า ไฟล์อยู่ที่ server แล้วแชร์กันใช้

[Author]

Posts