แสดงกระทู้

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 [2]
19
ห้อง MS Access / : แสดงส่วนหัวของ subreport
« เมื่อ: 22 มิ.ย. 63 , 13:48:54 »
อ้างจาก: chai ที่ 22 มิ.ย. 63 , 11:47:47
@PNR ข้อ 3-5 ยังไม่เข้าใจครับ ลองหาในส่วน subreport แล้ว หา properties ไม่เจอครับ รบกวนรายละเอียดอีกครั้ง หรือรูปประกอบครับ ขอบคุณครับ
ส่วน subreport แล้วกดที่แถบของ หัวของหน้าที่เพิ่งสร้างมาใหม่ กดเลือกคุณสมบัติครับ
ลองทำดูก่อนถ้าไม่ได้ ให้ส่งไฟล์มาทางอินบ๊อกผมทำให้

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

20
ห้อง MS Access / : ใส่ Input mask ในกล่องใส่พารามิเตอร์
« เมื่อ: 07 พ.ค. 63 , 16:50:04 »
เรากำหนด Input Mask ใน Input Box ไม่ได้ครับ วิธีที่ควรทำคือ ก่อนที่จะรันคิวรี่ ให้ไปเปิดฟอร์มที่มีเท็กซ์บ็อกซ์สำหรับป้อนวันที่ที่กำหนด Input Mask แล้วมีปุ่มให้คลิกเพื่อรันคิวรี่อีกที   ส่วน Criteria ของวันที่ก็เปลี่ยนไป Between Forms![ชื่อฟอร์ม]![ชื่อเท็กซ์บ็อกซ์วันที่เริ่มต้น] And Forms![ชื่อฟอร์ม]![ชื่อเท็กซ์บ็อกซ์วันที่สิ้นสุด] แทน
โพสต์นี้ได้รับคำขอบคุณจาก: chai

21
ห้อง 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 ดูครับได้เหมือนกัน
โพสต์นี้ได้รับคำขอบคุณจาก: chai

22
ห้อง MS Access / : สอบถามการ Export and Import ไฟล์ .sql
« เมื่อ: 17 เม.ย. 63 , 01:11:55 »
https://www.thai-access.com/index.php?topic=169.0
โพสต์นี้ได้รับคำขอบคุณจาก: chai

23
ห้องสนทนาทั่วไป / ฟรี PDF หนังสือด้านภาษาคอมพิวเตอร์ ฐานข้อมูล VBA ฯ
« เมื่อ: 14 มี.ค. 63 , 11:04:06 »
ได้ข้อมูลมาจากเฟสบุ๊กเพจ "โปรแกรมเมอร์ไทย Thai programmer" ครับ

https://goalkicker.com/?fbclid=IwAR1TjcRyaWd6r_xdj510qNJOu_3B2c9EV_AWjkJ0_lyZqxdBS3bYFHCZERo

แนะนำเพิ่มเติมว่า สำหรับคนที่ชอบเขียนโปรแกรม ให้ศึกษาวิชา Data Structure (ส่วนนึงอยู่ในหนังสือ Algorithms) และ Algorithms เพราะจะช่วยให้ขยับโลกทัศน์ในการวิเคราะห์และหาวิธีตอบโจทย์ที่ซับซ้อนยิ่งขึ้นได้
โพสต์นี้ได้รับคำขอบคุณจาก: chai

24
กระดานข่าว / : เริ่มเทศกาลขายสินค้า หาเงินช่วยเว็บ
« เมื่อ: 12 ธ.ค. 62 , 23:18:12 »
อ้างจาก: OddyWriter ที่ 12 ธ.ค. 62 , 19:45:51
สรุปรายงานวันนี้ก่อนนะครับ
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 บาทเป็นที่เรียบร้อย ขอขอบคุณทุกท่านมากๆเลยนะครับ :love:
กระผมจะดูแลรักษาเว็บนี้ให้ดีที่สุดเลยครับ :yuush:

  ค่าเช่าโฮส   
  ค่าโดเมน 
  คงเหลือ 
ยอดเงินสนับสนุน
  3,269 
  62-63    642.-    400.-    2,227 
  63-64    535.-    300.-   1,392 
  64-65    535.-    300.-   557 
  65-66    ...    357.-    200  โฮสโดน Ransomware
  66-67    535.-    385.25    --- 
  67-68    ...    522.11    --- 
  68-69    ...    ...    --- 

#ตัดรอบโฮส ก.ย.(เดือน9)
#ตัดรอบโดเมน ก.พ.(เดือน2)

ปล.ขอปิดการโพสกระทู้ใว้เพียงเท่านี้นะครับผม :cool:

รายงานประจำปี 63-64 ได้รับคำขอบคุณจาก: chai, sjs, OddyWriter, PNR
รายงานประจำปี 64-65 ได้รับคำขอบคุณจาก: chai, OddyWriter, apirak, Max
: OddyWriter, Su, SakDa, apirak
โพสต์นี้ได้รับคำขอบคุณจาก: chai

25
ห้อง MS Access / : ขอคำแนะนำเรื่องการสร้างตัวหนังสือวิ่งบนฟอร์ม
« เมื่อ: 06 พ.ย. 62 , 15:33:01 »
ลองเพิ่มเติมนิดหน่อยเป็นแบบนี้ครับ

โค๊ด: [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

26
ห้อง MS Access / อยากสร้างปุ่มบันทึกบนฟอร์มหลักครับ
« เมื่อ: 25 ก.ย. 62 , 17:51:50 »
อยากสร้างปุ่มบันทึกบนฟอร์มหลักครับ ไม่ทราบว่าต้องใส่โค้ดอะไรบ้างครับ แบบว่าถ้ากดปุ่มบันทึกก็ให้ระบบถามว่าต้องการบันทึกข้อมลูหรือไม่ ถ้าตอบ
 Yes ก็ให้เพิ่มข้อมูล ถ้าตอบ No ก็ไม่ต้องเพิ่มข้อมูลเข้าไปน่ะคับ
แล้วถ้าหากต้องการสร้างปุ่มยกเลิก ในกรณีบันทึกไปแล้ว แล้วคีย์ผิดหรือจะยกเลิกรายการโดยไม่ต้องไปเพิ่มข้อมูล ต้องทำอย่างไรบ้างครับ
ขอบพระคุณมากครับผม
โพสต์นี้ได้รับคำขอบคุณจาก: chai

27
ห้อง Ms Access อื่นๆ / : ปัจจุบันนี้ทำไมหนังสือสอน Access ภาษาไทยมีขายน้อยมาก ควรหาอ่านจากไหนครับ
« เมื่อ: 29 ส.ค. 62 , 10:11:57 »
อ้างจาก: chai ที่ 29 ส.ค. 62 , 09:28:59
ขอเสนอ "Access VBA ติดต่อกับ API" ด้วยนะครับ

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

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

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

28
ห้อง MS Access / : สอบถามวิธีจัดระเบียบ โค้ด VBA
« เมื่อ: 20 ส.ค. 62 , 13:23:54 »
ผมไม่เคยใช้นะ ลองดูแล้วกันครับ  https://www.automateexcel.com/vba/code-formatter/
โพสต์นี้ได้รับคำขอบคุณจาก: chai

29
ห้อง 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 โดยตรง จะถูกกว่าหรือไม่

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

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

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

32
ห้อง MS Access / : ถ้าต้องการเปลี่ยน Backend เป็น MySql ต้องเขียนโปรแกรมใหม่หรือเปล่าครับ
« เมื่อ: 15 พ.ค. 62 , 23:30:07 »
ผมไม่เคยใช้ MySQL นะครับ แต่ข้างล่างนี้เป็นหลักการ อาจพอช่วยได้

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

2. แต่ถ้าคิดว่าไม่ใช่ ก็ลองอ่าน https://www.thai-access.com/yeadram_view.php?topic_id=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
โพสต์นี้ได้รับคำขอบคุณจาก: chai

33
ห้อง Ms Access อื่นๆ / MS Access ส่ง Line notify ข้อความ รูปภาพ
« เมื่อ: 05 มี.ค. 62 , 09:28:11 »
ลองเล่นๆ การส่ง line notify ส่งข้อความ รูปภาพด้วย VBA ไปเจอบทความดีดี ที่นี่เลยเอามาลองเล่นครับ

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

34
กระดานข่าว / : เว็บบอร์ดใหม่มีอะไรบ้าง
« เมื่อ: 04 ก.ค. 61 , 19:13:35 »
ปรับเปลี่ยนรูปแบบการแสดงไฟล์แนบ(Attachment) ให้มีการแสดงผลที่ชัดเจนยิ่งขึ้น  :shout:
โดยสามารถคลิกที่ปุ่ม Download หรือชื่อไฟล์เพื่อดาวน์โหลดครับ  ตัวอย่างด้านล่าง
โพสต์นี้ได้รับคำขอบคุณจาก: chai

หน้า: 1 [2]