شيبة المشعور قام بنشر يناير 20, 2011 قام بنشر يناير 20, 2011 (معدل) السلام عليكم ورحمة الله وبركاته أخوتي الاعزاء الاكارم مساكم الله بالخير عندي مثال وهو نسخ سجل رئيسي مع سجل فرعي في نفس النموذج أسمه Contract حاولت بشتى الطرق أن أطبق الكود على المثال ولم أفلح علماً بانني مبتدأ في الأكسس ، فأرجو من حضرتكم التكرم بمساعدتي في تطبيق الكود على المثال . وجزاكم الله عنا خير الجزاء مرفق المثال وملف تكست يحتوي على الكودعلى الرابط التالي تم الغاء الرابط الخارجي ورفع المرفق هنا بعد ازالة الصور منه Desktop.rar تم تعديل يناير 20, 2011 بواسطه (أبوخليل)
شيبة المشعور قام بنشر يناير 20, 2011 الكاتب قام بنشر يناير 20, 2011 جزاكم الله عنا خير الجزاء ولا زلت أنتظر مساعدتكم الكريمة أخوكم أبو محمد
عبـد الله قام بنشر يناير 21, 2011 قام بنشر يناير 21, 2011 س: سؤال بعد النسخ وين تبي تلصقه ؟ جوابك يحدد طريقة الحل
شيبة المشعور قام بنشر يناير 21, 2011 الكاتب قام بنشر يناير 21, 2011 (معدل) السلام عليكم ورحمة الله وبركاته جمعة مباركة،، أشكرك أخي الكريم على الأهتمام ، النسخ في نفس الفورم بحيث يكون آخر سجل والغاية من العملية هو عندما يأتي مستأجر ليجدد عقد الإيجار بدلاً من إن أقوم بإدخال البيانات مجدداً أقوم بنسخهاالى سجل جديد وأقوم بالتعديل على التاريخ والقيمة الإيجارية فقط وبهذا أختصر الوقت والجهد، يعني بإختصار تكرار السجل الرئيسي مع الفرعي بضغطة زر. وجزاك الله عنا خير الجزاء تم تعديل يناير 21, 2011 بواسطه hood7117
عبـد الله قام بنشر يناير 21, 2011 قام بنشر يناير 21, 2011 اخوي الكود هذا ما يصلح لمثل عملك في الرئيسي لديك 46 حقل يجب ان تكتب كلها تحت الجزئية التالية : With Me.RecordsetClone .AddNew !CustomerID = Me.CustomerID !EmployeeID = Me.EmployeeID !OrderDate = Date 'etc for other fields. .Update شوف السطر قبل الاخير ايش يقول اظن اننا بحاجة الى امر نسخ شامل
منتصر الانسي قام بنشر يناير 21, 2011 قام بنشر يناير 21, 2011 أخي العزيز كما قال أخونا كابون فالمشكلة هي ان الكود معمول لنموذج محدد ولن يطبق في جميع النماذج إلا بعد تعديل مايناسب النموذج الجديد ويمكن تحديد المواضع التي يجب تعديلها في الكود كما يلي : !CustomerID = Me.CustomerID !EmployeeID = Me.EmployeeID !OrderDate = Date 'etc for other fields هنا يطلب منك تحديد حقول النموذج الرئيسي التي سيتم نسخها ففي النموذج الذي وضع الكود له كان به ثلاثة حقول هي (CustomerID,EmployeeID,OrderDate) لذا يجب تعديلها بما يتناسب مع الوضع الخاص بك ومعنى الجملة (etc for other fields) أي إضافة أي حقول أخرى تريدها أي لا تتقيد بثلاثة حقول فقط lngID = !OrderID هنا عليك تحديد الحقل الذي يعتبر مفتاح رئيسي وتضعه بدلاً عن OrderID If Me.[Orders Subform].Form.RecordsetClone.RecordCount > 0 Then هنا يتم تحديد إسم النموذج الفرعي بدلاً عن Orders Subform strSql = "INSERT INTO [Order Details] ( OrderID, ProductID, Quantity, UnitPrice, Discount ) " & _ "SELECT " & lngID & " As NewID, ProductID, Quantity, UnitPrice, Discount " & _ "FROM [Order Details] WHERE OrderID = " & Me.OrderID & ";" هنا يجب وضع جملة SQL الخاصة بإلحاق السجلات الفرعية وبالطبع إذا ما قمت بتعديل الكود في المواضع المحددة أعلاه بما يتناسب مع برنامجك عندها سيتم تنفيذ الكود بدون مشاكل إن شاء الله تحياتي,,,
شيبة المشعور قام بنشر يناير 21, 2011 الكاتب قام بنشر يناير 21, 2011 (معدل) السلام عليكم ورحمةلله وبركاته جزاك الله خيراً أخي منتصر سأحاول التجربة أرجو منكم سعة الصدر تم تعديل يناير 21, 2011 بواسطه hood7117
ابوخليل قام بنشر يناير 21, 2011 قام بنشر يناير 21, 2011 اذا لم تتوصل الى حل مرضي قم بتعبئة جميع الحقول العربية والانجليزية في النموذج الرئيس وكذلك الفرعي ثم ارفقه حتى تضمن التطبيق الصحيح
شيبة المشعور قام بنشر يناير 21, 2011 الكاتب قام بنشر يناير 21, 2011 السلام عليكم ورحمة الله وبركاته أخوتي الأعزاء لقد طبق ما طلب مني ولكن ظهرت لي مشكلة أرفق صورة لها مع الملف بعد التعديل Contract.rar
شيبة المشعور قام بنشر يناير 21, 2011 الكاتب قام بنشر يناير 21, 2011 يبدو أن الصورة لم ترفع أكرر رفعها مرة أخرى
ابوخليل قام بنشر يناير 21, 2011 قام بنشر يناير 21, 2011 لديك ملاحظتان الاولى : ادراجك للترقيم التلقائي ضمن الكود الثانية : مسافات فارغة بين اسماء الحقول تم التعديل Contract2.rar
شيبة المشعور قام بنشر يناير 21, 2011 الكاتب قام بنشر يناير 21, 2011 جزاك الله خير أخي أبو خليل ولكن تم نسخ السجل الرئيسي دون السجل الفرعي وظهرت هذه المشكلة في الصورة التالية
ابوخليل قام بنشر يناير 21, 2011 قام بنشر يناير 21, 2011 كل ما كان الكود مختصرا كلما امكن السيطرة عليه وادراج الحقول واحدا واحدا غير مقبول ويتأكد عدم قبوله عندما تكون الحقول كثيرة هاك طريقة مختصرة يتم النسخ فيها بالجملة للنموذج الرئيسي ويتم الاستعانة بجدول مؤقت كحلقة وصل بين النسخ واللصق Contract4.rar 2
شيبة المشعور قام بنشر يناير 22, 2011 الكاتب قام بنشر يناير 22, 2011 السلام عليكم ورحمة الله وبركاته أخي العزيز أبو خليل والله يا أخي عاجز عن شكرك للمساعدة التي قدمتها لي وعن سعة صدرك وصبرك علي ، أسأل الله العظيم أن يجعلها في ميزان حسناتك ويرزقك جنة الخلد، كفيت ووفيت طريقة رااااااااااااائعة يا سلام عليك وأشكر أخي منتصر وأخي كابون وجميع أعضاء هذا المنتدى الطيب
صقرمجرووح قام بنشر ديسمبر 31, 2013 قام بنشر ديسمبر 31, 2013 السلام عليكم والرحمة والبركات والله دخلت لكي اسجل شكري وتقديري للاستاذ الكريم اخي العزيز ابو خليل على المثال الرائع مما جعل من واجبي ان اشكرك واشكر الصرح العلمي لديكم
ابوخليل قام بنشر ديسمبر 31, 2013 قام بنشر ديسمبر 31, 2013 حياك الله بين اخوانك اخا عزيزا كريما وشكرا على ثنائك العطر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.