ค้นหาแล้วไม่เจอให้แสดง msgbox เตือน

[thaworn Panchan]

Private Sub CmdFind_Click()
Dim strFindName As String

If IsNull(Me.TxtFind) Or (Me.TxtFind) = “” Then
MsgBox “ใส่ข้อมูลไม่ครบ โปรดตรวจสอบ”
Me.TxtFind.SetFocus
Else
strFindName = “SELECT * FROM [บุคคลากร] WHERE [ชื่อ-นามสกุล] LIKE ‘” & TxtFind & “*’;”
Me.RecordSource = strFindName
Me.Requery
Me.TxtFind.SetFocus
Me.TxtFind = Null
End If

สวัสดีครับ…
คือจากตัวอย่าง Code ที่ผมแนบมา ผมอยากให้ทำงานเพิ่ม คือ
1.เมื่อค้นแล้ว ไม่พบเรคคอร์ด จะต้อง msgbox “ไม่พบข้อมูล”
2.เมื่อค้นแล้ว พบมากกว่า 1 เรคคอร์ด ให้แสดง msgbox “พบ..เรคคอร์ด” (เพราะโปรแกรมต้องแสดงรูปด้วย)
ขอขอบคุณน่ะครับ

[ปิ่นณรงค์]

Private Sub CmdFind_Click()
Dim strFindName As String
Dim intCount As Integer

If IsNull(Me.TxtFind) Or (Me.TxtFind) = "" Then
MsgBox "ใส่ข้อมูลไม่ครบ โปรดตรวจสอบ"
Me.TxtFind.SetFocus
Else
strFindName = "SELECT * FROM [บุคคลากร] WHERE [ชื่อ-นามสกุล] LIKE '" & TxtFind & "*';"
Me.RecordSource = strFindName

intCount = DCount("*", "บุคคลากร", "[ชื่อ-นามสกุล] = '" & [Forms]![ชื่อฟอร์ม]![TxtFind] & "'")

If intCount > 1 Then
MsgBox "พบ " & intCount & " เรคคอร์ด", vbInformation, "ค้นหาRecord"

ElseIf intCount = 0 Then
MsgBox "ไม่พบข้อมูล", vbCritical, "ค้นหาRecord"
End If

Me.Requery
Me.TxtFind.SetFocus
Me.TxtFind = Null
End If
End Sub

ลองดูครับ ตรงชื่อฟอร์มที่ผมใส่สีแดง ใส่ชื่อฟอร์มเข้าไปด้วยนะครับ

[thaworn Panchan]

ขอขอบคุณ  คุณปิ่นณรงค์มากครับ...ผมจะนำไปใช้เลยครับ...ขอบคุณครับ

[thaworn Panchan]

สวัสดีครับ ขอถามเพิ่มอีกน่ะครับ จากคำสั่ง intCount = DCount("*", "บุคคลากร", "[ชื่อ-นามสกุล] = '" & [Forms]![ชื่อฟอร์ม]![TxtFind] & "'")
ผมอยากใหค้นเจอเพียงบางส่วนที่อยู่ข้างหน้าก็ถือว่าเจอ เช่น
ข้อมูลมี[ชื่อ-นามสกุล]= "กขค","กกค" ...เป็นต้น
ทีนี้เมื่อเราพิมพ์คำค้นใน [TxtFind] ว่า "ก"  ผลที่ได้คือ intCount = 0  ซึ่ง ผมอยากให้มันค้นเจอ คือ intCount = 2
และเมื่อพิมพ์คำค้นใน [TxtFind] ว่า "กก"   ผลที่ได้คือ intCount = 0  ซึ่ง ผมอยากให้มันค้นเจอ คือ intCount = 1
อย่างนี้จะต้องแก้Code อย่างไรครับ...ขอขอบคุณครับ

[ปิ่นณรงค์]

โค๊ด: [Select]

intCount = DCount("*", "[บุคคลากร]", "[ชื่อ-นามสกุล] Like """ & [Forms]![ชื่อฟอร์ม]![TxtFind] & "*""")
การทำงาน ถ้าที่ textbox ถ้าเราคีย์ กก ผลการทำงานคือนับถ้าข้อมูลมี กก* ครับ ถ้าข้อมูลมี กกข กกค กขค ผลนับจะเท่ากับ 2 แต่ถ้าพิมพ์ ค จะไม่เจอเพราะไม่ได้อยู่ด้านหน้าของข้อความครับ

คือด้านหลังของข้อความเป็นอะไรก็ได้ แต่จะนับถ้ามีด้านหน้าของข้อความไปเรื่อยๆครับ

[thaworn Panchan]

ขอขอบคุณ  คุณปิ่นณรงค์อีกครั้งน่ะครับ..

[thaworn Panchan]

สร้างฟอร์มให้ค้นหาข้อมูลบุคคลากร โดยให้ค้นได้ 2 ทาง เพื่อให้ผู้มาติดต่อใช้งานค้นหา คือ
1.ค้นจากชื่อ เลยสร้างฟอร์มให้มี datasource เป็นตาราง "ข้อมูลส่วนตัว" ใช้ค้นข้อมูลจากชื่อ เป็นฟอร์มหลัก  และ
2.ค้นจากแผนกงาน เลยสร้างเป็น subform ที่มี datasource เป็นตาราง"แผนกงาน" ใช้ค้นข้อมูลจากแผนกงาน เป็นฟอร์มย่อยที่อยู่ในฟอร์มหลัก (ข้อ 1.)
     ทีนี่อยากจะขอให้ช่วย คือ เมื่อผู้ใช้บริการคนแรก มา ใส่ชื่อพนักงาน ค้นหา แล้ว พบ และแสดงข้อมูลมาแล้ว แต่เมื่อผู้ใช้คบริการคนถัดไปมาจะค้นหาจากแผนกงาน แต่ข้อมูลของบุคคลากรคนเก่ายังค้างอยู่ที่หน้าจอทำให้เมื่อค้นจากแผนกงานได้ข้อมูลใหม่มาแล้วแต่หน้าจอฟอร์มหลักยังแสดงข้อมูลที่เกิดจากการค้นหาของคนแรกอยู่ จะล้างข้อมูลที่เกิดจากการค้นหาของคนแรกได้อย่างไรครับ...ขอขอบคุณครับ

[ปิ่นณรงค์]

สร้างฟอร์มให้ค้นหาข้อมูลบุคคลากร โดยให้ค้นได้ 2 ทาง เพื่อให้ผู้มาติดต่อใช้งานค้นหา คือ
1.ค้นจากชื่อ เลยสร้างฟอร์มให้มี datasource เป็นตาราง "ข้อมูลส่วนตัว" ใช้ค้นข้อมูลจากชื่อ เป็นฟอร์มหลัก  และ
2.ค้นจากแผนกงาน เลยสร้างเป็น subform ที่มี datasource เป็นตาราง"แผนกงาน" ใช้ค้นข้อมูลจากแผนกงาน เป็นฟอร์มย่อยที่อยู่ในฟอร์มหลัก (ข้อ 1.)
     ทีนี่อยากจะขอให้ช่วย คือ เมื่อผู้ใช้บริการคนแรก มา ใส่ชื่อพนักงาน ค้นหา แล้ว พบ และแสดงข้อมูลมาแล้ว แต่เมื่อผู้ใช้คบริการคนถัดไปมาจะค้นหาจากแผนกงาน แต่ข้อมูลของบุคคลากรคนเก่ายังค้างอยู่ที่หน้าจอทำให้เมื่อค้นจากแผนกงานได้ข้อมูลใหม่มาแล้วแต่หน้าจอฟอร์มหลักยังแสดงข้อมูลที่เกิดจากการค้นหาของคนแรกอยู่ จะล้างข้อมูลที่เกิดจากการค้นหาของคนแรกได้อย่างไรครับ...ขอขอบคุณครับ

ผมสมมุติ textbox ค้นหาจากชื่อว่า txtFindName
           textbox ค้นหาจากแผนกว่า txtFindDepartment
           Form หลักชื่อ FrmMain

ถ้าต้องการให้ล้างค่าที่กรอกไว้ของ txtFindName ออกไป ก็กำหนด Event GotFocus เอาก็ได้ครับเช่น

