كيف أنقل كافة القيم من Listbox إلى إلى مربع نص Txtbox

[mejur911]

السلام عليكم ورحمة الله وبركاته .. الإخوة الكرام عندي نموذج فيه مربع نص txt1 غير مرتبط ومربع قائمة list1 مرتبط بقائمة من جدول . وزر أمر com1

ويحتوي مربع القائمة list1 على عمود واحد فيه أرقام جوالات . 

وأرغب عند النقر على زر com1 يقوم بأخذ هذه القيم ويضعها في مربع النص txt1 وبينها فاصلة ","

 

,ولكم مني جزيل الشكر 

[ابوخليل]

Private Sub com1_Click()
Dim AllTel As String, rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Qry1")
With rs
.MoveFirst
While Not .EOF
AllTel = AllTel & "," & .Fields("list1")
.MoveNext
Wend
.Close
End With
AllTel = Right(AllTel, Len(AllTel) - 2)
txt1 = AllTel
End Sub

 باعتبار Qry1 هو مصدر مربع القائمة بفرضية كونه استعلام

list1  هو حقل الارقام في المصدر