ลองดูตัวอย่างที่ http://support.microsoft.com/default.aspx?scid=kb;en-us;278378&Product=acc2003 ครับ

ผมลองตัวอย่างง่ายๆให้ดู แล้วนำไปปรับใช้เองครับ..

โชดดีที่เคยเก็บ Code ของทาง Expert ผู้หนึ่งไว้ (เป็นชาวต่างชาติครับ ประเทศอะไรไม่รู้)
Code ที่เขาเขียนไว้ คล้ายกับว่าเป็นภาษา เยอรมัน หรือไม่ก็ ใกล้เคียงกับ สาธารณรัฐเชค อะไรประมาณนี้แหละ

แต่ว่า ใช้ได้ ดีมากเลยครับ
ขออนุญาตนำมาเผยแพร่ ไม่น่าจะว่ากัน

Download ตัวอย่าง ทดลองดูนะครับ
ผมนำมาเรียบเรียงใหม่ ให้ดูง่ายขึ้น
แต่ ผมก็ไม่เข้าใจทั้งหมด

อ. ท่านต่างๆ ถ้าเข้าใจแล้ว ชี้แนะกันด้วยนะครับ

ตามที่ อ.สุภาพแนะนำ
Private Sub Command1_Click()
MoveAllItems "List1", "List2"
End Sub

Private Sub Command2_Click()
MoveSigleItem "List1", "List2"
End Sub

Sub MoveSigleItem(strSourceControl As String, strTargetControl As String)
Dim strItem As String
Dim intColumnCount As Integer
For intColumnCount = 0 To Me.Controls(strSourceControl).ColumnCount - 1
strItem = strItem & Me.Controls(strSourceControl).Column(intColumnCount) & ";"
Next
strItem = Left(strItem, Len(strItem) - 1)
'µÃǨÊͺ´ÙÇèÒÁÕ¡ÒÃàÅ×Í¡¢éÍÁÙÅã¹ List
If Len(strItem) > 0 Then
Me.Controls(strTargetControl).AddItem strItem
Me.Controls(strSourceControl).RemoveItem strItem
Me.Controls(strSourceControl).ListIndex
Else
MsgBox "¡ÃسÒàÅ×Í¡¢éÍÁÙÅâ´Â¡Òà Click ã¹ List"
End If
End Sub

Private Sub Command3_Click()
MoveAllItems "List2", "List1"
End Sub

Private Sub Command4_Click()
MoveSigleItem "List2", "List1"
End Sub

Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String, strItem As String
strSQL = "SELECT Name.NameT FROM Name; "
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
Do Until rs.EOF
strItem = rs.Fields("NameT").Value
Me.List1.AddItem strItem
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
Sub MoveAllItems(strSourceControl As String, strTargetControl As String)
Dim strItem As String
Dim intColumnCount As Integer
Dim lngRowCount As Long
For lngRowCount = 0 To Me.Controls(strSourceControl).ListCount - 1
For intColumnCount = 0 To Me.Controls(strSourceControl).ColumnCount - 1
strItem = strItem & Me.Controls(strSource).Column(intColumnCount, lngRowCount) & ";"
Next
strItem = Left(strItem, Len(strItem) - 1)
Me.Controls(strTargetControl).AddItem strItem
strItem = ""
Next
Me.Controls(strSourceControl).RowSource = ""
End Sub
ที่ Sub MoveSingleItem บรรทัด
Me.Controls(strSourceControl).RemoveItem
และ
Me.Controls(strSourceControl).ListIndex
Run แล้ว Err
ผมแก้เป็น
Me.Controls(strSourceControl).RemoveItem strItem
ไม่รูว่าถูกต้องหรือไม่ และบรรทัด
Me.Controls(strSourceControl).ListIndex
ผมให้ข้ามไม่ Run เพราะไม่รู้จะเติมอะไรลงไป
ก็สามารถทำได้ปกติ
ปัญหา เมื่อผม RemoveAll จาก List1ไป List 2
แล้วผม RemoveAll List 2 ไป List 1
มันก็ Remove แต่หายไปไหนไม่ทราบ ไม่เข้ามาอยู่ใน List1

File แนน Acess 2002 ครับ

File 2002 Version

โค้ดในส่วนของ AddAllItems มีผิดอยู่จุดหนึ่งครับ

ให้ลองใส่

Option Explicit

ไว้บันทัดที่ 2 รองจาก

Option Compare Database

แล้วสั่งให้ compile ใหม่ ก็จะเจอจุดที่ผิดครับ

นี่คือข้อดีของการใส่ Option Explicit ไว้ที่บันทัดที่ 2 ของทุก Module ครับ

ในเวอร์ชันใหม่ๆ Access จะไม่ใส่ให้โดยอัตโนมัติ
ให้เข้าไปที่เมนู Tools>Options>Editor tab>เลือก Require Variable Declaration ครับ

ผิดจริงๆด้วย
strItem = strItem & Me.Controls(strSource).Column(intColumnCount, lngRowCount) & ";"
แก้เป็น
strItem = strItem & Me.Controls(strSourceControl).Column(intColumnCount, lngRowCount) & ";"
ขอบคุณครับอาจารย์