اخوني الأعزاء
بغيت طريقة تكرار سجل معين في نموذج مع سجلاته الفرعية لكن بشرط يأخذ رقم تسلسلي جديد تلقائيا.
وهذا مرفق يوضح المطلوب.
تكرار سجل سابق مرتبط بسجلات فرعية
اخي الفاضل mrnooo2000
هل يمكن عمل الزر على نموذج بدون نموذج فرعي وجدول واحد فقط
مع اضافة خانات اخرى
مرفق نفس الملف بعد تعديله كما اريد
ارجو تعديل الكود
وبارك الله فيك
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
اخي الفاضل mrnooo2000
شاكر لك على التعديل
عندي مطلب اخر لو سمحت
عندل حقل اخر في نموذج اسمة idd وخاصية الحقل هو نص
وتوجد وحدة نمطية وظيفتها تعطي ترقيم تلقائي عند بداية كل سنة جديدة ويأخذ الرقم في حقل idd كالتالي 2010-0001
كيف لي ان أطبق نفس الفكرة اللي عملتها في المرفق السابق عندما أعمل نسخ ويأخذ رقم جديد ليكون 2010-0002
مع خالص الشكر والتقدير
malik2010 كتب:اخي الفاضل mrnooo2000
هل يمكن عمل الزر على نموذج بدون نموذج فرعي وجدول واحد فقط
مع اضافة خانات اخرى
نعم أخ مالك
يمكنك استخدام هذا الكود اذا كان عدد الحقول صغير ( بحيث تضع متغيرات بعدد الحقول المراد نسخها )
Private Sub Command18_Click()
On Error GoTo Err_Command18_Click
Dim dbs As Database
Dim strsql As String
Dim f1, f2, f3, f4 As String
f1 = Me.date
f2 = Me.imprtername
f3 = Me.address
f4 = Me.telephone
DoCmd.GoToRecord , , acNewRec
Me.date = f1
Me.imprtername = f2
Me.address = f3
Me.telephone = f4
Exit_Command18_Click:
Exit Sub
Err_Command18_Click:
MsgBox Err.Description
Resume Exit_Command18_Click
End Subأما اذا كان عدد الحقول كبير فالامر يحتاج الى تفكير اخر
ملحوظة :
1- لا تستخدم الاسماء العربية فى الجداول ( حتى لا تصعب الامر )
2- الافضل ان يكون حقل رقم التليفون نص و ليس رقم
alcasir كتب:اخي الفاضل mrnooo2000
شاكر لك على التعديل
عندي مطلب اخر لو سمحت
عندل حقل اخر في نموذج اسمة idd وخاصية الحقل هو نص
وتوجد وحدة نمطية وظيفتها تعطي ترقيم تلقائي عند بداية كل سنة جديدة ويأخذ الرقم في حقل idd كالتالي 2010-0001
كيف لي ان أطبق نفس الفكرة اللي عملتها في المرفق السابق عندما أعمل نسخ ويأخذ رقم جديد ليكون 2010-0002
مع خالص الشكر والتقدير
أخى الكاسر
لا افهم ما تريد
أرجو ارفاق مثال لتوضيح ما تريد
تم تعديل هذه المشاركة بواسطة mrnooo2000 في 6 يونيو 2010 في 08:31
اخي الكريم mrnooo2000
مشكور الف الف شكر على التوضيح وبارك الله فيك
مع كل الاحترام
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
استاذي الفاضل /
يوجد في المرفق حقل نصي ياخذ ترقيم تلقائي بالشكل الاتي 2010-0001 بسبب وجود وحدة نمطية وظيفتها عمل ترقيم تلقائي مع بداية كل سنة جديدة. وعنما انتقل الى سجل جديد ياخذ الشكل الاتي 2010-0002
هل استطيع تطبيق المثال الذي قمت بتعديله لي على هذا المثال الموضوع.
ولك خالص الشكر
alcasir كتب:استاذي الفاضل /
يوجد في المرفق حقل نصي ياخذ ترقيم تلقائي بالشكل الاتي 2010-0001 بسبب وجود وحدة نمطية وظيفتها عمل ترقيم تلقائي مع بداية كل سنة جديدة. وعنما انتقل الى سجل جديد ياخذ الشكل الاتي 2010-0002
ولك خالص الشكر
أخى العزيز
مادمت تفضل استخدام طريقة نسخ السجل
فاستخدم هذه الاوامر أفضل
DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdSaveRecord DoCmd.RunCommand acCmdCopy DoCmd.RunCommand acCmdPasteAppend
ثم ضع كود الترقيم يعد ذلك
Me.idd = AutoNumber("main table 2010", "idd", "[YYYY]-", 4)اخي العزيز
ممكن التعديل على المرفق لاني ما استوعبت الكلام اللي ذكرته لي
شاكر لك كثييييرا
شكرا كثيرا للاخ ابويوسف وبارك الله فيك كنت ابحث عن هذ المثال