(تمت الاجابة) ترحيل ونقل بيانات من النموذج الى جدول غير مرتبط

[safwatscc]

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

الفكرة هى

يوجد نموذج به مربع نص وزر امر

مطلوب اذا تم الضغط على زر امر يقوم بوضع القيمة الموجود فى مربع النص

فى الجدول Table1 فى عمود Text1 فى الصف الاول

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

هل هذا ممكن واذا كان ممكن برجاء مطلوب الكود الذى ينفذ هذا

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

مرفق ملف للتطبيق عليه

تم تعديل يناير 24, 2012 بواسطه safwatscc

[safwatscc]

اسف

المرفق لم يتم ادراجة مع الموضوع

هذا هو المرفق

scc.rar

[ابوخليل]

تفضل

مثالك بعد تطبق الفكرة

scc.rar

[safwatscc]

الاخ الفاضل : ابو خليل

بارك الله فيك على المجهود

وعذرا

لاحظت عند تنفيذ الكود لايكرر الرقم اكثر من مرتين

ثانيا: بعد عدة ادخالات لارقام اخرى يتم حذف الرقم اى لا يكرر الرقم

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

لو ان النص المراد ترحيلة اكثر من نص كما فى المرفق

وبارك الله فيك

scc_1.rar

تم تعديل يناير 25, 2012 بواسطه safwatscc

[safwatscc]

الاخ الفاضل : ابو خليل

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

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

مطلوب رايك فيه

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

DoCmd.GoToRecord acDataForm, "Student1_G", acNewRec

Forms.Student1_G.ID_1g = ID

Forms.Student1_G.NAME_1g = NAME_S

Forms.Student1_G.Class_1g = Class

Forms.Student1_G.Day_1g = Day

Forms.Student1_G.Date_1g = Date

Forms.Student1_G.Hala_1g = Hala

[ابوخليل]

تم تعديل الكود حسب رغبتك

اما بالنسبة للترحيل عبر نموذج آخر فهو يؤدي المهمة ولكن لا بد ان يكون النموذج الآخر مفتوحا

scc_1.rar

[safwatscc]

الاخ الفاضل : ابو خليل

بارك الله فيك وفعلا هو المطلوب جزاك الله خيرا