แสดงกระทู้

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 - laemthong

หน้า: [1]
1
MS Access ดึงข้อมูล จากเครื่องแสกนลายนิ้วมือ ที่บันทึกเวลา เข้า ออก  เพื่อวิเคราะห์ ป่วยสาย ลา มา ขาด

2
หาเจอในเวปพอดีครับ.....จาก link นี้ครับ..


How to Disable Microsoft Office Access Security Notice
ตามภาพ ครับ....




3
เรียนสอบถาม อาจารย์  TTT และอาจารย์ทุกท่านครับ จาก Link นี้ครับ....
https://www.thai-access.com/yeadram_view.php?topic_id=2623

จะมีวิธีการอย่างไรครับ ที่จะไม่ให้ภาพนี้แสดง หลังจาก ทำการ  link ตารางในฐานข้อมูลที่ติด password
ภาพนี้จะขึ้น สองครั้ง ถ้ามีการ link able 2 table

VBA Code ที่นำมาประยุกต์ใช้ครับ

Sub LinkTable()
Dim StrPath As String
Dim tdTable As TableDef
Dim dbDataDB As Database
Dim strMyDataDB As String
        DoCmd.DeleteObject acTable, "USERINFO"
         DoCmd.DeleteObject acTable, "CHECKINOUT"


If IsNull(Me.Path) Then
MsgBox "ระบุตำแหน่ง Back End ที่จะ Link ก่อน!!!", vbInformation, "Status"
Else
StrPath = Me.Path
strMyDataDB = StrPath
   
    'Set dbDataDB = OpenDatabase(strMyDataDB)
     Set dbDataDB = OpenDatabase(strMyDataDB, False, False, ";pwd=hippmforyou")
        DoCmd.TransferDatabase TransferType:=acLink, DatabaseType:="Microsoft Access", DatabaseName:=StrPath, objecttype:=acTable, Source:="USERINFO", Destination:="USERINFO"
        DoCmd.TransferDatabase TransferType:=acLink, DatabaseType:="Microsoft Access", DatabaseName:=StrPath, objecttype:=acTable, Source:="CHECKINOUT", Destination:="CHECKINOUT"

End If
End Sub

4
เรียน อ.ปิ่นณรงค์    ในทางกลับกัน ถ้าเราจะเอา ตาราง "TEMPTABLE"  กลับคืน ไปสู่ ตาราง "DATA"  เราจะมีวิธีการเขียน Function อย่างไรครับ?
 (ผมลองใช้ Crosstab ก็ได้ ผลตามต้องการครับ ใช้ code นี้ครับ  TRANSFORM First(TempTable.G) AS FirstOfG
SELECT TempTable.ID, First(TempTable.G) AS [Total Of G]
FROM TempTable
GROUP BY TempTable.ID
PIVOT TempTable.Subject;)

 ถ้าเป็นแนวทางที่ผมทำ จะเป็น ขั้นตอนดังนี้ครับ เพื่อนำเอา ตาราง "TEMPTABLE"  กลับคืน ไปสู่ ตาราง "DATA" 
1.ลบข้อมูลในตาราง "DATA"
2.สร้าง Crosstab Query จากตาราง "TEMPTABLE"
3.สร้าง Append Query เพื่อนำข้อมูลที่ได้จาก Crosstab Query เข้าสู่ ตาราง "DATA"
มันดูจะหลายขั้นตอน ครับ ถ้าได้ แบบ ใช้ Function มันน่าจะ กระชับกว่านี้ (ผมยังไม่ค่อยเข้าใจ การ ทำซ็ำ(Iteration) สักเท่าไหร่ ครับ  ต้องการได้ Function มาลองศึกษาดูครับ)




5
ส่งโครงสร้างตาราง TB_RECUIT มาดูก่อนครับ....จึงจะเขียน ผนวก คิวรีไปยังตารางเป้าหมายได้ (ผมเข้าใจว่า ผนวกคิวรี คือ Append Query นะครับ)   ซึงผนวกคิวรี ที่เป็น VBA ก็มีในตัวอย่าง ที่ผมส่งไปให้ดูนะครับ (SmartCard.accdb) ลองเปิด Code vba ดูก่อนครับ แล้วลองศึกษาพอเป็นแนวทางก่อนครับ    (ซึงวิธีฝึกหัดเขียน VBA  ต้องลองจากง่ายๆไปก่อนครับ  Query ก็ตองลองทำในตาราง QBE Grid ก่อนครับ แล้วค่อยไปเปิดดู Code SQL  ว่ามีภาษาในการเขียนอย่างไร  อันนี้ผมศึกษาด้วยคนเองนะครับ ลองผิดลองถูกไปเริื่อยๆ สอบถามอาจารย์หลายๆท่านบ้าง ในห้อง Thaiaccess และค้นหาดูกระทู้เก่าๆ ที่พอจะเทียบเคียงเอาไปศึกษาได้)

