เครื่องหมาย คอมม่า หรือเครื่องหมาย เซมิ-โคลอน
ในสายอักขระที่เป็นแหล่งข้อมูลของคอมโบบ็อกซ์ และลิสต์บ็อกซ์ เป็นเครื่องหมายสงวน เพราะมันมีไว้เพื่อแบ่งแยกจำนวนสมาชิก

ผมเคยติดปัญหานี้เช่นกัน ผมใช้วิธีเลี่ยงโดยการ ไม่ให้ข้อมูลมันมีเครื่องหมายพวกนี้ (พอดี ข้อมุลของผลจัดการง่ายครับ เลยผ่านไปได้ด้วยดี คือสามารถจำกัดได้ว่า ห้ามมีเครื่องหมาย พวกนี้)

ที่ตอบมาคืออยากเล่าให้ฟังถึงสาเหตุครับ แต่ทางแก้คงต้องรอ อาจารย์ท่านอื่นๆ ต่อครับ (ถ้ากรณีไม่สามารถกำจัดเครื่องหมายในข้อมูลได้ อย่างของผม)

ถ้าชนิดแหล่งข้อมูลเป็น Table/query จะใช้ได้ตามที่ต้องการ (3 row)
แต่ถ้าเป็น value list เขียน vba จะเป็นการอ่านสมาชิก มา 4 row
1 ต้องห้ามใช้ คำสงวนเหล่านี้ ตามที่คุณ yeadram แนะนำ
2 ใช้ replace ก่อน แทนค่าใน recordset เพื่อขจัด คำสงวน
วิธีอื่นยังนึกไม่ออกครับ

ใช่ครับ มันเป็น value list
ขอบคุณทั้งสองท่านครับ

ทำไมไม่เขียน

Sqm = " SELECT Extra FROM extra where Rubno = "
Sqm = Sqm & IdFind
Me.Extra.RowSource =Sqm

ส่วน RowSourceType property ของคอมโบบ็อกซ์นี้ก็กำหนดให้เป็น Table/Query

code เต็มเป็นอย่างนี้ครับ อาจารย์

Sub ExtraList() '¶Í´ list áÅÐ add list ã¹àÇÅÒà´ÕÂǡѹ
Dim k
For k = 100 To 0 Step -1
On Error Resume Next
      Me.Extra.RemoveItem k
   Next k
   
Dim IdFind As Integer 'ËÒ¤èÒµÑÇàÅ¢¡ÅØèÁËÅÑ¡
Dim Ro As DAO.Recordset
Set Ro = CurrentDb.OpenRecordset("RubType")
Do Until Ro.EOF
If Me.TypeRubJay = Ro!RubType Then
IdFind = Ro!ID
End If
Ro.MoveNext
Loop
Ro.Close
Set Ro = Nothing

Dim rs As DAO.Recordset
Dim Sqm As String
Sqm = " SELECT Extra FROM extra where Rubno = "
Sqm = Sqm & IdFind
Set rs = CurrentDb.OpenRecordset(Sqm)
Dim i
i = 0
Do Until rs.EOF
                 Me.Extra.AddItem Item:=rs!Extra ', Index:=i
             rs.MoveNext
            i = i + 1
Loop
           rs.Close
        Set rs = Nothing

End Sub

จริงๆ แล้วผมมี combobox 2 ตัว เมื่อตัวที่ 1 ได้ว่าเป็นประเภทไหน จึงเอาประเภทของ combo ที่ 1 มาอ้างอิง ใน combo ที่ 2 ว่า ให้เลือกได้แค่นี้
แต่ใน combo ที่ 2 นี้ ให้สามารถ key เข้าเองโดยไม่เลือกจาก list ก็ได้
ดังนั้นใน แต่ละ Record จึงเป็นลักษณะที่ว่า combo 2 ถอดเข้า ถอดออก
คล้ายๆ การเลือก จังหวัด แล้วมาเลือก อำเภอ อะไรประมาณนั้นครับ
แต่ว่าการเลือกอำเภอนั้น ผู้ใช้ สามารถ key เองก็ได้

ตอนแรกที่ตัดสั้นๆ เพราะเกรงใจ กลัวบอร์ดจะเต็ม ต้องขออภัยด้วยครับ

ถ้าต้องการป้อนเองได้ด้วย ก็กำหนด Limit to list property ของ combobox ให้เป็น No ก็เท่านั้นเองครับ ผมก็ยังนึกไม่ออกว่าทำไมจะต้องเขียนโค้ดเพื่อจัดการน้ำเข้า/ลบข้อมูลจากใน combobox เองด้วย ทั้งช้าและยุ่งยากเป็นอย่างมาก

Me.Extra.AddItem Item:= Chr(34) & rs(0) & Chr(34) & ";"
เผื่อช่วยได้ครับ ลองดูก่อน

Code ที่คุณ Yeadram ให้มาใช้การได้ดีครับ
แต่ งง สักหน่อย
ขอรบกวนเรื่องที่มาที่ไปได้ไหมครับ
เผื่อจะเก็บไปใช้ประโยชน์ในวันข้างหน้า
ขอบคุณครับ

ก็เลียนแบบมันครับ
ถ้าเราใช้ วิซาร์ด สร้างคอมโบ แบบ value list
เมื่อสร้างเสร็จเราเข้าไปดูที่ dialog properties ของมัน ดูแหล่งข้อมูลของมัน
ก็จะเห็นว่า มันก็แค่เขียน
"สมาชิก";"สมาชิก";"สมาชิก";"สมาชิก";"สมาชิก";
คือ ปิดหัวท้ายของแต่ละสมาชิกด้วยเครื่องหมาย ฟันหนู แล้วตัวคั่นระหว่างสมาชิกก็ใช้เครื่องหมาย เซมิ-โคลอน

ผมก็เลยลองเขียนตามมันดูครับ ด้วยคิดว่าแม้จะมีเครื่องหมาย คอมม่าหรือเซมิฯ อยู่ในคำก็ตาม แต่อย่างน้อยเรามี ฟันหนูคร่อมมันไว้ มันน่าจะ "ไม่อ่านเครื่องหมายเหล่านั้น"