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

[husamwahab]

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

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

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

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

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

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

 

 

 

 

dba.rar

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

[محمد ايمن]

  في 7‏/10‏/2016 at 23:18, husamwahab said:

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

Expand  

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

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

[husamwahab]

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

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

[Hadeel93]

  في 7‏/10‏/2016 at 13:25, ابا جودى said:

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

Expand  

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

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

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

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

[ابو جودي]

  في 8‏/10‏/2016 at 16:30, Hadeel93 said:

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

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

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

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

Expand  

تمام يا استاذه فعلا الموديول مش راح نضيف او نغير او نحذف منه شئ ولا حتى تفكرى تفتحيه تانى
كل ما عليكى تغيرى القيم اللى فى الكود على زر الامر بما يتناسب مع الاتى
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 بواسطه ابا جودى

[ابو جودي]

  في 7‏/10‏/2016 at 23:18, husamwahab said:

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

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

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

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

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

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

dba.rarFetching info...

Expand  

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

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

[husamwahab]

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

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

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

[ابو جودي]

  في 8‏/10‏/2016 at 18:32, husamwahab said:

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

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

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

Expand  

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

[husamwahab]

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

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

[رمهان]

اعزائي

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

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

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

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

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

=Forms!form4!Text0

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

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

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

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

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

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

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

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

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

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

تحياتي

[ابو جودي]

  في 9‏/10‏/2016 at 18:48, رمهان said:

اعزائي

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

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

Expand  

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

[رمهان]

  في 9‏/10‏/2016 at 19:00, ابا جودى said:

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

Expand  

تقصد

  في 9‏/10‏/2016 at 18:48, رمهان said:

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

Expand  

 

[ابو جودي]

  في 9‏/10‏/2016 at 19:27, رمهان said:

تقصد

 

Expand  

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

[رمهان]

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

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

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

 

تحياتي

copy txt val.rar

[ابو جودي]

 

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

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

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

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

 

تحياتي

copy txt val.rarFetching info...

Expand  

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

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

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

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

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

Expand  

[رمهان]

تفضل

 

copy txt val.rar

[محمدنجار]

  في 10‏/10‏/2016 at 20:32, رمهان said:

 

copy txt val.rarFetching info...

Expand  

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

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

[Hadeel93]

  في 7‏/10‏/2016 at 13:25, ابا جودى said:

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

Expand  

 

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

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

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

وشكرا

[ابو جودي]

  في 16‏/10‏/2016 at 17:20, Hadeel93 said:

 

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

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

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

وشكرا

Expand  

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

[Hadeel93]

  في 17‏/10‏/2016 at 16:37, ابا جودى said:

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

Expand  

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

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

[ابو جودي]

  في 17‏/10‏/2016 at 18:04, Hadeel93 said:

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

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

Expand  

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

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

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

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

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

 

تحياتي

copy txt val.rarFetching info...

Expand  

 

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

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

[Mosab1984]

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

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

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

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

[ابو جودي]

  في 23‏/9‏/2019 at 11:25, Mosab1984 said:

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

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

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

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

Expand  

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

 

OpenArgs.mdbFetching info...

[Mosab1984]

  في 23‏/9‏/2019 at 15:10, ابا جودى said:

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

 

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

Expand  

السلام عليكم

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

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

شكرا سلفا

[ابو جودي]

  في 26‏/9‏/2019 at 13:20, Mosab1984 said:

السلام عليكم

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

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

شكرا سلفا

Expand  

الاتنين صح

ممكن 

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

وممكن

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