6
Awara Thai Smart card reader ตัวนี้เขียนด้วย Delphi  ที่ผมทดลองใช้ๆได้ทั้ง 32 และ 64 bit ที่ผมว่างใน Google drive มี สองไฟล์  เป็น ไฟล์ Setup Awara Thai Smart card reader (Setup.exe)  และไฟล์ MS Access 2016  (SmartCard.accdb) หากต้องการ แบบธุรกิจ ติดต่อ ผู้พัฒนาตามนี้เลยครับ (ผมไม่มีส่วนได้เสียกับผู้พัฒนาครับแต่เห็นว่า ทางผู้พัฒนา ได้ทำให้ใช้โดยไม่เสียค่าใช้จ่าย เลยช่วยประชาสัมพันธ์ เผื่อท่านใด ต้องการทำเป็น Soft ware ของตนเอง ก็ติดต่อผู้พัฒนาได้ครับ)   
http://samrids.blogspot.com/2015/12/v-alpha.html
Author: Samrid Somboon
Line ID: mesa.d
Email: samrids@gmail.com
ตามความคิดเห้นส่วนตัว นะครับ   Siam-ID และ Awara Thai Smart card reader สองตัวนี้ ไม่เสียค่าใช้จ่าย และตามความต้องการของ เจ้าของกระทู้ ผมว่า น่าจะเพียงพอต่อการนำไปใช้งานต่อยอดได้ ด้วย MS ACCESS  ครับ....


8
https://drive.google.com/drive/folders/1J_P2DCrnDaQJDw5PHaddbtAX52xJCO4E?usp=sharing

sadsadeekabchoeng@hotmail.com
nk_0813kjmn@hotmail.co.th

โหลดใน Google drive ตาม link ได้เลยครับ.....
เป็น Zip ไฟล์   มี สอง ไฟล์ครับ  เป้นไฟล์ Setup.exe ของ Awara Thai Smart card reader และ ไฟล์ MS ACCESS ครับ

