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

[husamwahab]

السلام عليكم اساتذتنا الكرام

كيف الحال اخ ابو جودي

اسمحوا لي بالمشاركة

ماهي الحاجة الى وجود وحدات نمطية جزء من كود  الاستاذ ابو جودي يفي بالغرض

فتح النموذج الثاني ثم عملية النسخ ثم اغلاق النموذج الاول

هذا اذا لم افهم الموضوع بصورة خاطئة

 

 

 

 

dba.rar

تم تعديل أكتوبر 7, 2016 بواسطه husamwahab

[محمد ايمن]

57 دقائق مضت, husamwahab said:

ماهي الحاجة الى وجود وحدات نمطية

تحية طيبة اخي الكريم

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

[husamwahab]

احسنت اخي محمد

ورحم الله والديك على التوضيح

[Hadeel93]

On 10/7/2016 at 4:25 PM, ابا جودى said:

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

السلام عليكم ابا جودى

عندي سؤال بس ,, انا جربت الطريقة وسويت موديول نسخت نفس الكود .. وسويت فورم 1 و2 وعند الزر حطيت نفس الكود مع تغيير اسامي الفورم والتيكست بوكس

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

كيف اتعامل مع الموديول؟ يكون واحد فقط لهم كلهم ؟ 

[ابو جودي]

48 دقائق مضت, Hadeel93 said:

السلام عليكم ابا جودى

عندي سؤال بس ,, انا جربت الطريقة وسويت موديول نسخت نفس الكود .. وسويت فورم 1 و2 وعند الزر حطيت نفس الكود مع تغيير اسامي الفورم والتيكست بوكس

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

كيف اتعامل مع الموديول؟ يكون واحد فقط لهم كلهم ؟ 

تمام يا استاذه فعلا الموديول مش راح نضيف او نغير او نحذف منه شئ ولا حتى تفكرى تفتحيه تانى
كل ما عليكى تغيرى القيم اللى فى الكود على زر الامر بما يتناسب مع الاتى
1- اسم الفورم الهدف والمراد نسخ البيانات اليه نرمز له مثلا  ( T ) ثم الدالة    IF    والتى نستدعى بها الكود من الموديول كما سبق شرحه

DoCmd.OpenForm "T"
If when_Open_form("frm2") Then

2- اسم النموذج المصدر والذى نريد نسخ البيانات منه نرمز له مثلا بالمرز ( S )
3- اسماء مربعات النص  فى النموذج المصدر  نرمز لها مثلا بالمرز    (  TXT_S1  ,  TXT_S2 )  والتى نريد نسخ البيانات منها
4- اسماء مربعات النص  فى النموذج الهدف  نرمز لها مثلا بالمرز     (  TXT_T1  ,  TXT_T2 )  والتى نريد لصق البيانات المنسوخة فيها

[Forms]![T]![TXT_T1] = [Forms]![S]![TXT_S1]
[Forms]![T]![TXT_T2] = [Forms]![S]![TXT_S2]

 
وبذلك يصبح الكود 
 

DoCmd.OpenForm "T"
If when_Open_form("T") Then
[Forms]![T]![TXT_T1] = [Forms]![S]![TXT_S1]
[Forms]![T]![TXT_T2] = [Forms]![S]![TXT_S2]
else
endif

اعتذر للاطالة

تم تعديل أكتوبر 8, 2016 بواسطه ابا جودى

[ابو جودي]

18 ساعات مضت, husamwahab said:

السلام عليكم اساتذتنا الكرام

كيف الحال اخ ابو جودي

اسمحوا لي بالمشاركة

ماهي الحاجة الى وجود وحدات نمطية جزء من كود  الاستاذ ابو جودي يفي بالغرض

فتح النموذج الثاني ثم عملية النسخ ثم اغلاق النموذج الاول

هذا اذا لم افهم الموضوع بصورة خاطئة

dba.rar

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

على الرغم من كمان ممكن الاستغناء نهائيا عن الموديول فعلا جارى التجربة 

[husamwahab]

حياك الله استاذ ابو جودي

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

اسعدني مرورك اخي العزيز

[ابو جودي]

منذ ساعه, husamwahab said:

حياك الله استاذ ابو جودي

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

اسعدني مرورك اخي العزيز

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

[husamwahab]

كان الله في العون اخ ابو جودي

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

[رمهان]

اعزائي

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

ويمكن اكون غلس حبتين ولكن اريد الفائدة واريد ان توضح الامور للاخت السائلة خصوصا وهي مبتدئة

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

1. مشاركة الاستاذ شيفان فهي الاجابة الطبيعية لانها تعليم كيف تحصل على قيمة حسب المسار الذي عرف في الاكسس وهو كلمة النماذج ثم اسم النموذج ثم اسم العنصر

2. وضع المسار كمصدر للعنصر ومبتدئا بعلامة = . ليصبح تعبير به مسار للعنصر وبالنموذج المفتوح فاستطيع ان يكون التعبير في النموذج الثاني والمراد فتحه كالتالي

=Forms!form4!Text0

وهكذا لبقية العناصر

اما اذا كان النموذجين سيغلق الاول فيمكن يضل اعلاه ويكون الامر للنموذج الاول اخفاء وليس اغلاق.

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

  - فتح النموذج الثاني

  - اسناد القيم بالمسار

  - اغلق النموذج الاول بامر اغلاق وصريح باسم النموذج او اعد التركيز عليه وامر اغلاق فقط

هنا ناتي الى اريد ان اغلق نموذج ومعي قيم احملها منه لاستخدمها لاحقا

