โปรแกรมแจกฟรี (ส่งท้ายปีเก่า ต้อนรับปีใหม่) นี้ ใช้ชื่อว่า Q2RFree

เหมาะสำหรับผู้ทำอาชีพอิสระที่จำเป็นต้องออกพวกใบเสนอราคา/ใบแจ้งหนี้/ใบเสร็จ

ตัวโปรแกรมใช้ระบบ MS Access มีความสามารถดังนี้
1. เก็บข้อมูลลูกค้าได้
2. เก็บข้อมูลการออกเอกสารทุกรายการได้
3. สำเนารายการจากเอกสารที่มีอยู่ได้ สำหรับกรณีทำงานเดิมอีกครั้ง หรือจะสำเนาจากใบเสนอราคาไปเป็นใบแจ้งหนี้แล้วต่อด้วยใบเสร็จก็ได้
4. สามารถใส่ Logo ได้ (อย่าลืมไปจดทะเบียนเครื่องหมายการค้าก่อนนะครับ)
5. ถ้ายังไม่มี Logo ก็สามารถออกเอกสารแบบที่ไม่มี Logo ได้
6. เปลี่ยนสีหัวเอกสารได้ จะแดง/เขียว/น้ำเงิน/ชมพู/ฟ้า/เหลือง ได้หมด ไม่มีสีดำ เพราะทำแล้วดูไม่ได้
7. ทุกเอกสารมีให้เลือก 2 แบบ ตามความชอบ

ดาวน์โหลดได้เองเลยที่ลิงก์ด้านล่างนี้
https://1drv.ms/u/s!ArcuGeSfhpiQhwGsRn9TPBxFIpp-?e=c1NGeI

สุดท้ายอย่าลืมอ่านคู่มือก่อนนะครับ
ติดปัญหาอะไรอีเมลมาถามได้ ตอบทุกอีเมลแน่นอน ถ้าไม่ตอบก็รอหน่อย เมลอาจตกไปอยู่ใน Jung Mail

ตัวอย่างที่ผมเคยทำและเก็บไว้นะครับ แต่ผมใช้กับ SQL SERVER ไม่เคยลองกับ MySQL นะครับ

- ต้องการลิ้งค์ตารางชื่อ Table1 จาก SQL Server เข้ามายัง MS Access 
- ข้อมูล SQL SERVER
--------------------------
Server Name  : ASPIRE-ONE
Database Name: Demo
Login        : sa
Password     : Abc!23
--------------------------
 
<DAO>
'----------------Code Start----------------
Sub LinkSQL_DAO()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Set db = CurrentDb
    Set tdf = db.CreateTableDef("dbo_Table1") 'ชื่อตารางที่ลิ้งค์เข้ามาใหม่
    tdf.Connect = "ODBC;Driver=SQL SERVER;SERVER=ASPIRE-ONE;UID=sa;PWD=Abc!23;Database=Demo;"
    tdf.SourceTableName = "Table1" 'ชื่อตารางเป้าหมายที่เครื่อง SQL Server
    db.TableDefs.Append tdf
'-------- หากต้องการลิ้งค์เพิ่มอีกตาราง  -------------------- 
'    Set tdf = db.CreateTableDef("dbo_Table2")
'    tdf.Connect = "ODBC;Driver=SQL SERVER;SERVER=ASPIRE-ONE;UID=sa;PWD=Abc!23;Database=Demo;"
'    tdf.SourceTableName = "Table_2"
'    db.TableDefs.Append tdf
'--------------------------------------------------
'-------- หากต้องการลบลิ้งค์ตาราง  --------------------
'    db.TableDefs.Delete "dbo_Table1"
'--------------------------------------------------
    db.Close: Set db = Nothing
End Sub
'-----------------Code End-----------------
 
* หมายเหตุ: คำสั่งนี้จะไม่สามารถเซฟรหัสผ่านได้ ทุกครั้งที่เปิดไฟล์ฐานข้อมูล MS Access ใหม่แล้วเรียกลิ้งค์ตารางที่สร้างจะต้องใส่รหัสผ่านใหม่ในครั้งแรกเสมอ จึงเหมาะกับการใช้งานชั่วคราว หรืออาจต้องใช้คำสั่งลบลิ้งค์ตารางแล้วสร้างใหม่ทุกครั้งเมื่อเปิดไฟล์แทน

https://stackoverflow.com/questions/5695194/dsn-less-connection-to-mysql-server-in-ms-access-not-remembering-user-name-and-p

อันนี้น่าจะเป็นคำตอบ

เรียกใช้เมื่อต้องใช้ พอใช้เสร็จก็ Drop Table ครับ

ทำการย้ายชุดคำสั่ง"แนบไฟล์"ออกมาใว้ข้างนอกด้านล่างกล่องข้อความเพื่อให้ใช้งานได้ง่ายขึ้นแล้วนะครับ

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

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

ใช้การดักจับ 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


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

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