9
ด้วยตัว MS Access ไม่น่าจะอ่าน บัตรประชาชน แบบ Smart card ได้โดยตรง  ต้องใช้โปรแกรมอื่น อ่านก่อน อาทิของ  Siam-ID (อย่างที่ คุณ TTT บอกหรือ Awara Thai Smart card reader ซึ่ง พัฒนาโดยคนไทย และให้ใช้ ฟรี  โดยเฉพาะของ  Siam-ID แนะนำเพิ่มเติมได้ และพัฒนาให้ด้วย ครับ   เมื่อใช้โปรแกรมดังกล่าวแล้ว จะได้ ข้อมูลมา เป็น Text file หรือ XML File และ ไฟล์ รูปภาพ จากบัตรประชาชน  แล้วจึง นำข้อมูลที่ได้จากเครื่องอ่านบัตรสมาร์ทการ์ด เข้ามาในฐานข้อมูล MS ACCESS อีกครั้งนึง  แล้วที่นี้เราก็มาปรับเปลี่ยนหรือพัฒนาเอาเองตามใจชอบ.....ผมไฟล์ที่ผมเขียนใช้งานอยู่ครับ (MS Access+Awara Thai Smart card reader) และนำเข้าข้อมูล XML ที่อ่านได้จาก Awara Thai Smart card reader  เข้ามาใน ฐาน Access ครับ  ถ้าต้องการได้ไฟล์ตัวอย่างแจ้ง E-Mail  ไว้ครับ เดี๋ยวผมส่งไปให้ลองศึกษาดูครับ....

10
ห้อง MS Access / : สรุปวันลา
« เมื่อ: 18 ต.ค. 61 , 11:31:53 »
อาจจะ เยิ่นเย้อไปหน่อย หลายขั้นตอน หลายตาราง แต่ก็ได้ผลออกมาตามความต้องการ  ขอขอบคุณ  OddyWriter, 86I nonc31  ที่ให้แนวคิด และคำแนะนำ  และอีกหนึ่งท่าน ที่ได้ให้คำแนะนำมาโดยตลอด คือ อาจารย์ สันติสุข....

ด้วย VBA Code อันนี้ ที่นำไปปรับแต่งและประยุกต์ใช้ ทำให้ปัญหาผ่านไปด้วยดี...ขอบคุณครับ

11
ห้อง MS Access / : สรุปวันลา
« เมื่อ: 18 ต.ค. 61 , 11:08:19 »

วันหยุดทั้งปี ไม่รวมเสาร์-อาทิตย์

แบบสรุปวันลา รายบุคคล (เตรียมนำไปทำ รายงาน ต่อไป )

วันหยุดทั้งปี เสาร์-ทิตย์ รวม วันหยุดอื่นๆ....ลบวันทำการออกไปแล้ว....(ที่บอกว่าวันหยุดทั้งปี มี 100 กว่าวัน ปีที่คำนวณ มีวันหยุดถึง 124 วันต่อปั)

12
ห้อง MS Access / : สรุปวันลา
« เมื่อ: 18 ต.ค. 61 , 10:57:48 »
จริงๆ แล้วในข้อ 2 ไม่จำเป็นต้องลบข้อมูลก็ได้ แต่กำหนด Data Type เป็น Yes/No ก็ได้แล้วครับ เผื่อระหว่างปีมีการเปลี่ยนวันหยุด

13
ห้อง MS Access / : สรุปวันลา
« เมื่อ: 17 ต.ค. 61 , 22:30:52 »
ทำได้ละครับ.....ชีวิต ต้องมีหนทาง.....
1.สร้างตาราง วันที่ ในรอบปี (365 หรือ 366 วัน แล้วแต่ปี)  และหาวันหยุด เสาร์ และ อาทิตย์  ทั้งปี
2. หาข้อมูลวันหยุดอื่นๆ (จากเวปไซต์ ต่างๆ)  เพื่ออัพเดทตารางในข้อ 1 ลบข้อมูลที่ไม่ใช่ วันหยุด ในข้อ 1 ทิ้ง จะเหลือข้อมูล ที่เป้นวันหยุดทั้งปีรวม เสาร์และอาทิตย์ ทั้งปี (เพิ่งรู้เหมือนกันว่า วันหยุดทั้งปี รวมเสาร์อาทิตย์ 100 กว่าวัน)

3 สร้างตาราง ชั่วคราว (แบบที่ คุณ OddyWriter แนะนำ) Loop ข้อมูล ว่าการลาแต่ละครั้งเป็นการลาแะไร ป่วย กิจ พักผ่อน ขาด ฯลฯ 
4.นำตาราง ที่ได้ จาก ข้อ 1 สร้างความสัมพันธ์กับตารางข้อ 3 วันหยุด(ตารางข้อ1) กับวันที่ลา(ตารางข้อ3)  อัพเดทให้เป็นค่าว่าง  ก็จะเหลือวันที่ลาจริงๆ


14
ห้อง MS Access / : สรุปวันลา
« เมื่อ: 12 ต.ค. 61 , 03:07:32 »
กำลังหาแนวทางอยู่ครับ....ต้องขอบคุณ OddyWriter ที่แนะนำครับ ถ้าไม่เป็นการรบกวน ผมขอไฟล์ของคุณ nonc31 มาศึกษา ดูครับ.....

15
ห้อง MS Access / : สรุปวันลา
« เมื่อ: 08 ต.ค. 61 , 07:25:26 »
ยังไปต่อไม่ได้ครับ...

16
ห้อง MS Access / : สรุปวันลา
« เมื่อ: 07 ต.ค. 61 , 17:39:05 »
ไฟล์แนบครับ VACATION.ZIP

17
ห้อง MS Access / : สรุปวันลา
« เมื่อ: 07 ต.ค. 61 , 10:57:47 »
ขอคุณครับ OddyWriter การกำหนด Header ใน Crosstab 1-31 ทำอย่างไรครับ? ผมทำได้แค่นี้ครับ  ขอรบกวนดูวิธีกำหนด Header 1-30 ใน  CrosstabQuery  (ภาพ ใน QBE Grid นะครับ)    ถ้าเป็น VBA Code ที่มีการ Loop ข้อมูล  แล้ว  Update ใน คาราง ResultVacation ที่สร้างรอไว้แล้ว  จะมีความเป็นไปได้หรือเปล่าครับ

18
ห้อง MS Access / สรุปวันลา
« เมื่อ: 07 ต.ค. 61 , 09:54:15 »
นำข้อมูลจากคาราง   TblVacation  มา สรุป ในตาราง ResultVacation มีแนวทาง การเขียน Query หรือ VBA Code แบบใดได้บ้างครับ

หน้า: [1]