แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - thaworn Panchan

หน้า: [1]
1
ห้อง MS Access / : ค้นหาแล้วไม่เจอให้แสดง msgbox เตือน
« เมื่อ: 01 พ.ค. 62 , 13:04:59 »
ผมส่งไฟล์ไปแล้วน่ะครับ...ขออธิบายหน่อยน่ะครับ ผมไม่ได้ส่งรูป และ แผนผังมาให้น่ะครับมาให้น่ะครับ...มันใหญ่ผมพยายามตัดออกไปบ้างน่ะครับ
1.เมื่อ ค้นหาชื่อเจอแล้ว ให้แสดงรูป และ เส้นทางไปหา
2.ถ้าไมาทราบชื่อก็ให้ค้นจาก แผนกงาน และเมื่อเจอแล้ว ก็ให้แสดงเส้นทางไปหา เช่นกัน (ไม่ต้องแสดงรูป)

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

2
ห้อง MS Access / : ค้นหาแล้วไม่เจอให้แสดง msgbox เตือน
« เมื่อ: 01 พ.ค. 62 , 11:46:59 »
โอ้แย่แล้ว...พอดีเป็นเครื่องที่ทำงาน เค้า Block ไม่ให้ภายนอกเข้ามาได้ครับ....ให้ผมส่งไฟล์ไปให้ หรือ ให้ทำอย่างไรดีครับ....ขอบคุณครับ

3
ห้อง MS Access / : ค้นหาแล้วไม่เจอให้แสดง msgbox เตือน
« เมื่อ: 01 พ.ค. 62 , 11:14:07 »
load ได้แล้วครับ แล้วให้ setup.exe ธรรมดาใช่ไหมครับ...

4
ห้อง MS Access / : ค้นหาแล้วไม่เจอให้แสดง msgbox เตือน
« เมื่อ: 01 พ.ค. 62 , 10:27:43 »
เข้าไม่ได้ครับ..
ไม่สามารถเข้าถึงเว็บไซต์นี้ download.teamviewer.com ใช้เวลาตอบกลับนานเกินไป
ลอง:

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


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

5
ห้อง MS Access / : ค้นหาแล้วไม่เจอให้แสดง msgbox เตือน
« เมื่อ: 01 พ.ค. 62 , 08:54:35 »
สวัสดีครับ...คือผมเพิ่งเป็นสมาชิก ไม่รู้จัก teamviewer และยินดีให้ดูให้น่ะครับ  ผมจะต้องทำอย่างไรบ้างครับ...ขอขอบคุณครับ

6
ห้อง MS Access / : ค้นหาแล้วไม่เจอให้แสดง msgbox เตือน
« เมื่อ: 30 เม.ย. 62 , 16:10:32 »
สวัสดีครับ....เมื่อแก้โค้ดแล้ว รันดู..ติดปัญหาคือ
run-time error 2467
นิพจน์ที่คุณใส่นั้นอ้างไปถึงวัตถุที่ปิดอยู่หรือไม่มีอยู่
และเมื่อกด debug  จะมีไฮไลท์ขึ้นที่ 
Me.Parent.ImaPic.Picture = ""
ไม่ทราบจะแก้อย่างไรดีครับ...ขอรบกวนน่ะครับ

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

8
ห้อง MS Access / จะล้างข้อมูลที่เกิดจากการค้นหาของคนแรกได้อย่างไรครับ
« เมื่อ: 29 เม.ย. 62 , 16:47:04 »
สร้างฟอร์มให้ค้นหาข้อมูลบุคคลากร โดยให้ค้นได้ 2 ทาง เพื่อให้ผู้มาติดต่อใช้งานค้นหา คือ
1.ค้นจากชื่อ เลยสร้างฟอร์มให้มี datasource เป็นตาราง "ข้อมูลส่วนตัว" ใช้ค้นข้อมูลจากชื่อ เป็นฟอร์มหลัก  และ
2.ค้นจากแผนกงาน เลยสร้างเป็น subform ที่มี datasource เป็นตาราง"แผนกงาน" ใช้ค้นข้อมูลจากแผนกงาน เป็นฟอร์มย่อยที่อยู่ในฟอร์มหลัก (ข้อ 1.)
     ทีนี่อยากจะขอให้ช่วย คือ เมื่อผู้ใช้บริการคนแรก มา ใส่ชื่อพนักงาน ค้นหา แล้ว พบ และแสดงข้อมูลมาแล้ว แต่เมื่อผู้ใช้คบริการคนถัดไปมาจะค้นหาจากแผนกงาน แต่ข้อมูลของบุคคลากรคนเก่ายังค้างอยู่ที่หน้าจอทำให้เมื่อค้นจากแผนกงานได้ข้อมูลใหม่มาแล้วแต่หน้าจอฟอร์มหลักยังแสดงข้อมูลที่เกิดจากการค้นหาของคนแรกอยู่ จะล้างข้อมูลที่เกิดจากการค้นหาของคนแรกได้อย่างไรครับ...ขอขอบคุณครับ


9
ห้อง MS Access / : ค้นหาแล้วไม่เจอให้แสดง msgbox เตือน
« เมื่อ: 25 เม.ย. 62 , 16:27:42 »
ขอขอบคุณ  คุณปิ่นณรงค์อีกครั้งน่ะครับ..

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

11
ห้อง MS Access / : ค้นหาแล้วไม่เจอให้แสดง msgbox เตือน
« เมื่อ: 22 เม.ย. 62 , 16:09:13 »
ขอขอบคุณ  คุณปิ่นณรงค์มากครับ...ผมจะนำไปใช้เลยครับ...ขอบคุณครับ

12
ห้อง MS Access / ค้นหาแล้วไม่เจอให้แสดง msgbox เตือน
« เมื่อ: 22 เม.ย. 62 , 10:43:16 »
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 “พบ..เรคคอร์ด” (เพราะโปรแกรมต้องแสดงรูปด้วย)
ขอขอบคุณน่ะครับ

หน้า: [1]