1
ห้อง MS Access / : ต้องการทราบวิธีกำหนดขนาดกระดาษ
« เมื่อ: 07 ต.ค. 63 , 11:02:33 »
สร้าง Label ครับ
ตรงประเด็นที่สุด
ตรงประเด็นที่สุด
โพสต์นี้ได้รับคำขอบคุณจาก: chai
แสดงกระทู้
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.
หน้า: [1] 2
2
ห้อง MS Access / : รายงานรวมตัวเลขไม่เท่ากัน
« เมื่อ: 03 ต.ค. 63 , 21:59:35 »
ไม่แน่ใจว่าเป็น bug ตัวนี้หรือไม่ เขาบอกว่าให้อัพเดต mysql เป็นเวอร์ชั่น 8.0.20 ครับ
https://bugs.mysql.com/bug.php?id=98942
https://bugs.mysql.com/bug.php?id=98942
โพสต์นี้ได้รับคำขอบคุณจาก: chai
3
ห้อง MS Access / : อยากทราบ code ดักจับ user กดปุ่ม Cancel บน InputBox() ครับ
« เมื่อ: 25 ก.ย. 63 , 13:02:02 »
Private Sub Command0_Click()
Dim strEvent As String
strEvent = InputBox("ระบุค่า", "รหัสผ่าน!!!!")
If StrPtr(strEvent) = 0 Then 'เช็คกรณีกด Cancel
MsgBox "มีการกด Cancel นะ"
Exit Sub
ElseIf strEvent = vbNullString Then 'ใช้เช็คกรณีไม่ได้ระบุข้อมูลแล้วกด OK
MsgBox ("คุณไม่ได้ระบุค่า!")
End If
End Sub
ใช้ StrPtr() ในการตรวจสอบการกด Cancel ครับ
Dim strEvent As String
strEvent = InputBox("ระบุค่า", "รหัสผ่าน!!!!")
If StrPtr(strEvent) = 0 Then 'เช็คกรณีกด Cancel
MsgBox "มีการกด Cancel นะ"
Exit Sub
ElseIf strEvent = vbNullString Then 'ใช้เช็คกรณีไม่ได้ระบุข้อมูลแล้วกด OK
MsgBox ("คุณไม่ได้ระบุค่า!")
End If
End Sub
ใช้ StrPtr() ในการตรวจสอบการกด Cancel ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: chai
4
ห้อง MS Access / : แสดงส่วนหัวของ subreport
« เมื่อ: 22 มิ.ย. 63 , 13:48:54 »@PNR ข้อ 3-5 ยังไม่เข้าใจครับ ลองหาในส่วน subreport แล้ว หา properties ไม่เจอครับ รบกวนรายละเอียดอีกครั้ง หรือรูปประกอบครับ ขอบคุณครับส่วน subreport แล้วกดที่แถบของ หัวของหน้าที่เพิ่งสร้างมาใหม่ กดเลือกคุณสมบัติครับ
ลองทำดูก่อนถ้าไม่ได้ ให้ส่งไฟล์มาทางอินบ๊อกผมทำให้
โพสต์นี้ได้รับคำขอบคุณจาก: chai
5
ห้อง MS Access / : ใส่ Input mask ในกล่องใส่พารามิเตอร์
« เมื่อ: 07 พ.ค. 63 , 16:50:04 »
เรากำหนด Input Mask ใน Input Box ไม่ได้ครับ วิธีที่ควรทำคือ ก่อนที่จะรันคิวรี่ ให้ไปเปิดฟอร์มที่มีเท็กซ์บ็อกซ์สำหรับป้อนวันที่ที่กำหนด Input Mask แล้วมีปุ่มให้คลิกเพื่อรันคิวรี่อีกที ส่วน Criteria ของวันที่ก็เปลี่ยนไป Between Forms![ชื่อฟอร์ม]![ชื่อเท็กซ์บ็อกซ์วันที่เริ่มต้น] And Forms![ชื่อฟอร์ม]![ชื่อเท็กซ์บ็อกซ์วันที่สิ้นสุด] แทน
โพสต์นี้ได้รับคำขอบคุณจาก: chai
6
ห้อง MS Access / : ตรวจสอบการรัน SQL สำเร็จหรือไม่
« เมื่อ: 21 เม.ย. 63 , 09:25:21 »
ใช้ RecordsAffected เช็คครับเช่น
Private Sub Command6_Click()
Dim SQL As String
Dim DB As DAO.Database
Set DB = CurrentDb
SQL = "INSERT INTO T1 ( Field1, Field2, Field3 ) SELECT Table1.Field1, Table1.Field2, Table1.Field3 FROM Table1;"
DB.Execute SQL
If DB.RecordsAffected <= 0 Then
MsgBox "ไม่มีข้อมูลที่นำเข้า."
Else
MsgBox "นำเข้าจำนวน " & DB.RecordsAffected & " เรคคอร์ด", vbInformation, "Myprogram"
End If
set DB = nothing
End Sub
อันนี้คือตัวอย่าง Insert ลองดูกับ Delete และ Update ดูครับได้เหมือนกัน
Private Sub Command6_Click()
Dim SQL As String
Dim DB As DAO.Database
Set DB = CurrentDb
SQL = "INSERT INTO T1 ( Field1, Field2, Field3 ) SELECT Table1.Field1, Table1.Field2, Table1.Field3 FROM Table1;"
DB.Execute SQL
If DB.RecordsAffected <= 0 Then
MsgBox "ไม่มีข้อมูลที่นำเข้า."
Else
MsgBox "นำเข้าจำนวน " & DB.RecordsAffected & " เรคคอร์ด", vbInformation, "Myprogram"
End If
set DB = nothing
End Sub
อันนี้คือตัวอย่าง Insert ลองดูกับ Delete และ Update ดูครับได้เหมือนกัน
โพสต์นี้ได้รับคำขอบคุณจาก: chai
7
ห้อง MS Access / : สอบถามการ Export and Import ไฟล์ .sql
« เมื่อ: 17 เม.ย. 63 , 01:11:55 »
https://www.thai-access.com/index.php?topic=169.0
โพสต์นี้ได้รับคำขอบคุณจาก: chai
8
ห้องสนทนาทั่วไป / ฟรี PDF หนังสือด้านภาษาคอมพิวเตอร์ ฐานข้อมูล VBA ฯ
« เมื่อ: 14 มี.ค. 63 , 11:04:06 »
ได้ข้อมูลมาจากเฟสบุ๊กเพจ "โปรแกรมเมอร์ไทย Thai programmer" ครับ
https://goalkicker.com/?fbclid=IwAR1TjcRyaWd6r_xdj510qNJOu_3B2c9EV_AWjkJ0_lyZqxdBS3bYFHCZERo
แนะนำเพิ่มเติมว่า สำหรับคนที่ชอบเขียนโปรแกรม ให้ศึกษาวิชา Data Structure (ส่วนนึงอยู่ในหนังสือ Algorithms) และ Algorithms เพราะจะช่วยให้ขยับโลกทัศน์ในการวิเคราะห์และหาวิธีตอบโจทย์ที่ซับซ้อนยิ่งขึ้นได้
https://goalkicker.com/?fbclid=IwAR1TjcRyaWd6r_xdj510qNJOu_3B2c9EV_AWjkJ0_lyZqxdBS3bYFHCZERo
แนะนำเพิ่มเติมว่า สำหรับคนที่ชอบเขียนโปรแกรม ให้ศึกษาวิชา Data Structure (ส่วนนึงอยู่ในหนังสือ Algorithms) และ Algorithms เพราะจะช่วยให้ขยับโลกทัศน์ในการวิเคราะห์และหาวิธีตอบโจทย์ที่ซับซ้อนยิ่งขึ้นได้
โพสต์นี้ได้รับคำขอบคุณจาก: chai
9
กระดานข่าว / : เริ่มเทศกาลขายสินค้า หาเงินช่วยเว็บ
« เมื่อ: 12 ธ.ค. 62 , 23:18:12 »สรุปรายงานวันนี้ก่อนนะครับ
1. คุณ Pookpuy สั่งหนังสือ ความทรงจำสีแดง ราคา 100 บาท (+ค่าส่ง 30 บาท) ส่งหนังสือให้แล้ว
2. คุณ PNR บริจาค 1,070 โอนแล้ว
3. คุณ Apirak สั่งหนังสือ Access 2010 Missing Manual ราคา 600 (+ค่าส่งลงทะเบียน 65 บาท) รับโอนเรียบร้อย ส่งแล้ว
4. คุณ Jee007 บริจาค 500 โอนแล้ว
5. คุณ Chai บริจาค 500 โอนแล้ว
6. คุณ Prajak บริจาค 200 โอนแล้ว
7. คุณ Looktarn สั่ง Excel เร็วเว่อร์ 299 (+ค่าส่ง 30) โอนแล้ว
ยอดรวม 3,269 บาท
เดี๋ยวจะโอนให้ Web Master ต่อไป โดยจากที่คุยกับเว็บมาสเตอร์คือ เมื่อจ่ายค่า Host+Domain จะแจ้งที่หน้าเว็บครับ
ขอบคุณทุกท่านที่ให้ความช่วยเหลือเว็บนี้ครับ
ปล. แก้ไขยอดโอนคุณ PNR และคุณ Looktarn
ได้รับเงินสนับสนุนจำนวน 3,269 บาทเป็นที่เรียบร้อย ขอขอบคุณทุกท่านมากๆเลยนะครับ
กระผมจะดูแลรักษาเว็บนี้ให้ดีที่สุดเลยครับ
ค่าเช่าโฮส 642.- | ค่าโดเมน 400.- | คงเหลือ | |
ยอดเงินสนับสนุน | 3,269 | ||
| 62-63 | ชำระเรียบร้อย | ชำระเรียบร้อย | 2,227 |
| 63-64 | เตรียมพร้อม | 300.- | 1,927 |
| 64-65 | เตรียมพร้อม | เตรียมพร้อม | |
| 65-66 | ... | เตรียมพร้อม | |
ปล.ขอปิดการโพสกระทู้ใว้เพียงเท่านี้นะครับผม
โพสต์นี้ได้รับคำขอบคุณจาก: chai
10
ห้อง MS Access / : ขอคำแนะนำเรื่องการสร้างตัวหนังสือวิ่งบนฟอร์ม
« เมื่อ: 06 พ.ย. 62 , 15:33:01 »
ลองเพิ่มเติมนิดหน่อยเป็นแบบนี้ครับ
ตรง 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
โค๊ด: [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
โพสต์นี้ได้รับคำขอบคุณจาก: chai
11
ห้อง MS Access / อยากสร้างปุ่มบันทึกบนฟอร์มหลักครับ
« เมื่อ: 25 ก.ย. 62 , 17:51:50 »
อยากสร้างปุ่มบันทึกบนฟอร์มหลักครับ ไม่ทราบว่าต้องใส่โค้ดอะไรบ้างครับ แบบว่าถ้ากดปุ่มบันทึกก็ให้ระบบถามว่าต้องการบันทึกข้อมลูหรือไม่ ถ้าตอบ
Yes ก็ให้เพิ่มข้อมูล ถ้าตอบ No ก็ไม่ต้องเพิ่มข้อมูลเข้าไปน่ะคับ
แล้วถ้าหากต้องการสร้างปุ่มยกเลิก ในกรณีบันทึกไปแล้ว แล้วคีย์ผิดหรือจะยกเลิกรายการโดยไม่ต้องไปเพิ่มข้อมูล ต้องทำอย่างไรบ้างครับ
ขอบพระคุณมากครับผม
Yes ก็ให้เพิ่มข้อมูล ถ้าตอบ No ก็ไม่ต้องเพิ่มข้อมูลเข้าไปน่ะคับ
แล้วถ้าหากต้องการสร้างปุ่มยกเลิก ในกรณีบันทึกไปแล้ว แล้วคีย์ผิดหรือจะยกเลิกรายการโดยไม่ต้องไปเพิ่มข้อมูล ต้องทำอย่างไรบ้างครับ
ขอบพระคุณมากครับผม
โพสต์นี้ได้รับคำขอบคุณจาก: chai
12
ห้อง Ms Access อื่นๆ / : ปัจจุบันนี้ทำไมหนังสือสอน Access ภาษาไทยมีขายน้อยมาก ควรหาอ่านจากไหนครับ
« เมื่อ: 29 ส.ค. 62 , 10:11:57 »ขอเสนอ "Access VBA ติดต่อกับ API" ด้วยนะครับ
เรื่องนี้คงลำบากหน่อยครับ เพราะทาง Microsoft เค้าไม่สนับสนุน API สำหรับผลิตภัณฑ์ในชุด Office
สิ่งที่เกิดคือทำให้ Coding ด้านนี้ไม่เสถียรจนไว้ใจได้ มักจะมีปัญหาจุกจิกตลอด ยิ่งมีการเปลี่ยนเวอร์ชั่น สิ่งที่เคยสร้างไว้ด้วยการเชื่อมต่อที่เค้าบอกว่าไม่สนับสนุนก็อาจใช้งานไม่ได้เลย
ผมเจอมา 2-3 รอบแล้ว เคยมีแล้วก็หายไปซะงั้น เช่น BCM, Access Pages
โพสต์นี้ได้รับคำขอบคุณจาก: chai
13
ห้อง MS Access / : สอบถามวิธีจัดระเบียบ โค้ด VBA
« เมื่อ: 20 ส.ค. 62 , 13:23:54 »
ผมไม่เคยใช้นะ ลองดูแล้วกันครับ https://www.automateexcel.com/vba/code-formatter/
โพสต์นี้ได้รับคำขอบคุณจาก: chai
14
ห้อง MS Access / : ส่ง SMS จาก ms access
« เมื่อ: 25 ก.ค. 62 , 15:53:06 »
คำถามน่าสนใจ ผมเลยลองเล่นดู แนวคิดคือหาโปรแกรมที่ส่ง SMS จาก PC ไปมือถือผ่าน WiFi ก็พบว่ามีหลายๆโปรแกรม อย่างเช่นจากบทความนี้ https://techwiser.com/send-sms-from-computer/ ผมลองเลือกโหลด AirDroid บนฝั่งมือถือ และใช้ AirDroid ที่รันบนเวปเป็นตัวที่อยู่ฝั่ง PC (เหมือนว่าจะมีโปรแกรมที่รันภายใต้วินโดว์โดยตรงด้วยเช่นกัน) ผลก็คือสามารถคีย์ SMS จากฝั่ง PC ส่งไปมือถือและส่งออกไปปลายทางผู้รับได้ในขั้นตอนเดียว
สิ่งที่คุณต้องหาต่อไปก็คือ ทำยังไงให้ Access ก็อปปี้ เบอร์มือถือ และ SMS เข้าคลิปบอร์ดทีละครั้ง แล้วเลือกหน้าต่าง AirDroid ที่เปิดอยู่ แล้ว paste สิ่งเหล่านั้นลงไป พอ paste ทุกอย่างเสร็จ ก็คลิกปุ่ม Send เพื่อส่งอีกที
หมายเหตุ :
1. ผมคิดว่าคงมีข้อจำกัดในการใช้งาน AirDroid แบบฟรี น่าจะเป็นที่จำนวนหรือปริมาณในการส่ง ลองศึกษาดูครับ
2. ถ้าส่งไม่ได้ ไม่ว่าจะติดขัดขั้นตอนไหน ไม่รู้ว่าจะตรวจสอบได้ยังไง
3. ถ้าส่งปริมาณมากๆ อาจส่งเข้าเวปที่ให้บริการส่ง SMS โดยตรง จะถูกกว่าหรือไม่
หวังว่าพอจะเป็นแนวทางได้บ้าง
ผมลองเลือกโหลด AirDroid บนฝั่งมือถือ และใช้ AirDroid ที่รันบนเวปเป็นตัวที่อยู่ฝั่ง PC (เหมือนว่าจะมีโปรแกรมที่รันภายใต้วินโดว์โดยตรงด้วยเช่นกัน) ผลก็คือสามารถคีย์ SMS จากฝั่ง PC ส่งไปมือถือและส่งออกไปปลายทางผู้รับได้ในขั้นตอนเดียว สิ่งที่คุณต้องหาต่อไปก็คือ ทำยังไงให้ Access ก็อปปี้ เบอร์มือถือ และ SMS เข้าคลิปบอร์ดทีละครั้ง แล้วเลือกหน้าต่าง AirDroid ที่เปิดอยู่ แล้ว paste สิ่งเหล่านั้นลงไป พอ paste ทุกอย่างเสร็จ ก็คลิกปุ่ม Send เพื่อส่งอีกที
หมายเหตุ :
1. ผมคิดว่าคงมีข้อจำกัดในการใช้งาน AirDroid แบบฟรี น่าจะเป็นที่จำนวนหรือปริมาณในการส่ง ลองศึกษาดูครับ
2. ถ้าส่งไม่ได้ ไม่ว่าจะติดขัดขั้นตอนไหน ไม่รู้ว่าจะตรวจสอบได้ยังไง
3. ถ้าส่งปริมาณมากๆ อาจส่งเข้าเวปที่ให้บริการส่ง SMS โดยตรง จะถูกกว่าหรือไม่
หวังว่าพอจะเป็นแนวทางได้บ้าง
โพสต์นี้ได้รับคำขอบคุณจาก: chai
15
ห้อง MS Access / : สอบถามการเชื่อมต่อ ODBC Mysql กับ MS Access
« เมื่อ: 12 ก.ค. 62 , 12:47:18 »
ไม่เคยใช้นะครับ แต่น่าจะเลือก Enable Automatic Reconnect ในรูป 5.4 https://dev.mysql.com/doc/connector-odbc/en/connector-odbc-configuration-dsn-windows-5-2.html
โพสต์นี้ได้รับคำขอบคุณจาก: chai
16
ห้อง MS Access / : สอบถามการเชื่อมต่อ ODBC Mysql กับ MS Access
« เมื่อ: 11 ก.ค. 62 , 11:34:14 »
หลักการแบบนี้ครับ....
...การตรวจสอบว่าเชื่อมไม่เชื่อม ใช้คำสั่ง 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
...การตรวจสอบว่าเชื่อมไม่เชื่อม ใช้คำสั่ง 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
หน้า: [1] 2