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


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

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

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
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: 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 สำหรับคนไทย


 

Sitemap 1 2 3 4 5