ทำซับฟอร์มค้นหาแล้วเกิด Error



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

10 ก.พ. 64 , 14:48:17
อ่าน 189 ครั้ง

Eik Q Sang

ทำซับฟอร์มค้นหาแล้วเกิด Error
« เมื่อ: 10 ก.พ. 64 , 14:48:17 »
ผมทำ SubForm เป็นฟอร์มค้นหา ใน frmMainMenu แล้วลองเทสค้นหาระบบฟ้องแจ้ง Error ไม่รู้ว่าผิดตรงไหน รบกวนตรวจสอบว่าจะต้องแก้ไขอะไรอย่างไงบ้างครับ ขอบคุณมากครับผม

 

10 ก.พ. 64 , 15:26:48
ตอบกลับ #1

PNR

: ทำซับฟอร์มค้นหาแล้วเกิด Error
« ตอบกลับ #1 เมื่อ: 10 ก.พ. 64 , 15:26:48 »
แก้ โค้ดปุ่มค้นหาเป็นแบบนี้ครับ

โค๊ด: [Select]
Private Sub Command14_Click()
If IsNull(txt_FirstName) And IsNull(txt_NickName) Then
MsgBox "กรุณาระบุ ชื่อพนักงาน หรือ ชื่อเล่น ก่อนค้นหา’", vbOKOnly, "Warning !!"
txt_EmpID2.SetFocus

ElseIf Not IsNull(txt_FirstName) And IsNull(txt_NickName) Then
Me.Filter = "(((FirstName) Like '*" & txt_FirstName & "*'))"
Me.FilterOn = True


ElseIf IsNull(txt_FirstName) And Not IsNull(txt_NickName) Then
Me.Filter = "(((NickName) Like '*" & txt_NickName & "*'))"
Me.FilterOn = True

End If
If IsNull(txt_EmpID2) Then
MsgBox "ไม่พบข้อมูล !!", vbOKOnly, "Warning !!"
Me.FilterOn = False
End If
Me.Refresh
End Sub
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

11 ก.พ. 64 , 10:22:50
ตอบกลับ #2

Eik Q Sang

: ทำซับฟอร์มค้นหาแล้วเกิด Error
« ตอบกลับ #2 เมื่อ: 11 ก.พ. 64 , 10:22:50 »
ขอบคุณมากครับอาจารย์ คำสั่ง DoCmd.ApplyFilter , " FirstName like '*' & [Forms]![frmInquiry]![txt_FirstName] &'*'" อันนี้ผมเขียนโค้ดผิดใช่ไหมครับอาจารย์ หรือเป็นการอ้างอิงอีกฟอร์มนึงก็เลยเออเร่อใช่ไหมครับอาจารย์

 


บอร์ดเรียนรู้ Access สำหรับคนไทย