أيهما أسرع في نقل البيانات من جدول الى أخر كود vba أم استعلام الحاق

[عبد الله قدور]

السلام عليكم

اخواني الكرام

عندي جداول مرتبطة اقوم بنقل البيانات من جدولين إلى جدولين آخرين باستخدام استعلام الحاق ومن ثم وضعت كود الاس كيو ال في جدول مستقل واستخدمت الامر التالي في تنفيذه

DoCmd.RunSQL DLookup("[sql]", "sql", "[id]=2")

والان وضعت الكود التالي لنقل البيانات بين الجداول

Set db = CurrentDb()
Set Rcd = db.OpenRecordset("entryh")
Dim a As Boolean
a = False
Rcd.MoveFirst
Do Until Rcd.EOF
If Rcd!Id = Me.DaId And Rcd!Ref = Me.DaType Then
Rcd.Delete
a = True
End If
If a = True Then
Exit Do
End If

Rcd.MoveNext
Loop



Set Rcd = db.OpenRecordset("entryH")
Rcd.AddNew
Rcd!Id = Me.DaId
Rcd!Ref = Me.DaType
Rcd!EnDate = Me.DaDate
Rcd!Note = Me.Note
Rcd!CurId = Me.CurId
Rcd!CurPrice = Me.CurPrice
Rcd!CosId = Me.CosId
Rcd.Update
Rcd.Close
Set db = Nothing


End Function

فأيهما اسرع في تنفيذ عملية النقل

وجزاكم الله كل خير

 

[عبد الله قدور]

للرفع

 

[Elsayed Bn Gemy]

فى اعتقادى الكود اسرع وامن
 فى حالة حدوث عطل مفاجئ الكود يلغى العملية برمتها عكس الاستعلام

[ebnjabalapp]

الكود طبعا

[عبد الله قدور]

2 ساعات مضت, Elsayed Bn Gemy said:

فى حالة حدوث عطل مفاجئ الكود يلغى العملية برمتها عكس الاستعلام

السلام عليكم

كيف حالك استاذي الكريم

والله معلومة مهمة جدا لكن اذا كان الكود يقوم بنقل عدة سجلات باستخدام do  او for  هل يقوم بالغاء كل السجلات المنقولة ام السجل الذي ظهر في الخطأ فقط

[Elsayed Bn Gemy]

6 دقائق مضت, عبد الله قدور said:

السلام عليكم

كيف حالك استاذي الكريم

والله معلومة مهمة جدا لكن اذا كان الكود يقوم بنقل عدة سجلات باستخدام do  او for  هل يقوم بالغاء كل السجلات المنقولة ام السجل الذي ظهر في الخطأ فقط

انا اسف يبدو ان لدى معلومات مغلوطة بالنسبة لوضع الامان
هناك عملية تسمى المناقلات  هذه العملية تتالف من سلسلة متتابعة من العمليات المنفصلة  هذه العمليات تنفذ دفعة واحدة  اما ان تنجح كلها او تفشل كلها دفعة واحدة
الية عملها ( الحفظ ثم التثبيت ) بمعنى
يتم حفظ جميع التغيرات التى تمت من بداية المناقلة فا اذا نجحت يتم تثبيت التغييرات واذا فشلت فيتم اعادة النظام الى ما قبل المناقلة
للاسف اكسس لا تعتمد عملية المناقلة 
فقط سيكول (SQL )   و اوريكال (Oracle )  تعتمد ذلك

انا متاسف اصحح المعلومة