แสดงกระทู้

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
1
ทำการย้ายชุดคำสั่ง"แนบไฟล์"ออกมาใว้ข้างนอกด้านล่างกล่องข้อความเพื่อให้ใช้งานได้ง่ายขึ้นแล้วนะครับ :prettiness:

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

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

3



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

4
มันขยายไม่ได้แล้วจริงๆครับ ผมปรับ 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 link
โพสต์นี้ได้รับคำขอบคุณจาก: chai

5
เอ๋ :question: ผมคิดว่าถ้าต่อตรงจากคอมพิวเตอร์ระบบมันจะอ้างอิงจากมาตราส่วนหน้าจอเฉยๆนะครับเช่นจอคอมฯตั้งใว้ที่ 1600x900 จอทีวีก็ตั้ง 1600x900 เท่ากันมันก็จะแสดงผลออกมาเต็มจอเท่ากันแต่ตัวใหญ่ขึ้นเท่านั้นนั่นล่ะครับ (คอมฯ20นิ้วตัว A=10cm. / ทีวี40นิ้วตัว A=20cm.)
ขนาดของหน้าฟอร์มหรือรีพอร์ทที่เราเห็นเป็นเซนติเมตรหรือนิ้วนั้นมันจะมีผลกับการสั่งพิมพ์ออกมาเป็นหลักเท่านั้นครับ
โพสต์นี้ได้รับคำขอบคุณจาก: chai

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

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


ถ้าไม่ได้จะหาวิธีอื่นให้ครับ

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

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

9
ไม่แน่ใจว่าเป็น bug ตัวนี้หรือไม่ เขาบอกว่าให้อัพเดต mysql เป็นเวอร์ชั่น 8.0.20 ครับ
https://bugs.mysql.com/bug.php?id=98942 link
โพสต์นี้ได้รับคำขอบคุณจาก: chai

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

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

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

12
เรากำหนด Input Mask ใน Input Box ไม่ได้ครับ วิธีที่ควรทำคือ ก่อนที่จะรันคิวรี่ ให้ไปเปิดฟอร์มที่มีเท็กซ์บ็อกซ์สำหรับป้อนวันที่ที่กำหนด Input Mask แล้วมีปุ่มให้คลิกเพื่อรันคิวรี่อีกที   ส่วน Criteria ของวันที่ก็เปลี่ยนไป Between Forms![ชื่อฟอร์ม]![ชื่อเท็กซ์บ็อกซ์วันที่เริ่มต้น] And Forms![ชื่อฟอร์ม]![ชื่อเท็กซ์บ็อกซ์วันที่สิ้นสุด] แทน
โพสต์นี้ได้รับคำขอบคุณจาก: chai

13
ใช้ 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

14
https://www.thai-access.com/index.php?topic=169.0
โพสต์นี้ได้รับคำขอบคุณจาก: chai

15
ได้ข้อมูลมาจากเฟสบุ๊กเพจ "โปรแกรมเมอร์ไทย Thai programmer" ครับ

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

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

16
สรุปรายงานวันนี้ก่อนนะครับ
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    เตรียมพร้อม    300.-   1,092 
  65-66    ...    เตรียมพร้อม 

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


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

หน้า: [1] 2