كود نسخ بيانات من حقل الى حقل

[النهر العطشان]

السلام عليكم ورحمة الله وبركاته

الاساتذه الافاضل موضوعي ليس جديد وهنالك مواضي متشابهة مع موضوعي وهو نسخ بيانات من حقل (sheet 1) الى حقل ثاني (sheet 2) في نفس الجدول (Table) .

لكن الاختلاف هنا ان قاعدة البيانات  لدي تحتوي على سجلات اكثر من (ثلاثون الف سجل) وقد جربت الاكواد السابقة فهي بطيئه نسبيا وتسبب بعض المشاكل .

المطلوب فضلا وليس امرا كود لزر في فورم سريع لنسخ سجلات (كان تكون اسماء رباعية او خماسية) من حقل الى اخر  .

مرفق قاعدة بيانات مصغرة .

وشكرا

بيانات.mdb

تم تعديل يونيو 24, 2021 بواسطه النهر العطشان
خطاء في كتابة كلمة نقل المطلوب هو نسخ

[سامي الحداد]

وعليكم السلام ورحمة الله وبركاته

هل جربت هذا الكود

Private Sub sheet_1_Exit(Cancel As Integer)
Me.sheet_2.Value = Me.sheet_1.Value
Me.Refresh
End Sub

مجرد فكره

بالتوفيق

[kha9009lid]

4 ساعات مضت, النهر العطشان said:

المطلوب فضلا وليس امرا كود لزر في فورم سريع لنسخ سجلات (كان تكون اسماء رباعية او خماسية) من حقل الى اخر

اذا كان الامر بهذه الصورة البسيطة وفقا لمثالك المرفق كود استعلام ممكن يحل المشكلة

اعمل زر امر وفي حدث عند النقر ضع الامر

DoCmd.RunSQL "UPDATE [Table] SET [Table].[sheet 2] = [Table]![sheet 1];"

جربت الامر على 90000 سجل وحدث خلال ثواني

 

[النهر العطشان]

شكرا الى الاساتذة الافاضل (kha9009lid و سامي الحداد ) على تعاونهم في الاجابة على سؤالي .

لقد تم تجربة كود الاستاذ الفاضل (kha9009lid ) مشكورا وهو كود رائع ويفي بالغرض وهو المطلوب .

اما كود الاستاذ الفاضل (سامي الحداد ) مشكورا لم استطع تنفيذه (يظهر لي خطاء) فهل يمكن اعطائي مثال عليه .

شكرا الى الاساتذة الافاضل جعلها الله في ميزان حسناتكم

[kha9009lid]

2 ساعات مضت, النهر العطشان said:

شكرا الى الاساتذة الافاضل (kha9009lid و سامي الحداد ) على تعاونهم في الاجابة على سؤالي

الشكر لله اخي