การค้นหาข้อมูลครับ

[Ittiphol Live]

ตอนนี้ผมใช้ช่องไว้พิมพ์ค้นหาข้อมูลได้แล้ว
แต่อยากจะให้มันแจ้งเตือนว่าไม่มีข้อมูลในระบบต้องทำอย่างไรครับ

อันนี้โค้ดที่ผมใช้

If IsNull(Me![SearchB]) Or (Me![SearchB]) = “” Then
MsgBox “กรุณาใส่หมายเลขสมาชิกที่ต้องการค้นหา”, vbOKOnly, “ไม่พบข้อมูล!”
End If
Me.Filter = “MemberID = ‘” & Me.SearchB & “‘”
Me.FilterOn = True
Me.Requery
Me.SearchB = “”

[admin]

ลองใช้ฟังก์ชั่น dlookup ดูครับ
เช่น

Dim chk
chk=Dlookup("[คอลัมป์ที่หา]","[ชื่อตาราง]","[ชื่อตาราง]![คอลัมป์ที่หา]='" & Me![SearchB] & "'")
If(IsNull(chk)) then
  msbgox "ไม่เจอข้อมูลที่ค้นหา"
Else
  'ถ้าหาเจอแล้วจะทำอะไรให้มาใส่ตรงนี้ครับ
End If

[Author]

Posts