نسخ قيمة من نموذج الى آخر _ معدل

[jasser252]

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

سؤالى من فضلكم 

عايز اعرف ازاى اعمل زر امر فى نموزج لنسخ قميه من مربع نص فى هذا النموزج

وفتح نموزج اخر وتخزين هذه القميه فى احد حقول جدول هذا النموزج

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

 وانى عايز فى كل مره اضغط الزر ينسخ القيمه الى سجل جديد فى النموزج المنقول اليه 

مع الشكر وجعله الله فى ميزان حسناتكم 

💗

تم تعديل فبراير 19, 2023 بواسطه jasser252

[Hamtoooo]

استخدم دالة المتغير المؤقت ( teampvar )

 

الافضل تنزل لنا القاعده عشان يخدمونك الشباب

[Eng.Qassim]

وعليكم السلام

1-      عرف عن موديول هكذا .. Dim tempValue As TempVars

2-      في حدث عند الضغط على الزر الموجود في النموذج الاول ضع السطر التالي .. TempVars!tempValue = Me.txtValue.Value

txtValue هو اسم مربع النص في النموذج الاول

3-      في حدث عند الفتح للنموذج الثاني ضع السطر .. Me.txtValue1 = TempVars!tempValue

txtValue1 هو اسم مربع النص في النموذج الثاني

[jasser252]

القاعده كبيره هشرح الموضوع بتوضيح اكثر 

ومرق صوره 

هو برنامج مبيعات 

فيه نموزج اسمه رصيد الاصناف وصافى الربح 

شغال تمام ومنتههى 

اضفت  جدول جديد للمصروفات 

وعملت ليه نموزج اسمه المصروفات 

عايز اعمل  زر امر فى نموزج رصيد الاصناف 

ينسخ قيمه صافى الربح من نموزج رصيد الاصناف والربح

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

كما فى الصوره 

وكل مره يضيف القيمه فى سجل جديد

تم تعديل فبراير 19, 2023 بواسطه jasser252

[jasser252]

مشكور اخى الكريم مهندس قاسم لردك

السؤال اخى 

القيمه هاتتخزن فى الحق المطلوب النموزج التاني وهو المطلوب 

هل كل مره هاضغط على زر الامر ده 

هيعمل سجل جديد فى النموزج التاني ولا هاتروح القيمه لنفس السجل السابق 

 كما ارجو توضيح اكثر لطريقه عمل الموديل 

ما كتبتش موديل قبل كده 

تم تعديل فبراير 19, 2023 بواسطه jasser252

[Eng.Qassim]

منذ ساعه, jasser252 said:

القيمه هاتتخزن فى الحق المطلوب النموزج التاني وهو المطلوب 

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

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

اذا تريد بدلالة التاريخ..حتى اعملها لك

[jasser252]

عفوا مهندس قاسم لم افهم ردك 

ال فهمته ان 

المشكلة في الطريقه الاولى انه نموزج مستمر وفيه تاريخ

هل ممكن ننفذ الطريقه الاولى على نموزج غير مستمر singl

ونخلى المستمر لوحده 

اذا كان ممكن ياريت الشرح كامل لانى مبتدئ ولم اعمل مع

vba من قبل 

او ممكن اى طريقه تانيه 

هقول حضرتك غرضى من جدول مصروفات والنموزج بتاعه

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

هجيب صافى الربح قبل المصروف من هناك الى الحقل هنا كا ما احتاج 

عايز تيجي القيمه هنا وهنا زى ما حضرتك شايف الغرض منو 

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

تم تعديل فبراير 19, 2023 بواسطه jasser252

[jasser252]

مع خالص شكر مهندس قاسم لمجهودك معي 

اعزك الله بالخير دائما 

[jasser252]

او اى طريقه تانيه 

اسف معرفتش اشرح كويس من الاول 

عن طرريق زر امر او اى طريقه تانيه ممكنه مع شرح كامل 

[Eng.Qassim]

عملت لك هذا المثال..وهو مجرد فكرة لان المفروض ان يكون هناك تاريخ في النموذج الثاني

وحين الضغط على زر الحفظ في النموذج الاول فانه يلف على سجلات النموذج الثاني ويبحث بالتاريخ ليضع القيمة

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

Q2.rar

[jasser252]

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

[jasser252]

لاسف منفعش مش بيقدر يكرر العمليه فى سجل جديد بنفس التاريخ 

لو تكرمت تعمل مثالا لنفس الطلب بتاعي وانا هستغني عن التاريخ فى جدول المصروفات 

بس كل طلبي ينسخ القيمه سجل جديد فى جدول المصروفات بدون تاريخ 

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

هى قيمه محسوبه فى النموزج ملهاش مصدر فى جدول 

