กดปุ่ม [CTRL] + ['] จะเป็นการเรียกข้อมูลก่อนหน้ามาใส่ (ไม่รู้ว่าช่วยแก้ปัญหาได้ป่าวนะครับ)

นอกจากเรื่องของโหมดจอ ชื่อฟอนต์ ยุคสมัยนี้ยังมีเรื่องของ DPI ของจอที่กำหนดใน Windows อีกอย่างนึงนะครับ เนื่องจากสมัยนี้จอคอมมีความละเอียดสูงขึ้นเช่น HD 2K 4K แต่ถูกแสดงผลที่จอ 13, 14, 15 นิ้ว ของโน๊ตบุ๊กเท่าเดิม เม็ดพิเซลถูกอัดลงหน้าจอมีความละเอียดมากขึ้นต่อตารางนิ้ว ทำให้เมื่อเรากำหนดค่า DPI เป็น 96 คือ 100% เหมือนเครื่องสมัยก่อน ตัวหนังสือจะเล็กมากๆ ทำให้เรามองได้ไม่ถนัด ดังนั้นส่วนมากคอมสมัยใหม่เล่นที่ความละเอียดสูงๆ จะกำหนด DPI หรือ Scale ไว้เกิน 100% เช่น 125% 150% อย่างเครื่องผมกำหนดเป็น 200% เพื่อทำให้ไอคอนและตัวอักษรใหญ่ขึ้น เราจะได้มองชัดขึ้น มีผลทำให้เวลาเราออกแบบไฟล์ MS Access ที่เครื่องนึง และไปใช้อีกเครื่องที่กำหนด Scale ไว้ไม่เท่ากัน ขนาดตัวอักษรที่ออกแบบไว้มันก็จะโตตามค่า Scale ที่กำหนดใน Windows ด้วย
ทางแก้ไข แบบกำปั้นทุบดินเลยก็คือ ปรับค่า Scale ให้เท่ากับของต้นฉบับก็จะใช้ได้ แต่ตัวอักษรใน Windows ทั้งหมดก็จะตัวเล็กมองไม่ชัด หรือเขียนโค้ดตรวจสอบก่อนรันฟอร์มว่า Windows ที่ใช้กำหนดค่า DPI เป็นเท่าไหร่ แล้วปรับขนาดฟอนต์ของทุกคอนโทรลบนฟอร์มนั้นให้มีขนาดเล็กลงหรือใหญ่ขึ้นตาม DPI ที่กำหนดใน Windows ซึ่งอันนี้ก็จะต้องเขียนโค้ดและทดสอบกันยาวพอดูครับ
ดู Scale ของ Windows 10 ได้โดยการคลิ๊กขวาที่พื้นที่ว่างบน Desktop แล้วเลือก Display Setting > Scale and Layout

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

ถ้าอยากเก็บค่า Checkbox หลายๆ ตัวลงในฟิลด์เดียว ลองทำเป็นค่ายกกำลังแล้วจัดเก็บในรูปแบบของตัวเลขตามกระทู้นี้ที่ อ.สันติสุข เคยแนะนำไว้ดูครับ
https://www.thai-access.com/yeadram_view.php?topic_id=3414

ลองดูคลิปนี้นะครับ แต่การแสดง meter มันทำให้เครื่องต้องเสียเวลาแสดงส่วนนี้เพิ่มด้วยทำให้การทำงานช้าลงอีกนะครับ



ปล. มันจะมีอีกอย่างคือ progress meter ที่ Status bar ไม่แน่ใจว่าตั้งแต่ MS Access เวอร์ชั่น 2007 หรือ 2010 ขึ้นไป ก็สามารถเขียนคำสั่งให้มันแสดงความก้าวหน้าได้ ตัวอย่าง

1. สร้างตัวแปร
Dim ReturnValue As Variant
 
2. กำหนด สเกล ให้ เท่ากับ 100
ReturnValue = SysCmd(acSysCmdInitMeter, "Processing ", 100)
 
3. สมมุติเป็นการนับเรคคอร์ดทั้ง ก็ทำให้ เป็น เปอร์เซนต์
For StartLoop = 0 To (TotalRecord - 1)
      ReturnValue = SysCmd(acSysCmdUpdateMeter, ((StartLoop) / TotalRecord) * 100)
Next StartLoop
 
4. เคลียร์
ReturnValue = SysCmd(acSysCmdRemoveMeter)

อะไรประมาณนี้ครับ ปรับใช้ดู

ที่บอกว่า "มันเหมือนเกินขีดจำกัด และขึ้น error" มันมีปัญหายังไงหรือครับ เท่าที่ดูทั้งการใช้ IIF() หรือใช้ฟังก์ชั่น Switch() มันก็ใช้ได้นะครับ ผมเคยเขียนซ้อนกันเยอะกว่านี้อีก

@UnKnown ทำให้ผมนึกถึงรูปที่เค้าล้อคนที่ชอบเขียน If ซ้อน If กันเยอะๆ รูปนี้เลยครับ

'----------------Code Start----------------
    Dim obj As Object, prop As Property, str As String
On Error Resume Next
    For Each obj In Forms("ชื่อฟอร์มเป้าหมาย")
        For Each prop In obj.Properties
            If obj.Name = "ชื่อคอนโทรลเป้าหมาย" Then
                str = str & vbCrLf & obj.Name & vbTab & prop.Name & vbTab & prop.Value
            End If
        Next
    Next
    Debug.Print str
 
    'คำสั่งสร้าง Text File ----------------------------
    'Open "C:\???\???.txt" For Output As #1
    'Print #1, str
    'Close #1
    '---------------------------------------------
'-----------------Code End-----------------

ในฟิลด์ Data Type แบบ Text หากกำหนดคุณสมบัติหัวข้อ Allow Zero Length: Yes จะเป็นการกำหนดให้โปรแกรม MS Access เห็นค่าของสตริง "" ไม่เหมือนกับค่า Null กล่าวคือ ค่า Null ของ String ไม่เหมือนกับค่า String ที่มีความยาวเป็น 0 เช่น เมื่อเรากำหนด Allow Zero Length: Yes และกำหนด Required: Yes (หมายถึง ฟิลด์นี้ต้องใส่ข้อมูลห้ามเป็นค่าว่าง) เมื่อเราทำการคีย์ข้อมูลเราสามารถใส่ค่าเครื่องหมาย "" บนฟิลด์ที่กำหนด Required: Yes ได้ โดยโปรแกรมจะเห็นว่ามีค่าแล้ว แต่หากกำหนด Allow Zero Length: No และกำหนด Required: Yes เมื่อเราคีย์ข้อมูลใส่ค่าเครื่องหมาย "" บนฟิลด์ที่กำหนด Required: Yes โปรแกรมจะไม่ยอมให้ผ่านไป ยังคงฟ้องให้ผู้ใช้ใส่ข้อมูลอยู่ นั่นคือโปรแกรมเห็นค่า "" เป็นค่า Null นั่นเอง

ฟังก์ชัน Nz() ก็เช่นกัน เพราะฟังก์ชั่น Nz() จะมองค่า "" ไม่เหมือนกับค่า Null การใช้งานเราตัองมั่นใจว่าค่าที่เราต้องการจะใช้ Nz() ต้องเป็นค่า Null จริงๆ ไม่ใช่ค่า "" เช่น
?Nz(Null,0) = 0
?Nz("",0) = ""
จะเห็นว่าหากเราใช้ Nz() กับค่า String ที่เป็น "" ฟังก์ชั่น Nz() จะไม่ให้ค่าตามที่เราต้องการ
เรื่องของค่าว่าง ค่าศูนย์ ไม่มีค่า และการใช้ฟังก์ชั่นเกี่ยวกับการไม่ใส่ค่าต่างๆ เหล่านี้ต้องทดลองและศึกษาดูครับ มันมีอยู่เยอะเหมือนกันใน MS Access หลายคนตกม้าตายตรงการตรวจสอบค่าพวกนี้ จนทำให้โปรแกรมที่เขียนทำงานผิดพลาดแบบไม่รู้ตัว (ผมด้วยคนนึง) ผมเคยเขียนการทดสอบเล่นๆไว้ลองเทียบดูนะครับ เป็นตัวอย่าง
--------------------------------------------
Dim myVar As Variant
myVar = Null
 
If Isnull(myVar) Then        Return: True
If IsEmpty(myVar) Then       Return: False
If myVar = "" Then           Return: Null
If myVar = vbNullString Then Return: Null
If myVar = vbNullChar Then   Return: Null
If myVar = vbEmpty Then      Return: Null
If myVar & "" = "" Then      Return: True
If Nz(myVar) = "" Then       Return: True
If Len(myVar) = 0 Then       Return: Null
--------------------------------------------
Dim myVar As Variant
myVar = Empty
 
If Isnull(myVar) Then        Return: False
If IsEmpty(myVar) Then       Return: True
If myVar = "" Then           Return: True
If myVar = vbNullString Then Return: True
If myVar = vbNullChar Then   Return: False
If myVar = vbEmpty Then      Return: True
If myVar & "" = "" Then      Return: True
If Nz(myVar) = "" Then       Return: True
If Len(myVar) = 0 Then       Return: True
--------------------------------------------
Dim myVar As Variant
myVar = ""
 
If Isnull(myVar) Then        Return: False
If IsEmpty(myVar) Then       Return: False
If myVar = "" Then           Return: True
If myVar = vbNullString Then Return: True
If myVar = vbNullChar Then   Return: False
If myVar = vbEmpty Then      Return: False
If myVar & "" = "" Then      Return: True
If Nz(myVar) = "" Then       Return: True
If Len(myVar) = 0 Then       Return: True
--------------------------------------------
Dim myVar As Variant
myVar = vbNullString
 
If Isnull(myVar) Then        Return: False
If IsEmpty(myVar) Then       Return: False
If myVar = "" Then           Return: True
If myVar = vbNullString Then Return: True
If myVar = vbNullChar Then   Return: False
If myVar = vbEmpty Then      Return: False
If myVar & "" = "" Then      Return: True
If Nz(myVar) = "" Then       Return: True
If Len(myVar) = 0 Then       Return: True
--------------------------------------------
Dim myVar As Variant
myVar = vbNullChar
 
If Isnull(myVar) Then        Return: False
If IsEmpty(myVar) Then       Return: False
If myVar = "" Then           Return: False
If myVar = vbNullString Then Return: False
If myVar = vbNullChar Then   Return: True
If myVar = vbEmpty Then      Return: False
If myVar & "" = "" Then      Return: False
If Nz(myVar) = "" Then       Return: False
If Len(myVar) = 0 Then       Return: False
--------------------------------------------
Dim myVar As Variant
myVar = vbEmpty
 
If Isnull(myVar) Then        Return: False
If IsEmpty(myVar) Then       Return: False
If myVar = "" Then           Return: False
If myVar = vbNullString Then Return: False
If myVar = vbNullChar Then   Return: False
If myVar = vbEmpty Then      Return: True
If myVar & "" = "" Then      Return: False
If Nz(myVar) = "" Then       Return: False
If Len(myVar) = 0 Then       Return: False
--------------------------------------------

ถ้าจะกำหนดให้ค่า Null เป็น 0 ก็ใช้
Val(Nz(DSum("[Que_Pro] * [Salepre_Pro]","tbl_OrderItemPro","ID_Pro=" & [Qry_TotalOut].[ID_Pro]), 0))