แสดงกระทู้

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

หน้า: 1 ... 3 4 5 [6] 7
91
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  ครับ....

โพสต์นี้ได้รับคำขอบคุณจาก: sjs

92
แก้ Bug นิดนึงครับ
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

93
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 ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

95


555 ผมเข้าไปแก้พอดีเลยครับอาจารย์

ขอบพระคุณมากๆ ครับ ไม่คิดว่ามันจะง่ายแค่นี้ ปวดหัวมา 5 วันละ

ขอบพระคุณอาจารย์ทุกท่านด้วยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

96
ที่ฟิลด์นี้มี Line Feed ซ่อนอยู่ครับ ลองเปิดอยู่ที่ Text File แล้วกดลูกศรขวาไล่ไปทีละตัวอักษรดู

หลังคำว่า เม็ด ขวด จะกดแล้วไม่ไปไหน 1 เคาะ

(แก้ไข 1) ปล. ไม่แน่ใจว่าเป็น Line Feed หรือ Zero Space นะครับ หาเอง

(แก้ไข 2) มันคือ Line Feed
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

97
ถ้าเป็นผม ผมจะยังคงสร้างเทเบิลรายวันเหล่านั้นไว้ในไฟล์เดียวเหมือนเดิม แล้วเขียนโค้ดหรือแมโครเพื่อ export ข้อมูลออกมาสำหรับเก็บไว้สำรอง 1 วันอย่างที่ต้องการ แล้วค่อยลบข้อมูลทิ้งเพื่อรอรับข้อมูลวันใหม่

แต่ถ้าไม่ต้องการอย่างงั้น และข้อมูลอยู่ในรูปของเท็กซ์หรือเอ็กเซลล์ไฟล์ ก็ลิงค์ไฟล์เหล่านั้นโดยตรงเข้ามาเป็นลิงค์เทเบิลใน Access ได้เช่นกันครับ
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

98
ผมคิดว่า มันไม่ได้เกี่ยวกับโค้ด แต่น่าจะเกี่ยวกับการตั้งขอบซ้ายขวาของกระดาษมากกว่านะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

99
VDO และ PowerPoint อธิบายเรื่อง เข้าถึงหัวใจของปัญญาประดิษฐ์ และความน่าตื่นเต้นของ Deep Learning  https://aiat.or.th/heart-of-ai/?fbclid=IwAR0Emd5APHDq3uVXt53s2ID3FJxzv0uuazEWejViiY3ay6mV2XwUDEswqT8

หมายเหตุ : ไม่แน่ใจว่าเวปของลิงค์ (สมาคมปัญญาประดิษฐ์ประเทศไทย) มีอยู่ในลิงค์ของหัวกระทู้หรือเปล่า แต่ VDO นี้เพิ่งออกมาใหม่ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

100
ลองศีกษากระทู้นี้ดูครับ ว่าตรงไม๊
http://www.thai-access.com/yeadram_view.php?topic_id=3065&PagePosition=1
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

101
ห้อง MS Access / : Checkbox กับ Textbox
« เมื่อ: 17 พ.ย. 61 , 09:54:42 »
รบกวนท่านอาจารย์ทุกท่านครับ
คือผมมี Checkbox ชื่อ Check0 และ Textbox ชื่อ Text1
ผมอยากทำให้ เมื่อ ใส่เครื่องหมายถูกที่ Check0 ก็ให้แสดง Text1
และเมื่อติ๊กเครื่องหมายถูกออกก็ให้ซ่อน Text1
ไม่ทราบว่าต้องใส่โค๊ดอย่างไร และใส่ที่ไหนครับ
รบกวนด้วยครับ
ใส่ที่ Event Afterupdate ของ Check0 คับ
เช่น
โค๊ด: [Select]
Private Sub Check0_AfterUpdate()
If Me.Check0 = True Then
Me.Text1.Visible = True
Else
Me.Text1.Visible = False
End If
End Sub
โดยตั้งค่าที่ text1 ให้ การมองเห็นได้ = ไม่ใช่ ก่อนนะคับ
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

