1.หน้าฟอร์มแสดงเฉพาะรายการที่ Check = False

ไฟล์ตัวอย่างแนวทางใหม่(ยังไม่ได้แกะเพื่อแก้ไฟล์ของท่านนะครับ /ดูแนวแล้วแก้เองเลยหรือรอท่านอื่นอีกทีนะครับ)

ขอแทรกเข้ามาตีโจทย์ของกระทู้นี้นะครับ / สิ่งที่ จขก.นั้นต้องการก็คือ
1.ต้องการให้บนหน้าฟอร์มแสดงเฉพาะรายการที่ถูกติ๊กและมีการเก็บค่าใว้บนตารางจากที่อื่น(ทั้งหมด40-มีติ๊กใว้อยู่ก่อนแล้ว20=ฟอร์มต้องแสดงแค่20ที่เหลือ)
2.เมื่อหน้าฟอร์มแสดงแค่20รายการจากข้อ1 จะมาทำการติ๊กเลือกอีกครั้งว่าจะเอาตัวไหนออกรายงานบ้าง(เหลือ20-ติ๊กใหม่10=ออกรายงาน10)

ถ้าเป็นดั่งด้านบน วิธีการที่ผมจะทำคือให้บนตารางเก็บค่าติ๊กใว้2ค่าแล้วจะเกิดเหตุการณ์ดังนี้
1.หน้าฟอร์มแสดงเฉพาะรายการที่ Check = True
2.เมื่อติ๊กบนหน้าฟอร์มอีกครั้งจะเก็บค่าใว้บน Check2 = True
3.เมื่อออกรายงานจึงเป็น 40 - 20(check) - 10(check2) = 10รายการเท่านั้นใช่หรือไม่ครับ?

ปล.ผมเอาไฟล์จากโพสนี้ไปทำการเพิ่ม check2 และทำการกรองตามวิธีด้านบนครับ(ค่าcheck อยู่บนตารางไม่ได้ทำฟอร์มแก้)

ลองดูตัวอย่างจากกระทู้นี้ครับ
https://www.thai-access.com/index.php?topic=307.msg1223#msg1223

แนวคือเมื่อใส่เลขงวดไปแล้ว แล้วให้แสดงเฉพาะปุ่มนั้นมีแนวทางตามนี้ครับ

แบบที่1 ทุกปุ่มสั่งล็อคใว้ Enabled = No จะปลดล็อคเมื่อเลขงวดตรง
Private Sub Text5_AfterUpdate()
GetNum = Me.Text5
    Select Case GetNum
        Case "1": Me.Command1.Enabled = True
        Case "2": Me.Command2.Enabled = True
        Case "3": Me.Command3.Enabled = True
        Case "4": Me.Command4.Enabled = True
    End Select
End Sub
แบบที่2 ทุกปุ่มสั่งซ่อนใว้(ยังไม่แสดง) Visible = No จะแสดงปุ่มเมื่อเลขงวดตรง
Private Sub Text5_AfterUpdate()
GetNum = Me.Text5
    Select Case GetNum
        Case "1": Me.Command1.Visible = True
        Case "2": Me.Command2.Visible = True
        Case "3": Me.Command3.Visible = True
        Case "4": Me.Command4.Visible = True
    End Select
End Sub
ทั้งสองแบบต่างกันที่การตั้งค่าปุ่มบนหน้าฟอร์มกับชุดคำสั่งเพียงเล็กน้อย

แต่ชุดคำสั่งด้านบนยังติดขัดคือ สมมุติใส่เลขงวด1 = ปุ่ม1ทำงาน | แก้ใส่เลขงวด2 = ปุ่ม2ทำงาน แต่ปุ่ม1ก็จะยังคงทำงานอยู่ไม่ล็อคหรือกลับไปซ่อนตามเดิมนะ รอคำแนะนำจากท่านอื่นอีกทีครับ

Table1=เทเบิ้ล, NoId=คอลั่มน์ที่เก็บเลข, Command4=ชื่อปุ่ม, Text5=กล่องแสดงตัวเลขบนฟอร์มที่ผูกคอลั่มน์ NoId บนเทเบิ้ลแล้วด้วย

Private Sub Command4_Click()
Dim X As Variant
Dim bk As String
        X = DMax("NoId", "[Table1]")
        If IsNull(X) Then bk = 1 Else bk = X + 1
    Me!Text5 = Format(bk, "00000")
End Sub
ปล.กระทู้เกี่ยวกับระบบรันตัวเลข,รันเลขที่อัตโนมัติมีเยอะลองค้นหาดูได้ครับ

รูปแบบ subform ท่านเป็นแบบ Continuous Forms ดังนั้นเมื่อ combobox ใดๆที่ไม่ได้ผูกตัวแปรอะไรใว้(unbound)จะเกิดเหตุการณ์ที่ว่าโปรแกรมจะแสดงค่าล่าสุดที่มีการเลือกใช้มาแสดงเองโดยอัตโนมัติ *แต่ก็เป็นเพียงแค่การนำมาแสดงเท่านั้นไม่ได้มีผลผูกพันธุอะไรเหมือนกับที่เรากดเลือกจริง
วิธีแก้คือผูกกับตารางเหมือนกล่องอื่นๆครับ หรือเคยเห็นมีกระทู้ถามตอบแนวนี้อยู่ครับ(จำไม่ได้ว่ากระทู้ไหนขอโทษด้วยครับลองค้นหาดู )

ข้อมูลแก้ไข Type จาก nvarchar เป็น varchar ไม่ได้ค่ะ SQL ไม่ให้เปลี่ยน เนื่องจาก Export ข้อมูลมาจาก Access ข้อมูลหลาย Record แล้วด้วยค่ะ

ใช่ครับ SQL เขาไม่ให้เปลี่ยนจึงแนะนำแนวทางตามโพสล่างไปนะ

.....ใช้วิธีสั่งก๊อบข้อมูลทั้งหมดจาก ntext ไปคอลัมน์ที่สร้างใหม่เป็น text แล้วจึงใช้งานจากคอลัมน์นี่แทน...

ตัวอย่างชุดคำสั่งบน SQL Server Management Studio
UPDATE [ชุดดาต้าเบส].[dbo].[ชื่อเทเบิ้ล]
SET [คอลัมน์ใหม่] = [คอลัมน์เก่า]

ลองดูตัวอย่างอาจารย์ครับ

ปกติแล้วรายการ combo box ใน Access ที่เราดึงมาจากตารางก็จะมีเพียงข้อความเท่านั้น  เราสามารถใส่ไอคอนหรือรูปภาพเข้าไปแบบคลิบด้านล่างที่เขาใช้ MS Visual Basic ได้ใหมครับ
(รูปดึงจาก Attachment หรือ CurrentProject.Path)

ที่ Combo box : Part Name สั่ง Requery ข้อมูลครับ
Private Sub cb_PartID_GotFocus()
    Me.cb_PartID.Requery
End Sub