Private Sub TextFind_AfterUpdate()
On Error GoTo Err_Find
Dim CutFName As String
Dim CutLName As String
Dim len_name As Byte
If IsNumeric(TextFind) Then 'MsgBox "เป็นตัวเลข"
DoCmd.ApplyFilter , "รหัสประจำตัว like '" & [TextFind] & "*'เลขประจำตัวประชาชน like '" & [TextFind] & "*'"
len_name = 0
End If
If Not IsNumeric(TextFind) Then 'MsgBox "เป็นตัวหนังสือ"
len_name = InStr([TextFind], " ")
If len_name > 0 Then
CutFName = Left([TextFind], [len_name] - 1)
CutLName = Right([TextFind], Len(TextFind) - [len_name])
DoCmd.ApplyFilter , "ชื่อ like '" & [CutFName] & "*' and นามสกุล Like '" & [CutLName] & "*'"
Else
DoCmd.ApplyFilter , "ชื่อ like '" & [TextFind] & "*' Or นามสกุล Like '" & [TextFind] & "*'"
End If
End If
TextFind = Null
TextFind.SetFocus
Exit Sub
Err_Find:
TextFind = Null
TextFind.SetFocus
End Sub
ผมต้องการ ค้นหาพบ ให้แสดงข้อมูล (ปัจจุบันเป็นเช่นนั้นแล้ว) แต่หากค้นหาไม่พบให้แสดง .ข้อความว่าไม่พบ. (แบบเดิมแสดงเป็นแถวว่างไม่มีข้อมูล เหมือนการเพิ่มแถวอัตโนมัติ ตรวจสอบใน Mysql) จะเพิ่มโค๊ตตรงไหนครับ