1. تستخدم متغير عام لتخزين القيم وهذا ليس مستحبا في عدة امور ولان النقطة الثانية التالية اكثر تقدما

2. تستخدم الكائن tempvars   وهو كائن جديد بدا من اكسس 2007 وهو يساعد في حفظ القيم المؤقتة وعلى مستوى البرنامج وبتحكم مرن

3. استخدام الباراميتر openargs  عند فتح نموذج اخر وهنا افضل طريقة بل اتى هذا الخيار لما هنا بالتمام وهو تمرير القيم بين نموذجين سيغلق الاول منهما .

تحياتي

[ابو جودي]

7 دقائق مضت, رمهان said:

اعزائي

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

ويمكن اكون غلس حبتين ولكن اريد الفائدة واريد ان توضح الامور للاخت السائلة خصوصا وهي مبتدئة

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

[رمهان]

26 دقائق مضت, ابا جودى said:

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

تقصد

37 دقائق مضت, رمهان said:

3. استخدام الباراميتر openargs  عند فتح نموذج اخر وهنا افضل طريقة بل اتى هذا الخيار لما هنا بالتمام وهو تمرير القيم بين نموذجين سيغلق الاول منهما .

 

[ابو جودي]

الان, رمهان said:

تقصد

 

نعم اقصد تلك الطربقة ان شاء الله

[رمهان]

تفضل وولعنصر الاول

فتحت النموذج الثاني ممررا له قيمة من النموذج الاول

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

 

تحياتي

copy txt val.rar

[ابو جودي]

 

21 ساعات مضت, رمهان said:

تفضل وولعنصر الاول

فتحت النموذج الثاني ممررا له قيمة من النموذج الاول

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

 

تحياتي

copy txt val.rar

جزاكم الله خيرا 
اعتذر لاثقالى عليكم استاذى الحبيب ولكن لى وقفة هنا
طيب وبهذه الطريقه يا استاذى الجليل ومعلمى القدير ماذا لو احببنا نسخ قيم كل الحقول من النموذج الاول الى النموذج الثالنى ؟
وهذا سؤال رمهانى 

تذكر معى هذه المشاركة الرمهانية

في 10/5/2016 at 12:26, رمهان said:

بس تعال ياباشا 

لو عايزين ننقل كل العناصر !!

[رمهان]

تفضل

 

copy txt val.rar

[محمدنجار]

10 ساعات مضت, رمهان said:

 

copy txt val.rar

لمسة سحرية .. وفقت استاذ رمهان ..

تم تعديل أكتوبر 11, 2016 بواسطه محمدنجار

[Hadeel93]

On 10/7/2016 at 4:25 PM, ابا جودى said:

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

 

السلام عليكم اخي ابا جودى..

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

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

وشكرا

[ابو جودي]

23 ساعات مضت, Hadeel93 said:

 

السلام عليكم اخي ابا جودى..

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

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

وشكرا

تحعت امر حضرتك اتفضلى
cai.me80914@gmail.com
soul-angel@msn.com

[Hadeel93]

1 hour ago, ابا جودى said:

تحعت امر حضرتك اتفضلى
cai.me80914@gmail.com
soul-angel@msn.com

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

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

[ابو جودي]

الان, Hadeel93 said:

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

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

على كل حال تحت امرك باى وقت 
فقط نسال الله تعالى ان يجعلنا سبب من اسباب تيسير العلم وقضاء حوائج اخواننا واخواتنا ويتقبل ذلك ان شاء الله

في 10/9/2016 at 12:34, رمهان said:

تفضل وولعنصر الاول

فتحت النموذج الثاني ممررا له قيمة من النموذج الاول

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

 

تحياتي

copy txt val.rar

 

افضل الاهتمام والنظر والتمعن بافكار الاستاذ رمهان 

اعتذر للتاخير فى الرد لانشغالى فى العمل

[Mosab1984]

الشكر الجزيل لحضراتكم

باحدى الامثلة بالموقع مستخدمين OpenArgs بالشكل التالي

ممكن توضيح الفرق

  DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3"
	

[ابو جودي]

في ٢٣‏/٩‏/٢٠١٩ at 13:25, Mosab1984 said:

الشكر الجزيل لحضراتكم

باحدى الامثلة بالموقع مستخدمين OpenArgs بالشكل التالي

ممكن توضيح الفرق

  DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3"
	

انا مش فاهم قصدك بكلمة ايه الفرق
لكن على العموم نقدر نقول OpenArgs   هى متغير لقيمة يتم تمريرها  

 

OpenArgs.mdb

[Mosab1984]

في ‏٢٣‏/‏٠٩‏/‏٢٠١٩ at 17:10, ابا جودى said:

انا مش فاهم قصدك بكلمة ايه الفرق
لكن على العموم نقدر نقول OpenArgs   هى متغير لقيمة يتم تمريرها  

 

OpenArgs.mdb 248 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

السلام عليكم

المقصود هل يجب كتابة OpenArgs:="qry_rptD_3

ام اكتفي بكتابة qry_rptD_3

شكرا سلفا

[ابو جودي]

في ٢٦‏/٩‏/٢٠١٩ at 15:20, Mosab1984 said:

السلام عليكم

المقصود هل يجب كتابة OpenArgs:="qry_rptD_3

ام اكتفي بكتابة qry_rptD_3

شكرا سلفا

الاتنين صح

ممكن 

  DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3"

وممكن

  DoCmd.OpenReport "rptDiscount", acPreview, , , , qry_rptD_3