สมัครสมาชิก

แสดงกระทู้

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

หน้า: [1]
1
ลองเพิ่มเติมนิดหน่อยเป็นแบบนี้ครับ

โค๊ด: [Select]
Dim strMSG As String
Dim Mbody As String
strMSG = "ข้อความที่จะแสดง"
Mbody = "<p style=""font-size:32px;""><marquee behavior=""scroll"" direction=""left""> " & strMSG
Me.WebBrowser1.Object.Document.write Mbody

ตรง font-size:32px  กำหนดขนาดได้เลยครับ
ถ้าอยากเพิ่มเติมอะไรเข้าไปเช่นสีของตังอักษรก็ใส่

หรืออยากใส่ลูกเล่นให้เยอะกว่านั้นเช่นกำหนดสีตัวอักษร กำหนดชื่อตัวอักษร กำหนดสีแบลคกราว ก็ใส่

Dim strMSG As String
Dim Mbody As String
strMSG = "ข้อความที่จะแสดง"
Mbody = "<html><head><script language=""javascript"">function noScroll(){document.body.scroll=""no"";}" & _
"</script><STYLE>BODY { border-style:none;}</STYLE></head><body onload=javascript:noScroll(); topmargin=""0"" leftmargin=""0"">" & _
"<body bgcolor=""#ffaeae""><p style=""font-size:32px;color:#FF0000;font-family: courier new"" ><marquee behavior=""scroll"" direction=""left"">" & _
strMSG & _
"</marquee></body></html>"

Me.WebBrowser1.Object.Document.write Mbody


ส่วนสีตัวอักษรอยากได้สีัไหนไปดู Color Hex มาใส่แทนได้เลยที่
https://www.color-hex.com/color/ff0000 link
โพสต์นี้ได้รับคำขอบคุณจาก: chai

2
อยากสร้างปุ่มบันทึกบนฟอร์มหลักครับ ไม่ทราบว่าต้องใส่โค้ดอะไรบ้างครับ แบบว่าถ้ากดปุ่มบันทึกก็ให้ระบบถามว่าต้องการบันทึกข้อมลูหรือไม่ ถ้าตอบ
 Yes ก็ให้เพิ่มข้อมูล ถ้าตอบ No ก็ไม่ต้องเพิ่มข้อมูลเข้าไปน่ะคับ
แล้วถ้าหากต้องการสร้างปุ่มยกเลิก ในกรณีบันทึกไปแล้ว แล้วคีย์ผิดหรือจะยกเลิกรายการโดยไม่ต้องไปเพิ่มข้อมูล ต้องทำอย่างไรบ้างครับ
ขอบพระคุณมากครับผม
โพสต์นี้ได้รับคำขอบคุณจาก: chai

3
ขอเสนอ "Access VBA ติดต่อกับ API" ด้วยนะครับ

เรื่องนี้คงลำบากหน่อยครับ เพราะทาง Microsoft เค้าไม่สนับสนุน API สำหรับผลิตภัณฑ์ในชุด Office

สิ่งที่เกิดคือทำให้ Coding ด้านนี้ไม่เสถียรจนไว้ใจได้ มักจะมีปัญหาจุกจิกตลอด ยิ่งมีการเปลี่ยนเวอร์ชั่น สิ่งที่เคยสร้างไว้ด้วยการเชื่อมต่อที่เค้าบอกว่าไม่สนับสนุนก็อาจใช้งานไม่ได้เลย

ผมเจอมา 2-3 รอบแล้ว เคยมีแล้วก็หายไปซะงั้น เช่น BCM, Access Pages
โพสต์นี้ได้รับคำขอบคุณจาก: chai

4
ผมไม่เคยใช้นะ ลองดูแล้วกันครับ  https://www.automateexcel.com/vba/code-formatter/ link
โพสต์นี้ได้รับคำขอบคุณจาก: chai

5
ห้อง MS Access / : ส่ง SMS จาก ms access
« เมื่อ: 25 ก.ค. 62 , 15:53:06 »
คำถามน่าสนใจ ผมเลยลองเล่นดู แนวคิดคือหาโปรแกรมที่ส่ง SMS จาก PC ไปมือถือผ่าน WiFi  ก็พบว่ามีหลายๆโปรแกรม อย่างเช่นจากบทความนี้ https://techwiser.com/send-sms-from-computer/ link ผมลองเลือกโหลด AirDroid บนฝั่งมือถือ และใช้ AirDroid ที่รันบนเวปเป็นตัวที่อยู่ฝั่ง PC (เหมือนว่าจะมีโปรแกรมที่รันภายใต้วินโดว์โดยตรงด้วยเช่นกัน) ผลก็คือสามารถคีย์ SMS จากฝั่ง PC ส่งไปมือถือและส่งออกไปปลายทางผู้รับได้ในขั้นตอนเดียว

สิ่งที่คุณต้องหาต่อไปก็คือ ทำยังไงให้ Access ก็อปปี้ เบอร์มือถือ และ SMS เข้าคลิปบอร์ดทีละครั้ง แล้วเลือกหน้าต่าง AirDroid ที่เปิดอยู่  แล้ว paste สิ่งเหล่านั้นลงไป  พอ paste ทุกอย่างเสร็จ ก็คลิกปุ่ม Send เพื่อส่งอีกที

