نسخ أو تكرار سجل سابق

[ابو جودي]

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

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

اسرد اليكم الشـرح سريعا لفكرتى
قبل البدء قد يتفق معى من يتفق ويختلف من يختلف
لذلك انتظر ارائكم ان شاء الله فيشيد بهذه الطريقه من يشيد و يعترض من يعترض فنخرج ان شاء الله بأطيب النتائج

هنا ان شاء الله اتعامل مع جدول باسم  tblMainData    والذى يختوى على الحقول    A,B,C
ونموذج  باسم    يضم الحقول على الترتيب  txtA , txtB, txtC

هذا الكود حتى اهئ النموذج للتعامل مع اختصار المفاتيح من الكيبورد

Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

وهذا الجزء حتى اسند القيم التى احتاج لنسخها الى متغيرات
وكتبته هكذا ليسهل استدعاءه وقت الحاجة

Private Sub SpecialCopy()
    'الاعلان عن المتغيرات
    Dim VarFildeA As Variant
    Dim VarFildeB As Variant
    Dim VarFildeC As Variant
        'اسناد قيم مربعات النص الى المتغيرات
        VarFildeA = txtA
        VarFildeB = txtB
        VarFildeC = txtC
            DoCmd.GoToRecord , , acNewRec  'سجل جديد
                'نسخ قيم المتغيرات الى مربعات النص في السجل الجديد
                txtA = VarFildeA
                txtB = VarFildeB
                txtC = VarFildeC
                    'تفريغ المتغيرات
                    VarFildeA = Empty
                    VarFildeB = Empty
                    VarFildeC = Empty
End Sub

وهذا الجزء لاسناذ القيم من المتغيرات الى مربعات النص للسجل الجديد

وكتبته هكذا ليسهل استدعاءه وقت الحاجة

 

Private Sub DoCopy()
DoCmd.RefreshRecord

    If DCount("[ID]", "tblMainData") = 0 Then
        DoCmd.RefreshRecord
        Exit Sub
    ElseIf DCount("[ID]", "tblMainData") >= 1 Then
            If NewRecord Then
                DoCmd.GoToRecord , , acLast
                Call SpecialCopy
            Else
                Call SpecialCopy
            End If
    End If
End Sub

طبعا هنا اتأكد اولا ان كان هذا السجل الاول فى الجدول ام لا قبل ان تتم عملية اسناد القيم التى اريدها 

واهيرا استدعاء الكود من هلال زر امر لتنفيذ عملية نسه السجل الاأهير وقت الحاجة

Private Sub BtnDuplicate_Click()
    Call DoCopy
End Sub

وهذا الجزء كما يقولون عنه الـ  Hot Key  استدعاء الكود من خلال زر من الكيبورد عن الضغط عليه
 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 117 Then   ' استبدل هذا الرقم برقم المفتاح بالاعلى كما يحلو لك
    Call DoCopy
        KeyCode = 0
        Exit Sub
  End If
End Sub

 

تنويه ببعض الحيل ان اردنا نقوم بنسخ سجل محدد ان اردنا سجل بعينه تبعا لشرط او شروط محدده حسب ما تقتضى الحاجة

واخيـــرا المرفق 

Duplicate Last Record.mdbFetching info...

تم تعديل يونيو 29, 2019 بواسطه ابا جودى

[AlwaZeeR]

عمل رائع وجميل أبا جودي

مع مداخلة بسيطة جدا جدا

امر

  في 29‏/6‏/2019 at 08:41, ابا جودى said:

DoCmd.RefreshRecord

Expand  

لا اعتقد ان له دور هنا

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

هذا والله اعلم

يفضل ازالته

::

تحياتي

[ابو جودي]

  في 29‏/6‏/2019 at 08:56, AlwaZeeR said:

عمل رائع وجميل أبا جودي

مع مداخلة بسيطة جدا جدا

امر

لا اعتقد ان له دور هنا

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

هذا والله اعلم

يفضل ازالته

::

تحياتي

Expand  

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

  في 29‏/6‏/2019 at 09:05, ابا جودى said:

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

Expand  

لاننى هنا اعتمد فى طريقتى على نسخ القيم من السجل الاخير بعد الذهاب اليه اولا 

جرب مسح الجدول نهائيا وافتح النموذج وبعد تسجيل اول سجل انسخه بدون هذا السطر من الكود

[AlwaZeeR]

  في 29‏/6‏/2019 at 09:05, ابا جودى said:

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

Expand  

جرب بدونه وسترى نفس النتيجة

 

[ابو جودي]

  في 29‏/6‏/2019 at 09:09, AlwaZeeR said:

جرب بدونه وسترى نفس النتيجة

 

Expand  

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

والله وانا انفذ الكود لم يتحقق ولكن اعتقد كان ذلك عندما كان الكود كله قطعة واحدة قبل ان افصله الا 
او انتظر قد يكون لاننى عندما استخدمت هذا الاسلوب فى عملى بسبب النت ورك احتجت اليها 
SpecialCopy
DoCopy

تم تعديل يونيو 29, 2019 بواسطه ابا جودى

[يوسف السيد]

شرح وافي ومتميز

جزاك الله خيرا استاذ محمد

 

تم تعديل يونيو 29, 2019 بواسطه يوسف السيد

[essam rabea]

بارك الله فيك أستاذنا أبا جودى .. كما أن النسخ لا يتم للسطر الأخير فقط وإنما للسطر النشط

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

[ابو جودي]

  في 29‏/6‏/2019 at 19:27, essam rabea said:

بارك الله فيك أستاذنا أبا جودى .. كما أن النسخ لا يتم للسطر الأخير فقط وإنما للسطر النشط

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

Expand  

وبما انك اكتشفت هذه النقطة والتى نسيت ذكرها 

هذا التعديل  عند النقر المذدوج على اى حقل فى السجل يتم نسخ قيمة هذا السجل فى سجل جديد

وبما اننى هنا بصدد عرض مجرد فكرة لم اتخذ التدابير اللازمة التى قد تختلف من فكر المصمم من شخص الى اخر
يعنى ان ارد احد الاخوة فى هذه الجزئية التى تخص النقر المذدوج انها ممكن بالخطأ تنسخ قيم كل حقول السجل الى سجل جديد
ممكن عمل رسالة تنبيه عند النقر المذدوج انت بصدد اضافة سجل جديد من واقع بياانات هذا السجل

وبالموافقة على الرسالة يتم النسخ والا يتم التجاهل و احباط العملية 

Duplicate Last Record (2).mdbFetching info...