103
บอร์ดเรียนรู้ Access สำหรับคนไทย ก็โพสวาดเส้น,ตาราง,กล่องข้อความได้นะ :meaw:

ปกติ
แต่งโค๊ด
หมายเหตุ
table table border=1 ทำให้กล่องข้อความมีเส้น(เลขกำหนดขนาดเส้นขอบนอก)
table border=1 style="border: 2px inset red;" ใส่สีเส้น(border 1.ทำให้มีเส้นทั้งตาราง,2.ขนาดขอบ&สี)
td td colspan=2 รวมคอลัมน์(ตามตัวเลข)ให้เหลือคอลัมน์เดียว
ฯลฯ อื่นๆอีกมากปรับใช้งานตามสะดวกเลยครับ  :shout:

ตัวอย่างโค๊ดสี
Name hexadecimal ........
aqua #00ffff
black #000000
blue #0000ff
fuchsia #ff00ff
gray #808080
green #008000
lime #00ff00
maroon #800000
navy #000080
olive #808000
orange #ffa500
purple #800080
red #ff0000
silver #c0c0c0
teal #008080
white #ffffff
yellow #ffff00

EXAMPLE
โค๊ด: [Select]
[table border=1 style="border: 3px inset #ffa500;"]
[tr][td colspan=2][center][b]1+2[/b][/center][/td][td]  [b]3[/b][/td][/tr]
[tr][td]  abc [/td][td]  xxxxxx  [/td][td]  yyy [/td][/tr]
[/table]
1+2
  3
  abc   xxxxxx    yyy

โค๊ด: [Select]
[table border=2 style="border: 2px inset #ffa500;"]
[tr][td style="background-color: #FFFF33;"]!!![/td][td style="background-color: red;"]!!![/td][/tr]
[tr][td style="background-color: white;"]!!![/td][td style="background-color: #00CC00;"]!!![/td][/tr]
[/table]
!!!!!!
!!!!!!

