شكرا استاذ ابو خليل لمتابعتك للموضوع ولنصائك المفيدة دائما
بعد محاولا الاساتذة الذين شاركوا في الموضوع
وبالتجريب
توصلت إلى التالي منذ قليل
الكود يمكن اختصارة كالتالي :
Dim i As Integer
For i = 1 To 68
Me.Controls("C" & i) = [Forms]![TStu2SBehTeam].Controls("C" & i)
Next i
فلله الحمد من قبل ومن بعد
جزاكم الله خير على سعة صدوركم ومحاولاتكم الدؤوبة لمساعدة الغير
تم تجربته على اكسس 2013