هدية طريقة التحديث والاضافة من جدولين باستخدام Recordset

[ابوآمنة]

السلام عليكم 

بالمرفق طريقة التحديث والإضافة من جدولين باستخدام أكود Recordset 

كود التحديث :

Dim i As Integer
Dim ii As Integer
Dim RC As Integer
Dim RC1 As Integer
Dim A2 As Variant
Set rs = CurrentDb.OpenRecordset("Select * From Temp3")
rs.MoveLast: rs.MoveFirst
RC = rs.RecordCount
For i = 1 To RC
A2 = rs!f2
' يجب أن يكون نوع الحقل المربط بين الجدولين رقم
        Set rst = CurrentDb.OpenRecordset("SELECT * From Temp4 WHERE ID =" & rs.ID & "")
        rst.Edit
        rst.ID = rs.ID
        rst.f1 = rs.f1
        rst.f2 = rs.f2
        rst.F3 = rs.F3
        rst.F4 = rs.F4
        rst.F5 = rs.F5
        If Len(A2 & "") <> 0 Then rst!F6 = "******" & Right(rs.f2, 4)
        rst.Update

rs.MoveNext
Next i
Set rst = Nothing
Set rs = Nothing
MsgBox "OK"

 

كود الإضافة :

Dim i As Integer
Dim ii As Integer
Dim RC As Integer
Dim RC1 As Integer
Set rs = CurrentDb.OpenRecordset("Select * From Temp4")
rs.MoveLast: rs.MoveFirst
RC = rs.RecordCount
For i = 1 To RC

' يجب أن يكون نوع الحقل المربط بين الجدولين رقم
        Set rst = CurrentDb.OpenRecordset("SELECT * From Temp5 WHERE ID =" & rs.ID & "")
        rst.AddNew
        rst.ID = rs.ID
        rst.f1 = rs.f1
        rst.f2 = rs.f2
        rst.F3 = rs.F3
        rst.F4 = rs.F4
        rst.F5 = rs.F5
        rst.F6 = rs.F6
        rst.Update
        
rs.MoveNext
Next i
Set rst = Nothing
Set rs = Nothing
MsgBox "OK"

وبالتوفيق 

Recordset.mdb

[محمد أبوعبدالله]

جزاكم الله خيرا استاذنا الفاضل

تحياتي

تم تعديل يناير 6, 2020 بواسطه محمد ابوعبد الله

[أبوبسمله]

جزاك الله خيرا اخى صالح

سوف اطبق للتعلم واوفيك بالرد

بالتوفيق اخوتى