1
ห้อง Ms Access อื่นๆ / : ขนาดของฟอร์ม access สูงสุด
« เมื่อ: 02 เม.ย. 64 , 23:24:28 »
ถ่ายรูปหน้าจอมาดีกว่าครับ เพราะผมก็เคยแสดงผลบนหน้าจอขนาดนี้มาแล้ว ก็แสดงเต็มจอปกตินะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: 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 อื่นๆ / : ขนาดของฟอร์ม access สูงสุด
« เมื่อ: 02 เม.ย. 64 , 13:48:51 »
ปล.แล้วลองต่อออกจอทีวีดูหรือยังครับ
ปล2.ตัวอย่างโค๊ดจากเว็บที่ท่าน PNR แนะนำมานั่นก็ดีครับสามารถนำไปใช้ได้ในกรณีตอนเราออกออกแบบฟอร์มแล้วไปแสดงผมบนหน้าจออื่นที่ความละเอียดของหน้าจอไม่เท่ากันตัวโค้ดก็จะทำการย่อหรือขยายออกมาให้สังเกตุที่จุดแดง5จุดที่เขาทำใว้ภาพเล็กสี่เหลือจัตุรัสเมื่อใช้โค้ดจุดแดงกลายเป็นผืนผ้าแต่ตัวหนังสือยังคงเล็กเท่าเดิม
สรุปคือไปตั้งค่าความละเอียดหน้าจอให้เท่ากันหรือใกล้เคียงกันจะเป็นการดีที่สุดครับ
โพสต์นี้ได้รับคำขอบคุณจาก: chai
3
ห้อง Ms Access อื่นๆ / : ขนาดของฟอร์ม access สูงสุด
« เมื่อ: 02 เม.ย. 64 , 12:17:17 »มันขยายไม่ได้แล้วจริงๆครับ ผมปรับ width เป็น maximum แล้ว ตอนเปิดฟอร์มจึงแสดงผลได้แค่ครึ่งจอครับที่คุณ UnKnown บอกมาคือไม่ได้กำหนดขนาดฟอร์มใช้ใหญ่เท่าขนาดจอครับ
แต่หมายถึงการกำหนดความละเอียด หรือ pixel ของเครื่องคอมที่จะแสดงบนหน้าจอทีวีมากกว่า
ยิ่งความละเอียดหน้าจอคอมยิ่งมากการแสดงผลที่ จอทีวีก็จะยิ่งใหญ่ขึ้น
และผมลงค้นข้อมูลการกำหนดให้ แสดงผลเต็มหน้าจอ monitor ลองดูจากเว็บไซส์นี้ครับ
มีตัวอย่างโค๊ด และ ไฟล์ access ให้ลองใช้งานและดูการแสดงผลด้วย
https://codedocu.com/Office-365/Access/Basics/vba-Code/Automatically-adjust-Access-forms-to-the-maximum-monitor-size?2505
โพสต์นี้ได้รับคำขอบคุณจาก: chai
4
ห้อง Ms Access อื่นๆ / : ขนาดของฟอร์ม access สูงสุด
« เมื่อ: 02 เม.ย. 64 , 11:28:48 »
เอ๋ 
ผมคิดว่าถ้าต่อตรงจากคอมพิวเตอร์ระบบมันจะอ้างอิงจากมาตราส่วนหน้าจอเฉยๆนะครับเช่นจอคอมฯตั้งใว้ที่ 1600x900 จอทีวีก็ตั้ง 1600x900 เท่ากันมันก็จะแสดงผลออกมาเต็มจอเท่ากันแต่ตัวใหญ่ขึ้นเท่านั้นนั่นล่ะครับ (คอมฯ20นิ้วตัว A=10cm. / ทีวี40นิ้วตัว A=20cm.)
ขนาดของหน้าฟอร์มหรือรีพอร์ทที่เราเห็นเป็นเซนติเมตรหรือนิ้วนั้นมันจะมีผลกับการสั่งพิมพ์ออกมาเป็นหลักเท่านั้นครับ
ผมคิดว่าถ้าต่อตรงจากคอมพิวเตอร์ระบบมันจะอ้างอิงจากมาตราส่วนหน้าจอเฉยๆนะครับเช่นจอคอมฯตั้งใว้ที่ 1600x900 จอทีวีก็ตั้ง 1600x900 เท่ากันมันก็จะแสดงผลออกมาเต็มจอเท่ากันแต่ตัวใหญ่ขึ้นเท่านั้นนั่นล่ะครับ (คอมฯ20นิ้วตัว A=10cm. / ทีวี40นิ้วตัว A=20cm.)ขนาดของหน้าฟอร์มหรือรีพอร์ทที่เราเห็นเป็นเซนติเมตรหรือนิ้วนั้นมันจะมีผลกับการสั่งพิมพ์ออกมาเป็นหลักเท่านั้นครับ
โพสต์นี้ได้รับคำขอบคุณจาก: chai
5
ห้อง MS Access / : ต้องการ export file เป็น zip
« เมื่อ: 23 ก.พ. 64 , 12:49:31 »
จากกระทู้นี้ท่าน pizza_p มีตัวอย่างคำสั่งที่ใช้ 7-zip สำหรับบีบอัดไฟล์และคลายไฟล์ออกมาครับ ส่วนถ้าจะเข้าไปใช้ดาต้าภายในไฟล์เลยทั้งที่ยังบีบอัดอยู่นี่น่าจะไม่ได้นะครับ
https://www.thai-access.com/topic_post.asp?CategoryID=1&TopicID=5609
https://www.thai-access.com/topic_post.asp?CategoryID=1&TopicID=5609
โพสต์นี้ได้รับคำขอบคุณจาก: chai
6
ห้อง MS Access / : error 2501 เปิดรายงาน
« เมื่อ: 05 ม.ค. 64 , 08:44:10 »
ใช้การดักจับ error ได้ไหมครับ ลองดูครับ
Private Sub rptTest_Click()
On Error GoTo ErrHandler
DoCmd.OpenReport "ReportNotifyMulti", acViewPreview
Exit Sub
ErrHandler:
If Err = 2501 Then
Resume Next
Else
MsgBox Err.Description, vbExclamation
End If
End Sub
ถ้าไม่ได้จะหาวิธีอื่นให้ครับ
Private Sub rptTest_Click()
On Error GoTo ErrHandler
DoCmd.OpenReport "ReportNotifyMulti", acViewPreview
Exit Sub
ErrHandler:
If Err = 2501 Then
Resume Next
Else
MsgBox Err.Description, vbExclamation
End If
End Sub
ถ้าไม่ได้จะหาวิธีอื่นให้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: chai
7
ห้อง MS Access / : ต้องการทราบวิธีกำหนดขนาดกระดาษ
« เมื่อ: 07 ต.ค. 63 , 11:02:33 »
สร้าง Label ครับ
ตรงประเด็นที่สุด
ตรงประเด็นที่สุด
โพสต์นี้ได้รับคำขอบคุณจาก: chai
8
ห้อง 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
9
ห้อง 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
10
ห้อง MS Access / : แสดงส่วนหัวของ subreport
« เมื่อ: 22 มิ.ย. 63 , 13:48:54 »@PNR ข้อ 3-5 ยังไม่เข้าใจครับ ลองหาในส่วน subreport แล้ว หา properties ไม่เจอครับ รบกวนรายละเอียดอีกครั้ง หรือรูปประกอบครับ ขอบคุณครับส่วน subreport แล้วกดที่แถบของ หัวของหน้าที่เพิ่งสร้างมาใหม่ กดเลือกคุณสมบัติครับ
ลองทำดูก่อนถ้าไม่ได้ ให้ส่งไฟล์มาทางอินบ๊อกผมทำให้
โพสต์นี้ได้รับคำขอบคุณจาก: chai
11
ห้อง MS Access / : ใส่ Input mask ในกล่องใส่พารามิเตอร์
« เมื่อ: 07 พ.ค. 63 , 16:50:04 »
เรากำหนด Input Mask ใน Input Box ไม่ได้ครับ วิธีที่ควรทำคือ ก่อนที่จะรันคิวรี่ ให้ไปเปิดฟอร์มที่มีเท็กซ์บ็อกซ์สำหรับป้อนวันที่ที่กำหนด Input Mask แล้วมีปุ่มให้คลิกเพื่อรันคิวรี่อีกที ส่วน Criteria ของวันที่ก็เปลี่ยนไป Between Forms![ชื่อฟอร์ม]![ชื่อเท็กซ์บ็อกซ์วันที่เริ่มต้น] And Forms![ชื่อฟอร์ม]![ชื่อเท็กซ์บ็อกซ์วันที่สิ้นสุด] แทน
โพสต์นี้ได้รับคำขอบคุณจาก: chai
12
ห้อง 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
13
ห้อง MS Access / : สอบถามการ Export and Import ไฟล์ .sql
« เมื่อ: 17 เม.ย. 63 , 01:11:55 »
https://www.thai-access.com/index.php?topic=169.0
โพสต์นี้ได้รับคำขอบคุณจาก: chai
14
ห้องสนทนาทั่วไป / ฟรี 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
15
กระดานข่าว / : เริ่มเทศกาลขายสินค้า หาเงินช่วยเว็บ
« เมื่อ: 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 บาทเป็นที่เรียบร้อย ขอขอบคุณทุกท่านมากๆเลยนะครับ
กระผมจะดูแลรักษาเว็บนี้ให้ดีที่สุดเลยครับ
ค่าเช่าโฮส | ค่าโดเมน | คงเหลือ | |
ยอดเงินสนับสนุน | 3,269 | ||
| 62-63 | 642.- | 400.- | 2,227 |
| 63-64 | 535.- | 300.- | 1,392 |
| 64-65 | เตรียมพร้อม | 300.- | 1,092 |
| 65-66 | ... | เตรียมพร้อม | |
ปล.ขอปิดการโพสกระทู้ใว้เพียงเท่านี้นะครับผม
รายงานประจำปี 63-64 ได้รับคำขอบคุณจาก: chai, sjs, OddyWriter, PNR
โพสต์นี้ได้รับคำขอบคุณจาก: chai
16
ห้อง 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
หน้า: [1] 2
