ปัญหาที่เคยเจอมาคือ ชื่อ Module เป็นภาษาไทยครับ

ใช่เลยครับ
1. แต่ตรงนี้ผมไม่เคยตั้งชื่อมัน โปรแกรมมันจะตั้งอัตโนมัติเองใช่ไหมครับ
2. เป็นดังนี้ เราต้องแก้ไขชื่อ Project ไม่ให้ชื่อ Database ถูกต้องไหมครับ

ใช่ครับ แก้เป็นชื่ออื่นๆได้เลย

ลองนี่ครับ
ทำตามภาพเลยตามลำดับ
1. สร้าง table ใส่ ribbon
2. set ค่าตามภาพ
3. ปิดโปรแกรมแล้วเปิดใหม่ จะได้ ribbon ตามภาพเลย

ผมเคยเกิดเหตุการณ์แบบนี้ครับ
เลยไปกำหนด ตรง References โดยกำหนดให้มี DAO Object Library ด้วย
เวอร์ชั่นเท่าที่เห็นมา เหมือนจะมีถึง 3.6 นะครับ เวอร์ชั่นใหม่ๆ ไม่เคยเจอ
หรือเขาจะไม่ทำต่อแล้วหรือเปล่าไม่แน่ใจครับ แต่ผมว่ามันยังใช้งานได้ดีอยู่ทั้ง access เวอร์เก่า และใหม่

dim dbs As Database ดึงตรงจากฐานข้อมูล
Dim dbs As dao.Database  ใช้ Dao เป็นตัวกลางในการเชื่อมข้อมูลระหว่าง Database กับส่วนที่ใช้ในการแสดงผลข้อมูล

เลือกตาราง > Database Tools > Object Dependencies

พอดีพึ่งเริ่มเขียนVBในAccessเลยอยากรู้ว่าDoCmd.SetWarnings False/True ไว้ใช้ทำอะอะไรและDoCmd.คืออะไร

SetWarnings คือการเปิด/ปิดข้อความโต้ตอบ ของระบบครับ True = เปิด   / False = ปิด
ถ้าคุณใช้งานไปคุณจะสังเกตุเห็นข้อความสอบถามจากระบบเช่น ตกลง หรือ ยกเลิก ใช่ หรือ ไม่ เป็นต้น
การสั่งให้  DoCmd.SetWarnings False เป็นการสั่งปิดข้อความตอบโต้ของระบบออกไป
ซึ่งคุณต้องมั่นใจว่าผลลัพธ์ของแมโครแอคชันทั้งหมด หรือการนำไปใช้กับ Query แบบ MakeTable /Append /Delete นั้นทำงานถูกต้องแล้วด้วยนะครับ ถ้าต้องการให้แสดงข้อความตอบโต้ กำหนดเป็น True

ยกตัวอย่าง
ผมสมมุติว่าต้องการสร้าง Make Table Query ขึ้นมา 1 ตัว โดยใช้คำสั่งในการรัน Query ดังนี้
Private Sub Command0_Click()
DoCmd.OpenQuery "Query1"
End Sub
ผลที่ได้คือจะมีข้อความตอบโต้ขึ้นมา ซึ่งไม่สะดวกในการนำไปใช้งานกับโปรแกรมจริงๆ


ผมเลยนิยม ปิดคำสั่งตอบโต้ซะโดยใส่ Code แบบนี้
Private Sub Command0_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "Query1"
DoCmd.SetWarnings True
End Sub
DoCmd คือ Object ในการสั่งให้ Methods ทำงานซึ่ง Methods ก็มีมากมายที่ ใช้ใน Visual Basic ซึ่งรวมถึงการสั่ง run มาโคร actions โดยวิธีการจะดูว่า Methods มีอะไรบ้าง ที่หน้าต่าง เขียนโค็ดถ้าท่านพิมพ์ DoCmd. เมื่อใส่ . ท่านจะเห็นว่ามีอะไรบ้างที่ทำงานด้วยใช้ Docmd ซึ่ง นำไปใช้งานได้หลากหลายเช่น การเปิด/ปิดฟอร์ม ปริ้นรายงาน ตั้งค่าตัว Control การ Import/Export และอื่นๆ มากมาย

ที่ตัวรายงาน ส่วนของ Detail  ตรง Event On Print ใส่โค้ดนี้เข้าไปครับ
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim ctl As Control, strText As Variant, strName As String
    Me.ScaleMode = 1
    For Each ctl In Me.Detail.Controls
        If ctl.ControlType = acTextBox Then
       
        strName = ctl.Name
            If Nz(ctl.Tag, "") = "" Then
                ctl.Tag = ctl.FontSize
            End If
            ctl.FontSize = ctl.Tag
            Me.FontSize = ctl.FontSize
            strText = ctl.Value
           If Len(strText) > 0 Then
            Do Until TextWidth(strText) < ctl.Width
                ctl.FontSize = ctl.FontSize - 1
                Me.FontSize = ctl.FontSize
            Loop
            Do Until TextHeight(strText) < ctl.Height - (ctl.Height * 0.26)
                ctl.FontSize = ctl.FontSize - 1
                Me.FontSize = ctl.FontSize
            Loop
        End If
        End If
       
    Next ctl
End Sub

ผลที่ได้

Has Module หมายถึงฟอร์มนี้ได้มีการเขียนโค้ดลงใน Event อะไรของฟอร์มหรือของ Control หรือไม่ ถ้าเป็น Yes ตัว Access จะมองฟอร์มนี้เป็น Class ด้วย  (ซึ่งทำให้สามารถมอง sub procedure ของฟอร์มเป็น Method และ function procedure ของฟอร์มเป็น Property)  พอเราเลือกเป็น No โค้ดต่างๆในฟอร์มนี้จะถูกลบทิ้งครับ  ผมคิดว่าไม่น่ามีส่วนเกี่ยวข้องกับปัญหาที่เจอนะครับ  ยังคิดไม่ออกว่าเพราะอะไร ลองทำ Compile แล้วตามด้วย Compact and Repair Database อาจช่วยได้ ?!?