إلحاق قيم من قائمة متعددة القيم إلى جدول

[1DAOUD]

السلام عليكم ..
من فضلكم أريد نقل قيم محددة في قائمة متعددة القيم(من نموذج) إلى جدول آخر .

45.accdb

تم تعديل سبتمبر 29, 2021 بواسطه 1DAOUD

[Eng.Qassim]

حسب فهمي لسؤالك .. المفروض ان يكون النموذج Proces   مستمر ويحتوي على حقل yes/no  لاختيار السجلات التي تريد الحاقها الى الجدول local  

ولا ايه الموضوع؟

[1DAOUD]

8 دقائق مضت, Eng.Qassim said:

حسب فهمي لسؤالك .. المفروض ان يكون النموذج Proces   مستمر ويحتوي على حقل yes/no  لاختيار السجلات التي تريد الحاقها الى الجدول local  

 

ولا ايه الموضوع؟

 

اريد نقل القيمة التيي في الخانة "نموذج proces" إلى جدول local

[kanory]

[1DAOUD]

3 ساعات مضت, kanory said:

السجل الظاهر في النموذج فقط 

[kanory]

4 ساعات مضت, 1DAOUD said:

السجل الظاهر في النموذج فقط 

طيب <<<<<<<<>>>>>>>>

اعمل زر وضع فيه هذا الحدث ............

Dim msgstyle
Dim Rs As DAO.Recordset
Dim Rs2 As DAO.Recordset
Dim rstChild As Recordset
Dim rstChild2 As Recordset
Dim rstChild3 As Recordset
Dim rstChild4 As Recordset
        
   Set Rs2 = CurrentDb.OpenRecordset("select * from proces where [id] Like '" & [id] & "*'")
   Set Rs = CurrentDb.OpenRecordset("local")
   
Do While Not Rs2.EOF
   Rs.AddNew
   Set rstChild = Rs!vend.Value
   Set rstChild2 = Rs2!vend.Value
   Set rstChild3 = Rs!sisi.Value
   Set rstChild4 = Rs2!sisi.Value
   
   Rs!id_f = Rs2!id
   
Do While Not rstChild2.EOF
        rstChild.AddNew
        rstChild.Fields(0) = rstChild2.Fields(0)
        rstChild.Update
        rstChild2.MoveNext
Loop
   Do While Not rstChild4.EOF
        rstChild3.AddNew
        rstChild3.Fields(0) = rstChild4.Fields(0)
        rstChild3.Update
        rstChild4.MoveNext
   Loop
Rs.Update
   
Rs2.MoveNext
Loop
Set Rs = Nothing
MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية"