[ahmed.amayouf.anweeji]

عندي جدولين واريد تعديل بيانات بناء علي  كود موظف المشترك بين جدولين مانبي عملية اضافة اريد مجرد مايلقي كود موظف يعدل بيانات الي نا مجدد ارجو ساعدني جزاك الله الف خير

كود :

  rs5.Open "SELECT * FROM [Table8] ", db, adOpenDynamic, adLockOptimistic  'DB, adOpenStatic, adLockOptimistic
  rs6.Open "SELECT * FROM [Table9] where  n1= '" & rs5![n1] & "' and  n4 ='" & rs5![n9] & "'  ", db, adOpenDynamic, adLockOptimistic
  If rs5.RecordCount > 0 Then rs5.MoveFirst
  If rs6.RecordCount > 0 Then rs6.MoveLast
  Do Until rs5.RecordCount
      rs6![n2] = rs5![n3]
      rs6.Update
      rs5.MoveNext
  Loop

[Taha Okla]

إذا كنت ناوي تعدل كل أسماء الموظفين الموجودين في الجدول8  ضمن الجدول التاسع في حال وجودهم

أكتب كامل كود الاستعلام والتعديل لـ Rs6  ضمن الحلقة الدورانية لـ Rs5
بيصير الكود يشوف السجل الأول من الجدول الثامن ، ثم يبحث عنه في الجدول التاسع، ثم يعدله ، ثم يحفظ، ثم ينتقل للسجل التالي في الجدول الثامن ... حتى النهاية ...

[السيد الغالي]

يمكنك استخدام الكود التالي 

كود :

db.Execute "UPDATE Table9 INNER JOIN Table8 ON Table9.n1 = Table8.n1 AND Table9.n9 = Table8.n4 SET Table9.n2 = Table8.n3"