Thursday May 25 , 2017

ยินดีต้อนรับสู่เวปไซด์ บริษัท ฟิงแทรค จำกัด

การจัดรูปแบบ Text file ของ fingerscan


การ นำ text file ที่ได้จากเครื่อง FingerScan มาจัดรูปแบบให้ตรงตามที่ต้องการ

ลักษณะ Text File ที่ได้จากเครื่อง Finger Scan
(คัดมาบางส่วน)
0000105001 02-03-2012 06:07 1
0000200011 02-03-2012 06:09 1
0000105001 02-03-2012 18:17 1
0000200011 02-03-2012 17:45 1

* จะเห็นว่าแต่จะรหัสพนักงาน จะมี Record 2 อัน คือเข้างาน กับออกงาน
มีวิธียังไงให้ข้อมูลดังกล่าว หลังจาก import text เข้ามาแล้วเข้าไปอยู่ในตารางที่เราจัดไว้ครับ

โดยผมออกแบบ Sheet ไว้ดังนี้

Sheet พนักงาน ( ไว้ map รหัสกับชื่อ )
0000105001 AAA
0000200011 BBB

Sheet รับข้อมูลจาก Text
0000105001 02-03-2012 06:07 1
0000200011 02-03-2012 06:09 1
0000105001 02-03-2012 18:17 1
0000200011 02-03-2012 17:45 1


Sheet สรุป ( ที่แปลงข้อมูลจาก Sheet รับข้อมูลจาก Text )

วันที่ วันที่ รวม
ลำดับ ชื่อ เข้างาน ออกงาน ปกติ/สาย OT เข้างาน ออกงาน ปกติ/สาย OT สาย OT ทั้งหมด

1 A
2 B

ปกติจะ Copy เวลาเองทีละตัว โดยดูรหัสกับวันที่ แล้ว Paste ให้ตรงช่อง ทำไปเรือยๆจบครบ
พอจะมีแนวทางให้ ที่ Sheet สรุป ในแต่ละคอลัม ในส่วนของวันที่ , เวลา จะสามารถดึงมาจาก Sheet รับข้อมูลจาก Text ยังไงบ้างครับ

* Sheet สรุป คิดว่าจะทำ 1 Sheet ต่อ/สัปดาห์ ( เท่ากับ3สัปดาห์แรก สัปดาห์ละ 7 วัน ส่วนสัปดาห์สุดท้ายก็รวมทั้งหมด)

กรณีบางคนรูดเข้า แต่ลืมรูดออก หรือรูดออก แต่ไม่ได้รูดเข้า ระบบจะให้มาเป็นอย่างไร ในtext มันมี indicator ตัวไหนที่จะใช้บอกว่า record นี้รูดเข้างาน หรือรูดออกงานอีกอย่าง สำคัญมาก

02/03/2012

หมายถึงวันที่ 2-Mar หรือ 3-Feb เพราะ textไฟล์มันไม่กำหนดตายตัวว่าจะใช้ format อะไร มิฉะนั้นระบบมันก็รวนคิดผิดๆ ถูกๆ
ว่าแต่คุณไม่มีเข้างาน 23:30 แล้วไปเลิก

การ Import Text File fingerscan เข้าฐานข้อมูล

เพื่อ Import ข้อมูลใน Text File ทั้งหมดมาใส่ใน Table ใน Access (ซึ่งได้สร้างรอไว้แล้ว )
โดยเมื่อ Click ก็ให้ขึ้นเป็น Dialog Browser (แบบใน Windows) ให้ User เลือกที่อยู่ของ File เอง
Text File ใช้เครื่องหมาย " | " เพื่อแยก Field แต่ละ Field
ทุกบรรทัดใน Field Text File เป็น Data ใน Table ทั้งหมด
บรรทัดแรก ของ Field Text File ไม่ได้เป็น Field Name ของ Table

Function TXTImport()
Dim pth As String
pth = GetOpenFile
DoCmd.TransferText acExportDelim, , LD0197F, pth, True
End Function

Private Sub Command0_Click()
TXTImport
End Sub

เมื่อกดปุ่มแล้วสามารถเลือกไฟล์ได้แล้วคะ แต่ ยังมี error เนื่องจากเขียน code
DoCmd.TransferText

ตัวอย่างที่แนะนำ เป็นการดึง Text file แบบ fix column ซึ่งผมใช้ดึง Text file มาจากเครื่อง Finger Scan (แสกนลายนิ้วมือ บันทึกเข้า ออกการทำงาน)

กรณีของคุณ มีน Text file เป็นแบบ fix column หรือเปล่าว แล้วใช้ Access เวอร์ชั่นไหนครับ

www.fingtrack.com

Fingerscan Products

More Recent Articles:

Relate Articles

More Recent Articles: