كود تكرار السجل الحالي

[يونس محمد الخطابي]

السلام عليكم اساتذتي الافاضل

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

تكرار السجل الحالي.rar

[يونس محمد الخطابي]

اخي العزيز rockjone33 

لايهم ان تم الامر بدون مفتاح اساسي هذا اولا  .  وثانيا اي سجل معروض امامي بمجرد الضغط على زر الامر يتكرر السجل مثلا الاسم معمر يظهر اسمه مرتين وهكذا . اي عندما افتح الجدول اجد اسم معمر وبياناته مكرره مرتين . تحياتي . 

[Moosak]

تفضل هذا كود تكرار السجل : 🙂 

Private Sub DublicateRecBtn_Click()
On Error GoTo Err_DublicateRecBtn_Click


    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste

Exit_DublicateRecBtn_Click:
    Exit Sub

Err_DublicateRecBtn_Click:
    MsgBox Err.Description
    Resume Exit_DublicateRecBtn_Click
    
End Sub

 

[ابوخليل]

منذ ساعه, rockjone33 said:

ليس كل السجلات !! 

Dim F1 as string 

Dim F2 as string

Dim F3 as String

Dim F4 as String 

Dim F5 as String

Dim F6 as String 

F1 = me.F1.value

الى 

F6

F1=me.x1.value

او قيمة محفوظه :

F1="اكتب النص والرقم "

الى F6

Docmd.acCmdRecordsGoToNew,,new

او 

كتابة الكود السابق.. 

كود سجل جديد

Me.x1.value =me.f1.value

او قيمة محفوظه :

"اكتب نص والرقم "=Me.F1.value

.....

 بعد المكالمة كتبة من جديد !! .. 🙂

لا يوجد تعريف الخطأ لم انسخ السجلات السابقة الى جديد بتعريف اذا كانت الحقول فارغ قبل النسخ ..!!

دي بتقابلك في اول سجل 

شرط اذا مجموعة السجلات ="0" 

Msgbox "لا يوجد قيمة محفوظه عند اول سجل .. سجل القيم في اول سجل للتكرار "

منع نسخ الفارغ الا اذا استخدمة تجاهل الخطأ !!

..On Next Erorre

----------------------------------------

وفي حجز القيمة بشرط بعد النقل

If isnull(me.F1.value) Than

Else

Enable =False

End IF

---------------------- 

فالافضل قيمة محفوظه بشروط 

 

 

 

اخي الكريم الاجابة غير موفقة ، ومما تعلمنا ان فهم السؤال نصف الإجابة

السائل يريد نسخ سجل كامل بجميع حقوله ولصقه في سجل جديد

وقد اجاب الاخ موسى قبلك واجاد

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

[ابوخليل]

3 ساعات مضت, يونس ال[f,vd said:

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

السؤال واضح وضوح الشمس في النهار

8 دقائق مضت, rockjone33 said:

 

كيف!!  تكرر في كل سجل جديد صحيح! وانا لم اختلف في من قدم اول هي نفس المعادله اما قيمة محفوظه او نسخ قيمة السجل السابق وموضح له .. 

رد الجدر بقطاه وليه هو اول؟! وسائل ما قال انسخ ؟!! 

وانا سألته سائل قبل الجواب ؟!! ..

وين غير موفق ؟!! في من يخطأ ويصيب .. 

حصل خير سوء فهم .. 🙂

 

اسمح لي اخوي لوكان ردي يزعلك : ردك اعلاه ما فهمت منه شي ، هل انت عربي ؟؟ اذا انت لست عربيا عذرناك

[متقاعد]

طريقة اخرى على قد حالي طبعا حسب طلب الاستاذ يونس نسخ الحقول ماعدا حقل التفاصيل

وانا استثنيت حقل id لانه ترقيم تلقائي وحقل التاريخ يكون تاريخ تكرار السجل ويمكن اعادته للمصفوفة ليكون a(5)

ممكن نعمل مصفوفة نحمل فيها فقط الحقول المطلوب تكرارها

If Me.NewRecord Then Exit Sub
Dim x As Variant
Dim a As Variant
x = ([NSSA] & "|" & [NSSB] & "|" & [NSSC] & "|" & [RQMA] & "|" & [NSSE])
DoCmd.GoToRecord , , acNewRec
a = Split(x, "|")
[NSSA] = a(0)
[NSSB] = a(1)
[NSSC] = a(2)
[RQMA] = a(3)
[NSSE] = a(4)
[TAREKA] = Date
DoCmd.GoToControl "RQMB"

وممكن نستغني عن المصفوفة باستخدام حلقة تكرارية تمر على الحقول وتستثني حقل الملاحظات والترقيم التلقائي

ثم تكرر الحقول غير المستثناه

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

---------------------------------------------------

رجاء خاص من لم تعجبه المشاركة فليقل خيرا او يصمت

لا تكرهونا في موقع اصبح متنفسنا الوحيد

ملاحظة انا مبرمج متقاعد من عدة سنوات وتعاملي مع اكسس قليل جدا واغلب معلوماتي قديمة منذ نظام التشغيل dos

واعترف بان اغلب المشاركين يفوقوني علما ومعرفة فخذ ما يعجبك او اترك

[يونس محمد الخطابي]

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

اساتذتي الافاضل( / Moosak  / rockjone33 /  ابوخليل /مبرمج متقاعد ) . جزاكم الله عنا خير الجزاء .  وكل حرف كتبتموه ادعو الله ان يجعله في ميزان حسناتكم / لقد قمت بتطبيق مشاركة الاخ Moosak وكانت رائعه جدا وهو ماكنت اتمناه . والشكر موصول للاستاذ مبرمج متقاعد بالرغم من اني لم اطبق مشاركته لان كما اسلفت كانت مشاركة الاستاذ Moosak هي المطلوبه اكرر شكري وتقديري لكم جميعا

[متقاعد]

6 ساعات مضت, يونس ال[f,vd said:

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

بالتوفيق لك استاذ يونس

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

ويقوم اكسس بكتابة الامر بشكل تلقائي

تحياتي

 

[Moosak]

11 دقائق مضت, مبرمج متقاعد said:

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

ويقوم اكسس بكتابة الامر بشكل تلقائي

فعلا أستاذنا العزيز ،، 

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

🙂 

تم تعديل أغسطس 25, 2022 بواسطه Moosak

[متقاعد]

9 دقائق مضت, Moosak said:

بينما النسخ الأحدث منه تضيف الأمر على شكل ماكرو

نعم احسنت ياعم موسى هذا ما قصدته طبعا كما تعلم اكسس ايضا يقوم بتحويل الماكرو الى كود vba

 

[متقاعد]

7 دقائق مضت, rockjone33 said:

عند السجل اضافة حقل غير منضم استخدم Dlast

احسنت استاذنا وممكن ايضا تحميل كافة بيانات السجل المطلوب تكرارة من خلال dlast على شكل مصفوفة

تحياتي

[ابوخليل]

2 ساعات مضت, rockjone33 said:

طريقة اخرى  للتكرار من عدة جداول بستخدام الاستعلام .. 

كود اضافة جديد .. 

تشغيل استعلام الحاق

عند السجل اضافة حقل غير منضم استخدم Dlast .. الحاق الى ID الحالي .. 🙂

ملاحظه : Dmax -1 عيب عند حذف بعض السجلات .. 🙂

 

جميل .. طريقة اخرى باستخدام استعلام الحاق