หมายเหตุ :
1. ผมคิดว่าคงมีข้อจำกัดในการใช้งาน AirDroid แบบฟรี น่าจะเป็นที่จำนวนหรือปริมาณในการส่ง ลองศึกษาดูครับ
2. ถ้าส่งไม่ได้ ไม่ว่าจะติดขัดขั้นตอนไหน ไม่รู้ว่าจะตรวจสอบได้ยังไง
3. ถ้าส่งปริมาณมากๆ อาจส่งเข้าเวปที่ให้บริการส่ง SMS โดยตรง จะถูกกว่าหรือไม่

หวังว่าพอจะเป็นแนวทางได้บ้าง
โพสต์นี้ได้รับคำขอบคุณจาก: chai

6
ไม่เคยใช้นะครับ แต่น่าจะเลือก Enable Automatic Reconnect ในรูป 5.4 https://dev.mysql.com/doc/connector-odbc/en/connector-odbc-configuration-dsn-windows-5-2.html link
โพสต์นี้ได้รับคำขอบคุณจาก: chai

7
หลักการแบบนี้ครับ....
...การตรวจสอบว่าเชื่อมไม่เชื่อม ใช้คำสั่ง count หรือ Dcount ในตารางข้อมูลเล็กๆ ถ้าเชื่อมไม่ได้ Access จะแสดงรหัส Error ออกมา เราก็เอารหัสนั้นทำเป็นเงื่อนไข ในการสั่งให้เชื่อมต่อใหม่  สำหรับคำสั่งรีคอนเน็ค มีใน google
...ที่ผมทำ ผมเชื่อมตารางไม่เยอะครับ ผมก็ทำคำสั่งลบตารางทิ้ง แล้วก็เชื่อมใหม่ แบบบ้านๆ 5555555

Function import1()
On Error GoTo lktb
Dim ODBC1 As String
    ODBC1 ="ODBC;DATABASE=baseName;DSN=DSNname;OPTION=0;PORT=3306;SERVER=192.168.0.133;UID=root;PWD=123456;CHARSET=tis620;"
        DoCmd.SetWarnings False
                DoCmd.DeleteObject acTable, "person"
                DoCmd.TransferDatabase acLink, "ODBC", ODBC1, acTable, "person", "person", False
                Call import2 'ต่อสำเร็จให้วิ่งไป import2
        DoCmd.SetWarnings True
lktb:
    Select Case Err
        Case 0
        Case 7874
            DoCmd.TransferDatabase acLink, "ODBC", ODBC1, acTable, "person", "person", False
            Call import2 'ต่อสำเร็จให้วิ่งไป import2
        Case 3022, 3059
            MsgBox "ไม่พบฐานข้อมูล", vbCritical, "Error"
        Case Else
            MsgBox Err.Description & "  ฟังค์ชั่น import1  " & Err.Number, vbCritical, "Error"
    End Select
End Function
โพสต์นี้ได้รับคำขอบคุณจาก: chai

8
ผมไม่เคยใช้ MySQL นะครับ แต่ข้างล่างนี้เป็นหลักการ อาจพอช่วยได้

1. อาจเพราะไม่ได้สร้าง Primary Key ไว้ในเทเบิลบน MySQL

2. แต่ถ้าคิดว่าไม่ใช่ ก็ลองอ่าน https://www.thai-access.com/topic_post.asp?CategoryID=1&TopicID=4308

3. ถ้าปัญหาเกิดตอนแก้ไขข้อมูลโดยตรงผ่านหน้าต่างเทเบิล, คิวรี่ หรือฟอร์ม ถ้าเขียนโค้ดจำลองการแก้ไขได้ ก็เขียนดูตามลิงค์ที่ให้ แต่ถ้าไม่เขียน ก็ต้องค้นกูเกิลดูว่าเราจะสร้างและดู MySQL Log File ได้อย่างไร (หาด้วยคำ MySQL Log File) เพราะ Log File ที่ MySQL เก็บไว้ จะเก็บสิ่งต่างๆที่เกิดขึ้นกับฐานข้อมูลของมันเอง ผมเชื่อว่ามันจะเก็บข้อความของปัญหาที่เกิดขึ้นนี้ด้วยว่าเกิดจากอะไรกันแน่

4. อีกอย่างคือ คุณอาจย้ายฐานข้อมูลจาก Access ไป MySQL ไม่ถูกต้องหรือไม่ครบถ้วน ขาดอะไรบางอย่างไป ผมค้นเจอมาว่า MySQL มีโปรแกรมชื่อ MySQL Workbench ซึ่งหน้าที่อันหนึ่งของมันก็คือทำการย้ายฐานข้อมูลจาก Access ไปให้ ลองอ่านดูครับ https://dev.mysql.com/doc/workbench/en/wb-migration-database-access.html link
โพสต์นี้ได้รับคำขอบคุณจาก: chai

9
ลองเล่นๆ การส่ง line notify ส่งข้อความ รูปภาพด้วย VBA ไปเจอบทความดีดี ที่นี่เลยเอามาลองเล่นครับ

ขอขอบคุณแหล่งที่มา :
http://white5168.blogspot.com/2017/01/line-notify-6-line-notify.html#.XHvsT4gzbIV link
โพสต์นี้ได้รับคำขอบคุณจาก: chai

10
ปรับเปลี่ยนรูปแบบการแสดงไฟล์แนบ(Attachment) ให้มีการแสดงผลที่ชัดเจนยิ่งขึ้น  :shout:
โดยสามารถคลิกที่รูปหรือชื่อไฟล์เพื่อดาวน์โหลดครับ  ตัวอย่างด้านล่าง
โพสต์นี้ได้รับคำขอบคุณจาก: chai

หน้า: [1]