Private Sub txtFindDepartment_GotFocus()
Forms!frmMain.txtFindName = Null
Forms!frmMain.txtFindName.Requery
Me.txtFindDepartment.Requery
End Sub

ที่ผมสั่ง Forms!frmMain.txtFindName.Requery เผื่อว่าคุณใช้การแสดง การค้นหาโดยใช้ Criteria จาก Query
พอเราสั่ง = null แล้ว Requery ข้อมูลที่แสดงก็จะหายไปครับ

[thaworn Panchan]

ขอขอบคุณมากน่ะครับ..แต่ติดอีกนิด คือ ค่าที่กรอกใน txtFindName หายไปครับ แต่ค่าที่แสดงจากการค้นหานั้นไม่หายไปครับ ซึ่งการค้นหาไม่ได้ใช้คิวรี่ แต่ใช้คำสั่งนี้น่ะครับ
strFindName = "SELECT * FROM [Personal_ST26] WHERE [MName] LIKE '" & TxtFindName & "*';"
Me.RecordSource = strFindName
Me.ImaPic.Picture = CurrentProject.Path & Me.TxtPicturePath   'ใช้แสดงรูปน่ะครับ
จะล้างข้อมูลที่ค้นเจอนี้อย่างไรครับ...ขอขอบคุณมากครับ

[ปิ่นณรงค์]

ถ้าแบบนี้ละครับ

โค๊ด: [Select]

Private Sub TxtFindDapartment_GotFocus()
Dim strFindName As String
If Not IsNull(Me.Parent.TxtFindName) Then
Me.Parent.TxtFindName = Null
Me.Parent.TxtPicturePath = ""
strFindName = "SELECT * FROM [Personal_ST26] WHERE [MName] = null ;"
Me.Parent.RecordSource = strFindName
End Sub

[thaworn Panchan]

สวัสดีครับ....เมื่อแก้โค้ดแล้ว รันดู..ติดปัญหาคือ
run-time error 2467
นิพจน์ที่คุณใส่นั้นอ้างไปถึงวัตถุที่ปิดอยู่หรือไม่มีอยู่
และเมื่อกด debug  จะมีไฮไลท์ขึ้นที่ 
Me.Parent.ImaPic.Picture = ""
ไม่ทราบจะแก้อย่างไรดีครับ...ขอรบกวนน่ะครับ

[ปิ่นณรงค์]

ถ้าแบบนี้ละครับ ถ้าไม่ได้ก็ teamviewer ไปดูให้ก็ได้นะครับ 

โค๊ด: [Select]

Private Sub TxtFindDapartment_GotFocus()
Dim strFindName As String
If Not IsNull(Me.Parent.TxtFindName) Then
Me.Parent.TxtFindName = Null
Me.Parent.TxtPicturePath = ""
strFindName = "SELECT * FROM [Personal_ST26] WHERE [MName] = null ;"
Me.Parent.RecordSource = strFindName
End Sub

[thaworn Panchan]

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

[OddyWriter]

เข้าไปที่นี่ เลือกตัวฟรีครับ

https://www.teamviewer.com/th/

[thaworn Panchan]

เข้าไม่ได้ครับ..
ไม่สามารถเข้าถึงเว็บไซต์นี้ download.teamviewer.com ใช้เวลาตอบกลับนานเกินไป
ลอง:

ตรวจสอบการเชื่อมต่อ
ตรวจสอบพร็อกซีและไฟร์วอลล์
เรียกใช้การวินิจฉัยเครือข่ายของ Windows
ERR_TIMED_OUT


..มีวิธีอื่นไหมครับ  ขอบคุณครับ

[ปิ่นณรงค์]

https://dl.teamviewer.com/download/TeamViewer_Setup.exe

Link ตรงคับ

[thaworn Panchan]

load ได้แล้วครับ แล้วให้ setup.exe ธรรมดาใช่ไหมครับ...

[ปิ่นณรงค์]

ธรรมดา มันจะมีให้ติ๊ก business กับ None commer...... ติ๊ก None แล้ว Next ยาวๆ พอติดตั้งเสร็จมันจะมี ID กับ password ของเรา ก็เอารหัสนั้นส่งให้ผมทาง Inbox ครับ