انا تقريبا عندي مشكله فى المتصفح لما برفع ملف القاعده بيحصل خطا ويخرج من المتصفح

فى فكره فى دماغي مش عارف  صح ولا لا 

اذا نفذنا المثال المرفق الى بعته حضرتك ليا 

بس بحيث ما يضيفش سجل جديد ولا حاجه 

خلينا نقول يبقى سجل واحد بالتاريخ 

ومن النموزج ده نعمل استعلام الحاق يبعت السجل ده يدوى فى جدول جديد تانى 

تم تعديل فبراير 19, 2023 بواسطه jasser252

[Eng.Qassim]

11 دقائق مضت, jasser252 said:

بس كل طلبي ينسخ القيمه سجل جديد فى جدول المصروفات بدون تاريخ

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

14 دقائق مضت, jasser252 said:

لاسف منفعش مش بيقدر يكرر العمليه فى سجل جديد بنفس التاريخ

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

[jasser252]

فاهمني حضرتك 

 هنفذ الفكره زى ما طلبت من حضرتك 

بس خل الكود كل مره ينقل  القيمه لنفس السجل مع التاريخ وفى  النموزج مصروفات

هنعمل زر ينفذ الحاق للسجل ده كلو فى جدول تانى

اعتقد ان ده ممكن ولا انا فاهم غلط

اانا قولت الغى التاريخ بس فيه حاجه ضروريه ليه مش هقدر استغنى عنو 

مش لازم عندي ان القصه تتم اوتوماتيك كليا 

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

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

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

مع الشكر وفى انتظار ردك على ما اصمم  قاعده تشرح المطلوب 

 

تم تعديل فبراير 19, 2023 بواسطه jasser252

[Eng.Qassim]

هو حضرتك لو كنت رفقت ملف كان اسهل علينا وعليك..عشان افهم ايه اللي يجرى

[jasser252]

يا جماعه مرفق المشاركات هنا بيقبل مساحه الملف لغايه كام 

والله يا باش مهندس قاسم مش عارف حجم الملف 17 ميجا مش بيترفق ولا المشكله عندى فى الجهاز 

[jasser252]

واحد ميجا اقصى حاجه 

القاعده ال عندي مصممهها من بدري وفيها بيانات كبير وكنا شغالين بيها وحاليا احتجت اضيف المصروفات واعمل تعديلات جديده  ايه الحل 

[jasser252]

نفذت مثال حضرتك بالظبط 

وحتى النموزج الى بيروح ليه القيمه مش مستمر 

بيظهر خطاء ايه هنا

 ملحوظه انا خليت فى القاعد الجدول والنموزج واسم الحقل فى الجدول الى رايح ليه القيمه زى ما حضرتك عاملهم 

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

لكن انا نفذت تكويد حضرتك صح عندي للمعلومه 

تم تعديل فبراير 20, 2023 بواسطه jasser252

[jasser252]

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

 

[jasser252]

انا خدت بالى من حاجه دلوقت مثال مبنى على اساس ينسخ قيم من النموزج

بس ليها حقل نص فى جدول data

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

ووده الكود  ال جوا مربع النص 

=Sum([Expr4])

لعل هذا سبب المشكله 

 

 

 

[jasser252]

لقيت حل يمشي معايا لكن برضو انا عايز خبرة حضرتك علشان اتعلم جديد 

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

لكن اتمنى لو وقتك يسمح نحاول نعمل الحل ال اقترحته حضرتكك او حل تاني للتعليم ورفع المهاره 

بحب الحلول الاحترافيه 

واناوالله مهندس قاسم شاكر جدا لحضرتك لاهتمامك ومساعدتك 

😊استفدت برضو منك حاجه جديده ودماغي جابت حل 

جزاك الله خيرا 

اللهم امين 

تم تعديل فبراير 20, 2023 بواسطه jasser252

[Eng.Qassim]

10 ساعات مضت, jasser252 said:

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

اضغط  الملف وارفعه..

بالنسبة للسطر الواضح بالاصفر اعمله هكذا

no_p=Forms![Data]![T4].Text

او هناك خطأ بالمسميات

[متقاعد]

في 19‏/2‏/2023 at 08:36, jasser252 said:

عايز اعرف ازاى اعمل زر امر فى نموزج لنسخ قميه من مربع نص فى هذا النموزج

وفتح نموزج اخر وتخزين هذه القميه فى احد حقول جدول هذا النموزج

بالاضافة لما اشار اليه الاساتذه

هذا الموضوع يشرح عدة طرق لكيفية نقل حقل او عدة حقول من نموذج لاخر ربما يفيدكم

واعتذر عن وضع مثال حاليا

اقتباس

 

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