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

[Eik Q Sang]

ผมทำ SubForm เป็นฟอร์มค้นหา ใน frmMainMenu แล้วลองเทสค้นหาระบบฟ้องแจ้ง Error ไม่รู้ว่าผิดตรงไหน รบกวนตรวจสอบว่าจะต้องแก้ไขอะไรอย่างไงบ้างครับ ขอบคุณมากครับผม

[PNR]

แก้ โค้ดปุ่มค้นหาเป็นแบบนี้ครับ

โค๊ด: [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


[Eik Q Sang]

ขอบคุณมากครับอาจารย์ คำสั่ง DoCmd.ApplyFilter , " FirstName like '*' & [Forms]![frmInquiry]![txt_FirstName] &'*'" อันนี้ผมเขียนโค้ดผิดใช่ไหมครับอาจารย์ หรือเป็นการอ้างอิงอีกฟอร์มนึงก็เลยเออเร่อใช่ไหมครับอาจารย์