[mhareek]

اخوانى الاحباب    اريد   عند اختيار مجموعة بينات بكود البحث        اريد ان اكتب فى احد الخانات نفس البيان  وترحيل مرة واحدة الى  فى خانة واحد من الجدول

سوف اضع الكود  ارجو التعديل علية   جزاكم الله خيرا

كود :

Adodc1.Refresh
Adodc1.RecordSource = "SELECT cod,mas FROM alldata WHERE  cod >=" & (Text2.Text) & " and cod <=" & (Text3.Text) & ""
Adodc1.CommandType = adCmdText
   Adodc1.Refresh
   
     For i = Text2.Text To Text3.Text
   
  Adodc1.Recordset.Fields![mas] = Combo1.Text
   Adodc1.Recordset.Update
 
     
  Next


End Sub