AddItem จะไม่มีใน Access 97 ครับ จะมีใน Access ที่สูงกว่าครับ

ถ้าต้องการที่จะทำให้ List Box มีรายการตามที่เรากำหนดเอง ก็สามารถทำได้ดังนี้ครับ Private Sub Form_Load() Me.List0.RowSourceType = "Value List" Dim strList As String, I As Integer For I = 1 To 10 strList = strList & "'" & "Test " & I & "';" Next I Me.List0.RowSource = strList End Sub จากโค้ดข้างบน จะเริ่มจากการกำหนด Property ชื่อ Row Source Type ให้เป็น Value List ก่อน จากนั้นให้วนลูปเพื่อเพิ่มรายการเข้าไปใน List โดยจะต้องมีเครื่องหมาย ' ' แล้วคั่นด้วย ; ถ้าต้องการที่จะเพิ่มรายการเข้าไปอีก ก็ใช้โค้ดข้างล่างครับ Private Sub cmdAddItem_Click() Me.List0.RowSource = Me.List0.RowSource & "'" & "Test 11" & "';" Me.List0.Requery End Sub ลองปรับใช้ดูนะครับ

เรียน อาจาร์ยสุภาพ ของผมเป็น Access 2000 ครับ ยังไม่มี AddItem เลยครับ งงจริง ๆ ลองเอา File ไปให้เพื่อนซึ่งใช้ Access 2000 เขาก็มี AddItem ดูต้อง References ของผมเป็น Microsoft Access 9.0 Object Library แต่เพื่อนเป็น Microsoft Access 10.0 Object Library ไม่ทราบว่ามันเกี่ยวกับ Version หรือเปล่าครับ แล้วผมจะทำยังไงให้ของผมเป็น Version 10 ได้ครับ เพราะมันไม่มีให้คลิกเลือกเลย แต่ผมลองวิธีอาจารย์ก็ใช้ได้ผลเหมือนกันครับ แต่ต้องการทราบปัญหาที่แท้จริงว่า ทำไมของผมไม่มี AddItem ขอบพระคุณอาจารย์มากครับ

ผมไปตรวจดูในเครื่องฯ ที่ลงเฉพาะ A2K พบว่า ไม่มี AddItem ครับ ที่ผมตอบครั้งแรกเพราะไปดูในเครื่องฯ ผมเอง แต่ไม่ได้ดูว่ามันอ่านจาก Library ตัวไหน AddItem จะมีอยู่เฉพาะอยู่ใน Access 2000 ครับ จะมีอยู่ใน AXP เท่านั้น ซึ่งจะอยู่ใน Microsoft Access 10.0 Object Library แสดงว่าเครื่องของเพื่อนคนนั้นได้เคยลง หรือมี AXP อยู่ในเครื่องฯ ด้วย หรือมีไฟล์ msacc.olb ของเวอร์ชั่น 10 อยู่ครับ