صابر سليمان قام بنشر نوفمبر 11, 2018 مشاركة قام بنشر نوفمبر 11, 2018 السلام عليكم بعد إذن السادة الأفاضل أريد مساعدتي في هذا السؤال لقد بحثت كثيرا في المنتدي الرائع أوفيسنا لايجاد حل لسؤالي لكني لم أوفق ووجدت الأكواد لكنها لم تعمل معي ارجو مساعدتي السؤال موضح في المرفق نسخ الحقول في النماذج.rar رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 11, 2018 مشاركة قام بنشر نوفمبر 11, 2018 ضع هذا الكود تحت زر النسخ .... DoCmd.RunSQL "UPDATE safy_madfoa INNER JOIN tasweat ON safy_madfoa.emp_code = tasweat.emp_code1 SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa], tasweat.mn1 = [forms]![quary]![mm], tasweat.yr1 = [Forms]![quary]![nn];" 3 رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 11, 2018 الكاتب مشاركة قام بنشر نوفمبر 11, 2018 شكرا لحضرتك استاذي الكريم لقد تم نسخ الكود والكود يعمل بكفاءة لكن يافندم الكود بيقوم بنسخ جميع القيم الموجود في الجدول الأول متجاهلا اختيار السنة والشهر أنا عايز اقول انه ينسخ القيم بناءا علي السنة والشهر ومش ينسخ بيانات تاني .. انا أريد أن أثبت قيمة في الجدول التاني لأن الجدول الأول القيم فيه متغيرة باستمرار وبناءا عليه أريد الكود أن يقوم بنسخ القيم بعد أختيار السنة والشهر ولا يقوم بنسخ القيم المنسوخة قبل ذلك أتمني أني أكون وضحت لحضرتك الفكرة نسخ حقل في 1النماذج.rar رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 11, 2018 مشاركة قام بنشر نوفمبر 11, 2018 هل جربت الكود ونسخ كل القيم .... هناك شرطين في الكود وهو توافق السنه والشهر في النموذج ... كرم جرب على قاعدة بها بيانات متنوعة ... سوف اجرب عند توفر الكمبيوتر لاني على الموبايل الان . [forms]![quary]![mm], tasweat.yr1 = [Forms]![quary]![nn];" 2 رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 11, 2018 الكاتب مشاركة قام بنشر نوفمبر 11, 2018 تمام ... ربنا يجزيك خير استاذي أنا أرسلت لحضرتك الملف وبه الكود اللي حضرتك تفضلت وأرستله .. ياريت حضرتك تفتحه علي الكمبيوتر في انتظار رد حضرتك ... وأنا هاقوم بالتجربة مرة أخري رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 11, 2018 مشاركة قام بنشر نوفمبر 11, 2018 هل هناك علاقة بين الجدولين ..... لأن رقم الموظف مكرر في تلك الجداول ؟؟؟؟؟؟ رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 11, 2018 الكاتب مشاركة قام بنشر نوفمبر 11, 2018 اعتبر حضرتك ان الجدولين جدول واحد وعايز أعمل نسخ للعمود ( الصافي المدفوع ) في العمود ( الصافي المستحق قبل التسويات )بناءا علي السنة والشهر رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 11, 2018 مشاركة قام بنشر نوفمبر 11, 2018 اذن . لاحظ ان السجلات في الجدول المنسوخ والمنسوخ اليه هناك سجلات غير فريدة اي متكررة من حيث العام والشهر لموظف واحد بنفس الكود . الاختلاف فقط في المبلغ . هل هذا طبيعي في برنامجك 1 رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 11, 2018 الكاتب مشاركة قام بنشر نوفمبر 11, 2018 نعم طبيعي رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 11, 2018 مشاركة قام بنشر نوفمبر 11, 2018 جرب هذا الكود ..... DoCmd.RunSQL "UPDATE DISTINCTROW tasweat LEFT JOIN safy_madfoa ON tasweat.emp_code1 = safy_madfoa.emp_code SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa] " & vbCrLf & _ "WHERE (((tasweat.mn1)=[forms]![quary]![mm]) AND ((tasweat.yr1)=[forms]![quary]![nn]));" 2 رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 11, 2018 الكاتب مشاركة قام بنشر نوفمبر 11, 2018 (معدل) الكود يعمل بمنتهي الكفاءة شكرا جزيلا استاذي @kanory ربنا يجزيك كل خير لكن هو فيه مشكلة صغيرة بعد الرسالة اللصق اللي بتظهر وبالضغط علي موافق لا يظهر النسخ الا بعد غلق النموذج وفتحه مرة أخري او الدخول داخل النموذج نسخ حقل في النماذج - Copy.rar تم تعديل نوفمبر 11, 2018 بواسطه صابر سليمان 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 11, 2018 مشاركة قام بنشر نوفمبر 11, 2018 استبدل الكود بهذا ..... DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE DISTINCTROW tasweat LEFT JOIN safy_madfoa ON tasweat.emp_code1 = safy_madfoa.emp_code SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa] " & vbCrLf & _ "WHERE (((tasweat.mn1)=[forms]![quary]![mm]) AND ((tasweat.yr1)=[forms]![quary]![nn]));" DoCmd.SetWarnings True Me.tasweat.Requery 1 رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 11, 2018 الكاتب مشاركة قام بنشر نوفمبر 11, 2018 استاذنا انا لسه ملاحظ شئ دلوقتي عند إختيار السنة 2018 والشهر 1 بيقوم بنسخ قيم شهر 1 مظبوط مفيش فيها اي مشاكل لكت لما أختار شهر 2 بينسخ نفس القيم اللي موجودة في شهر 1 وليست الموجوده في شهر 2 نسخ حقل في النماذج - Copy (2).rar رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 11, 2018 مشاركة قام بنشر نوفمبر 11, 2018 تفضل جرب هذا ..... DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE DISTINCTROW kan2 LEFT JOIN kan1 ON kan2.emp_code1 = kan1.emp_code SET kan2.madfoa_kabl_tasweat = [kan1].[safy_madfoa] " & " WHERE (((kan2.mn1)=[forms]![quary]![mm]) AND ((kan2.yr1)=[forms]![quary]![nn]));" DoCmd.SetWarnings True Me.tasweat.Requery 1 رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 11, 2018 الكاتب مشاركة قام بنشر نوفمبر 11, 2018 (معدل) أنا اسف جدا يااستاذنا @kanory تعبت حضرتك معايا جدا بس المصطلحين kan1 , kan2 ؟؟؟؟؟؟؟ مش موجودين في قاعدة البيانات بتاعتي لكني أستبدلتهم بالمصطلحات اللي عندي .... وبرضه الكود بينسخ قيم شهر 1 فقط نسخ حقل في النماذج - Copy (4).rar تم تعديل نوفمبر 11, 2018 بواسطه صابر سليمان رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 11, 2018 مشاركة قام بنشر نوفمبر 11, 2018 لا تستبدل شيئ ... انسخ والصق فقط رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 11, 2018 الكاتب مشاركة قام بنشر نوفمبر 11, 2018 ظهرت لي هذه الرسالة رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 12, 2018 الكاتب مشاركة قام بنشر نوفمبر 12, 2018 (معدل) مازلت منتظر الاجابة تم تعديل نوفمبر 12, 2018 بواسطه صابر سليمان رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 12, 2018 مشاركة قام بنشر نوفمبر 12, 2018 تفضل جرب هذا ..... نسخ حقل في 1النماذج.rar 1 1 رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 12, 2018 الكاتب مشاركة قام بنشر نوفمبر 12, 2018 ممتاز أنا عاجز عن الشكر استاذي الكريم @kanory وأسف جدا اني تعبت حضرتك معايا 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 12, 2018 مشاركة قام بنشر نوفمبر 12, 2018 بارك الله فيك .... بالعكس نحن في الخدمة ...... لم نتواجد هنا الا للاستفاده والافادة .... رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 13, 2018 الكاتب مشاركة قام بنشر نوفمبر 13, 2018 معذرة استاذي الكود لا يعمل مع الاستعلامات التي لا يمكن التعديل فيها ( للقراءة فقط ) في برنامجي النموذج الفرعي الاول عبارة عن استعلام ( للقراءة فقط ) عند اللصق في النموذج الفرعي الثاني تظهر رسالة تفيد بأنه لابد أن يكون الجدول قابل للتحديث وليس ( للقراءة فقط ) رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 13, 2018 الكاتب مشاركة قام بنشر نوفمبر 13, 2018 بعد اذن حضرتك استاذ @kanory احنا ممكن نحل المشكلة بعمل 2 زرار نسخ ولصق علي اعتبار ان ركزنا علي الحقل المطلوب نسخه و ضغطنا كليك يمين بتظهر القائمة اللي فيها النسخ وكذلك اللصق عايز احول هذه العمليه الي زرارين نسخ ولصق كما هو موضح في المثال الاتي كود النسخ واللصق.rar رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 13, 2018 مشاركة قام بنشر نوفمبر 13, 2018 رابط هذا التعليق شارك More sharing options...
صابر سليمان قام بنشر نوفمبر 13, 2018 الكاتب مشاركة قام بنشر نوفمبر 13, 2018 لا يافندم النموذج الفرعي safy_madfoa اللي علي اليمين هو عبارة عن استعلام ( للقراءة فقط ) والنموذج الفرعي tasweat جدول عادي يمكن التعديل والاضافة والحذف والنسخ المشكلة في النموذج الفرعي الأول المراد النسخ منه وليس النموذج الفرعي الثاتي المراد اللصق فيه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.