สมัครสมาชิก

แสดงกระทู้

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] 2
1
ถ้าจะป้องกันการกดคีย์ภาษาไทยลงเท็กซ์บ็อกซ์ ก็ใส่โค้ดนี้ไว้ใน KeyPress event procedure
โค๊ด: [Select]
Private Sub xxx_KeyPress(KeyAscii As Integer)
    If KeyAscii >= 3585 And KeyAscii <= 3675 Then KeyAscii = 0
End Sub

ถ้าต้องการตรวจสอบว่ามีภาษาไทยอยู่ในเท็กซ์บ็อกซ์หรือไม่ ก็ใช้โค้ดนี้ครับ
โค๊ด: [Select]
    Dim i As Integer
    Dim c As String
   
    For i = 1 To Len(Me.Text2)
        c = Mid$(Me.Text2, i, 1)
        If AscW(c) >= 3585 And AscW(c) <= 3675 Then
            MsgBox "Found"
            Exit Sub
        End If
    Next i
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

2
โดยทั่วไป Ms Access จะใช้โค้ดสีที่ต่างจากพวก > Hex / RGB / MS Access Color Values link
แต่สามารถกำหนดใช้เป็น RGB ได้เช่น Me.TextBox.BackColor = RGB(255, 255, 255) เป็นต้น

ดังนั้นการที่จะนำโค้ดสีที่เป็น Hex มาใช้ได้ก็ต้องแปลงให้กลายไปเป็น RGB ก่อนด้วย Module ตัวอย่างของท่านปิ่นณรงค์
หรือ > https://stackoverflow.com/questions/40588470/setting-access-colour-codes-in-vba/50523021#50523021 link
โค๊ด: [Select]
Public Function Color_Hex_To_Long(strColor As String) As Long
    Dim iRed As Integer
    Dim iGreen As Integer
    Dim iBlue As Integer

    strColor = Replace(strColor, "#", "")
    strColor = Right("000000" & strColor, 6)
    iBlue = Val("&H" & Mid(strColor, 1, 2))
    iGreen = Val("&H" & Mid(strColor, 3, 2))
    iRed = Val("&H" & Mid(strColor, 5, 2))

    Color_Hex_To_Long = RGB(iRed, iGreen, iBlue)
End Function

หรือ > https://stackoverflow.com/questions/51292169/how-to-set-background-of-a-form-to-a-hexidecimal-color-in-ms-access-vba link
ซึ่งวิธีนี้สามารถแปลงออกมาได้เลยไม่ต้องใช้โมดูล ผมจึงขอนำไฟล์ตัวอย่างของท่านปิ่นณรงค์มาทดสอบได้ผลตามไฟล์ตัวอย่างครับ
โค๊ด: [Select]
Me.Detail.BackColor = RGB("&H" & Left$(s, 2), _
                          "&H" & Mid$(s, 3, 2), _
                          "&H" & Right$(s, 2))
โค๊ด: [Select]
Me.Detail.BackColor = "&H" & Right$(s, 2) & Mid$(s, 3, 2) & Left$(s, 2)
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

3
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 link
Author: Samrid Somboon
Line ID: mesa.d
Email: samrids@gmail.com
ตามความคิดเห้นส่วนตัว นะครับ   Siam-ID และ Awara Thai Smart card reader สองตัวนี้ ไม่เสียค่าใช้จ่าย และตามความต้องการของ เจ้าของกระทู้ ผมว่า น่าจะเพียงพอต่อการนำไปใช้งานต่อยอดได้ ด้วย MS ACCESS  ครับ....

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

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

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

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

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

7


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

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

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

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

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

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

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

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

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

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

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

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

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

13
ห้อง 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

15
ห้อง MS Access / : ปิดคำสั่ง Deleted Record บน split Form
« เมื่อ: 23 พ.ค. 61 , 13:32:26 »
ฟอร์มนี้ข้อมูลมาจากตารางโดยตรงแน่เลย
เพราะปกติถ้าผ่านคิวรี่ตรงลบจะไม่แสดง
คำสั่งปิด ปุ่มลบตามนี้เลย


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

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

16
ห้อง 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

หน้า: [1] 2