اخوانى الاحباب اريد عند اختيار مجموعة بينات بكود البحث اريد ان اكتب فى احد الخانات نفس البيان وترحيل مرة واحدة الى فى خانة واحد من الجدول
سوف اضع الكود ارجو التعديل علية جزاكم الله خيرا
سوف اضع الكود ارجو التعديل علية جزاكم الله خيرا
كود :
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