โค๊ด: [Select]
[table style="background-color: black;" border="0" cellpadding="2"][tr][td][color=#DDDDDD][b]@ เริ่มหัวข้อใหม่[/b][/color][/td][/tr][/table]
@ เริ่มหัวข้อใหม่

ใส่กล่องข้อความบางส่วน --> span style="border: 1px inset สี" --> Text1 Text2 Text3
โค๊ด: [Select]
[span style="border: 1px inset black"] Text2 [/span]


credit SMF Mod Site : BBCode with style
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

104
ฟอร์มนี้ข้อมูลมาจากตารางโดยตรงแน่เลย
เพราะปกติถ้าผ่านคิวรี่ตรงลบจะไม่แสดง
คำสั่งปิด ปุ่มลบตามนี้เลย


Private Sub Form_Load()
Form.Requery
Me.AllowDeletions = False
End Sub

โพสต์นี้ได้รับคำขอบคุณจาก: sjs

105
ห้อง MS Access / : สร้าง QR Code
« เมื่อ: 16 พ.ค. 61 , 15:51:06 »
คือจะประมาณว่า ถ้าโปรแกรม MS Access เป็นแบบ
32bit ให้ใช้ไฟล์ QRCode_x86.dll
64bit ให้ใช้ไฟล์ QRCode_x64.dll
ไม่เกี่ยวกับ Windows ครับ Windows จะเป็น 32bit หรือ 64bit ก็ได้ แต่ทว่า โฟลเดอร์ระบบมาตรฐานของ Windows 32bit กับ 64bit มันใช้โฟลเดอร์คนละตัวกันคือ
Windows 32bit เราต้องก๊อปปี้ใส่ในโฟลเดอร์ Windows\system32
Windows 64bit เราต้องกีอปปี้ใส่ในโฟลเดอร์ Windows\sysWOW64

สรุปคือ: ถ้าคุณใช้ MS Access 64bit ให้ก๊อปไฟล์ QRCode_x64.dll ไว้ใน Windows\sysWOW64 ได้เลย (เพราะ Access 64bit ต้องใช้ Windows 64bit อยู่แล้ว) แต่หากคุณใช้ MS Access 32bit ต้องดูว่ารันบน Windows 32bit หรือ 64bit ถ้า Windows เป็น 32bit ก็ใช้ไฟล์ QRCode_x86.dll ก๊อปปี้ใส่ในโฟลเดอร์ Windows\system32 แต่หากรันบน Windows 64bit ก็ก๊อปปี้ไฟล์ QRCode_x86.dll ใส่ในโฟลเดอร์ Windows\sysWOW64 แทนครับ

ปล. จริงๆแล้วมันสามารถเขียนโค้ดให้รัน Dll ไฟล์จากในโฟลเดอร์ที่เรากำหนดได้เลยโดยไม่ต้องไปก๊อปใส่เครื่องให้ยุ่งยาก รวมทั้งฟอนต์ด้วย แต่ต้องใช้การเขียนโค้ดอีก ซึ่งมันจะยืดหยุ่นกว่ามาก ไม่ต้องทั้งเพิ่มฟอนต์ QRCode และ ไฟล์ dll ลงในเครื่องเลย สามารถเรียกรันในโฟลเดอร์เดียวกับฐานข้อมูลเราได้เลย แต่มันต้องเขียนโค้ดอีกพอสมควร ในคลิปที่ผมทำเน้นความง่าย เลยไม่ได้ทำในส่วนนี้ให้ดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

106
ห้อง MS Access / > Sumค่า Grand Total ใน Report Footer
« เมื่อ: 09 พ.ค. 61 , 19:44:03 »
ตอนนี้ทำได้แล้วค่ะ Errorค่าตัวเลขที่เพี้ยนไปเกิดจากแถว Grand total charge
เลยทำแถวนี้ใหม่โดยสร้างunbound textbox แล้วใส่โค้ดแทนการดึงค่าจากในแถวTotal chargeค่ะ

Grand ใช้การแปลงกลับไปเป็นจำนวนเต็มก่อน
แล้ว เอาไปใส่ใน textbox ของกลุ่ม Grand Total Charge

Private Sub Report_Load()
Dim Ain, Aout, Arecei, Aissue As Integer
Ain = Sumin
Aout = Text103
Arecei = Text105
Aissue = Text107
intxt = Ain
outtxt = Aout
receitxt = Arecei
issuetxt = Aissue

End Sub
ปล. ขอบคุณ คุณNewbiesค้า
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

107
ห้อง MS Access / > Sumค่า Grand Total ใน Report Footer
« เมื่อ: 09 พ.ค. 61 , 17:03:26 »
ที่ ตัว Report Event  On Load
ใส่คำสั่ง Me.Report.requery
ครับอาการแบบนั้นหายไปแน่นอน
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

108

ตัวอย่างนี้ใช้วิธีการ Running Sum นะครับ
ตัวอย่างคำสั่ง SQL
โค๊ด: [Select]
SELECT Table1.Name, Format([Date],"mmmm yyyy") AS OnDate, Table1.SumofDebit, Table1.SumofCradit, (SELECT Sum(a2.SumofDebit) FROM Table1 AS a2
                WHERE
                a2.Name = Table1.Name
            AND a2.Date <= Table1.Date
    ) AS รวมสะสมเดบิต, (SELECT Sum(a3.SumofCradit) FROM Table1 AS a3
                WHERE
                a3.Name = Table1.Name
            AND a3.Date <= Table1.Date
    ) AS รวมสะสมเครดิต, Table1.Date AS จัดลำดับเดือน
FROM Table1
ORDER BY Table1.Date;

ลองดูนะครับว่าตรงแบบที่ต้องการหรือเปล่า
ตัวอย่างด้านล่าง

โพสต์นี้ได้รับคำขอบคุณจาก: sjs

หน้า: 1 ... 3 4 5 [6] 7