ms access ฟอนต์มั่วทุกครั้งที่เปิดไฟล์ใหม่
กระทู้เก่าบอร์ด อ.Yeadram

 2,201   4
URL.หัวข้อ / URL
ms access ฟอนต์มั่วทุกครั้งที่เปิดไฟล์ใหม่

สวัสดีครับ
เจอปัญหานี้มานาน แก้ไม่หายซักที

ผมใช้ access 2016
ผมใช้ฟอนต์ Sarabun กับทุกฟอร์ม แต่ปัญหาคือ ฟอนต์มันจะไม่แสดงเป็น Sarabun ทั้งหมด มักจะมีฟอนต์อื่น แทรกมาตลอดเวลาเปิดไฟล์ขึ้นมาใหม่

รูปประกอบ
https://prnt.sc/gmxfiy

ขอบคุณมากครับ

4 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R24065
font ต้อง set กับทุก control บน form นะครับ และ font Sarabun ไม่ได้เป็น font ที่มีอยู่ทุกเครื่อง เอาไปใช้เครื่องอื่นก็จะได้เป็น font แบบที่เห็น
2 @R24068
ในเครื่องผม มีฟอนต์แน่นอนครับ สังเกตจากในรูปมีบางช่องที่แสดงฟอนต์เป็น Sarabun บางช่องก็แสดงฟอนต์อื่น

http://prntscr.com/gmy9eu
จากรูป ใน control ก็แสดง th Sarabun New นะครับ

แล้วผมก็ลองเลือกฟอนต์จาก control ใหม่ โดยเลือกเป็น th Sarabun New ฟอนต์มันจะเปลี่ยนให้ครับ เป็นฟอนต์ที่ถูกต้อง
แต่พอปิดไฟล์ แล้วเปิดใหม่ ก็กลับมาเป็นเหมือนเดิม

ขอบคุณครับ
3 @R24069
มันจะเป็นกับบ้างฟอนต์ที่ไม่ใช่มาตรฐานของ MS Access ครับ อย่างฟอนต์บาร์โค้ดผมก็เจอครับ เปิดใหม่ฟอนต์จะเปลี่ยน วิธีแก้ก็คือให้ไปเขียน VBA บนฟอร์มที่ Event > On Load ที่คอนโทรลทุกตัว กำหนดชื่อฟอนต์นั้นลงไปอีกทีครับ ผมเคยบอกไว้ในคลิปนี้ครับ กดตรงนี้

แต่ถ้าคอนโทรลในฟอร์มมันเยอะมาก ก็สามารถเขียนคำสั่งลูปกำหนดเฉพาะคอนโทรลที่เราต้องการโดยไม่ต้องอ้างชื่อได้เช่น

'Private Sub Form_Load()
    Dim CTL As Control
    For Each CTL In Me.Form
        If TypeOf CTL Is TextBox Or TypeOf CTL Is CommandButton Or TypeOf CTL Is NavigationButton Or TypeOf CTL Is ComboBox Then 'คอนโทรลแบบต่างๆ ที่มี Property ของ FontName คือมีการกำหนดฟอนต์ได้เท่านั้น
            Me(CTL.Name).FontName = "Sarabun"
        End If
    Next
'End Sub

จะเขียนประมาณในคลิปนี้ครับ แต่ไม่ต้องเขียนเป็นฟังก์ชั่น ให้เขียนใน Event > On Load ของฟอร์มได้เลย

ตัวอย่างคลิป

ประมาณนี้ครับ ปรับใช้ดู
4 @R24070
@คุณ TTT

ขอบคุณมากเลยครับ ขอสับตะไคร้เลย

ผมเองก็คิดอยู่ว่า ถ้าเขียนโค้ดบังคับเลยมันน่าจะแก้ปัญหาได้ แต่ไม่รู้โค้ด
ถ้าได้โค้ดที่คุณ @TTT ให้ ผมว่าน่าจะใช้งานได้ปกติครับ
ปัญหาต่อไปคือ มันจะส่งผลใช้โหลดช้าขึ้น จนรู้สึกได้รึป่าว
(เดี๋ยวจะลองทำตามนี้นะครับ)

ขอบคุณครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2777s