نقل بيانات من جدول لجدول اخر

[elfarok]

البرنامج المرفق هو برنامج الاهلاك واريد فيه باختصار عندما اكتب سعر البيع فى جدول البيع saltb يظهر المبلغ المكتوب فى خانة سعر البيع الموجودة فى جدول المشتريات fareey2

توضيح :
اسم جدول المبيعات saltb                                                                     اسم جدول المشتريات fareey2

اسم الحقل المراد نقل بياناته                                                               اسم الحقل المراد نقل البيانات اليه
salamount                                                                                                  salamount1                              

يعنى لو كتبت فى salamiunt  مبلغ البيع 500000 يظهر عندى على طول جدول  fareey2  فى حقل  salamount1 مبلغ 500000

 

إهلاك.rar

[.Azhar]

تفضل هذا كود لكن يجب عليك التعديل عليه حسب اسم حقول جداولك

Private Sub Command45_Click()
Dim intSeat As Integer
If MsgBox("انقر فوق "" نعم "" هل تريد ارشفة هذا القيد. ", vbYesNo, "ارشفه") = vbYes Then
intSeat = Me!iddrag
DoCmd.SetWarnings False
CurrentDb.Execute "Insert into tblExp1 (Exp, iddrag, InputTo, mom, item, namdrag)  SELECT Exp, iddrag, InputTo, mom, item, namdrag FROM QurExp1 WHERE iddrag =" & intSeat
DoCmd.RunCommand acCmdDeleteRecord
Me.Requery
MsgBox "تم انتقال القيد الى جدول الارشيف", vbInformation, "الارشفه"
Else
MsgBox "تم التراجع عن نقل السجل ", vbInformation, "عدم الارشفة"
End If
DoCmd.SetWarnings True

End Sub

[elfarok]

 

تفضل هذا كود لكن يجب عليك التعديل عليه حسب اسم حقول جداولك

Private Sub Command45_Click()
Dim intSeat As Integer
If MsgBox("انقر فوق "" نعم "" هل تريد ارشفة هذا القيد. ", vbYesNo, "ارشفه") = vbYes Then
intSeat = Me!iddrag
DoCmd.SetWarnings False
CurrentDb.Execute "Insert into tblExp1 (Exp, iddrag, InputTo, mom, item, namdrag)  SELECT Exp, iddrag, InputTo, mom, item, namdrag FROM QurExp1 WHERE iddrag =" & intSeat
DoCmd.RunCommand acCmdDeleteRecord
Me.Requery
MsgBox "تم انتقال القيد الى جدول الارشيف", vbInformation, "الارشفه"
Else
MsgBox "تم التراجع عن نقل السجل ", vbInformation, "عدم الارشفة"
End If
DoCmd.SetWarnings True

End Sub

اختى الكريمة azhar جزاك الله خير على المرور الطيب ولكن ممكن مزيد من الشرح حتى افهم الكود واين اضعه وماهى الاسماء اللى مفروض ان اغيرها وجزاك الله خير

[علي المصري]

جرب استخدام استعلام اضافة