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

[Mohamed Khaled Galal]

السلام عليكم

اخواني الكرام اريد عند الضغط على زر اضافه سريال يقوم بفتح نموذج رقم (2) وكتابه رقم 1 الموجوده في النموذج رقم (1) في خانه رقم الأذن في النموذج رقم (2) 

نموذج رقم (1)

 

نموذج رقم (2)

 

اسم النموذج رقم (1)

 

اسم النموذج رقم (2)

 

مرفق قاعده البيانات برجاء ربط قاعده البيانات بالجداول.

https://www.mediafire.com/file/pm9kiux3ir4s0yg/QRSystemManagerFinal.rar/file

[ابوخليل]

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

ايضا يكون المثال مرجعا سهلا  لمن يبحث عن مثل هذا الموضوع

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

القيمة في النموذج الاول اعلنا عنها عند نقر الزر وقبل فتح النموذج 2

الان عند فتح النموذج الثاني  وعند حدث التحميل يتم ادراج القيمة بعيدا عن النموذج الأول

على افتراض ان البعض يرغب في قفل النموذج الاول بمجرد فتح النموذج الثاني

db1.rar

[شايب]

35 دقائق مضت, ابوخليل said:

القيمة في النموذج الاول اعلنا عنها عند نقر الزر وقبل فتح النموذج 2

مشاركة مع استاذنا

طريقة اخرى بدون استخدام متغير عام

تحميل القيمة مباشرة في امر فتح النموذج

باستخدام الامر التالي

DoCmd.OpenForm "frm2", acNormal, , , acFormAdd, , ID

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

Me.ID = Me.OpenArgs

اخير في تعديل الاستاذ الكبير وكذلك في تعديل اخونا شايب

يفضل ان تضع امر معالجة الخطأ في حالة كون حقل id في النموذج الاول فارغ

والله الموفق

[Mohamed Khaled Galal]

12 ساعات مضت, شايب said:

مشاركة مع استاذنا

طريقة اخرى بدون استخدام متغير عام

تحميل القيمة مباشرة في امر فتح النموذج

باستخدام الامر التالي

DoCmd.OpenForm "frm2", acNormal, , , acFormAdd, , ID

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

Me.ID = Me.OpenArgs

اخير في تعديل الاستاذ الكبير وكذلك في تعديل اخونا شايب

يفضل ان تضع امر معالجة الخطأ في حالة كون حقل id في النموذج الاول فارغ

والله الموفق

شكرا لك اخي هل يمكن ان اضيف حقل اخر مع ID  بحيث عند فتح النموذج الثاني يقوم بملئ حقلين

12 ساعات مضت, شايب said:

مشاركة مع استاذنا

طريقة اخرى بدون استخدام متغير عام

تحميل القيمة مباشرة في امر فتح النموذج

باستخدام الامر التالي

DoCmd.OpenForm "frm2", acNormal, , , acFormAdd, , ID

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

Me.ID = Me.OpenArgs

اخير في تعديل الاستاذ الكبير وكذلك في تعديل اخونا شايب

يفضل ان تضع امر معالجة الخطأ في حالة كون حقل id في النموذج الاول فارغ

والله الموفق

متشكر جدا اخي العزيز

[شايب]

26 دقائق مضت, Mohamed Khaled Galal said:

شكرا لك اخي هل يمكن ان اضيف حقل اخر مع ID  بحيث عند فتح النموذج الثاني يقوم بملئ حقلين

نعم ممكن حقلين وثلاثة وعشرة

وهذا الامر للطريقة التي اشار اليها الاخ شايب وايضا لطريقة الاستاذ الكبير

ولكن الاخ شايب سوف يشرح ذلك في الطريقة التي اشار اليها

في زر الامر نضع الامر التالي

DoCmd.OpenForm "frm2", acNormal, , , acFormAdd, , [ID] & "|" & [Discount]

هنا لدينا حقلي المعرف والحسم وفصلنا بينهما بـ  & "|" &

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

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

Dim a As Variant
a = Split(Me.OpenArgs, "|")
Me.ID = a(0)
Me.Discount = a(1)

الملف مرفق

اخونا الفاضل شايب

 

db1.rar

[Mohamed Khaled Galal]

14 دقائق مضت, شايب said:

نعم ممكن حقلين وثلاثة وعشرة

وهذا الامر للطريقة التي اشار اليها الاخ شايب وايضا لطريقة الاستاذ الكبير

ولكن الاخ شايب سوف يشرح ذلك في الطريقة التي اشار اليها

في زر الامر نضع الامر التالي

DoCmd.OpenForm "frm2", acNormal, , , acFormAdd, , [ID] & "|" & [Discount]

هنا لدينا حقلي المعرف والحسم وفصلنا بينهما بـ  & "|" &

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

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

Dim a As Variant
a = Split(Me.OpenArgs, "|")
Me.ID = a(0)
Me.Discount = a(1)

الملف مرفق

اخونا الفاضل شايب

 

db1.rar 42.02 kB · 1 download

متشكر جدا لك اخي الفاضل

[شايب]

اما اذا اردنا استخدام متغير كما اشار الاستاذ الكبير

في الوحدة النمطية نعدل في المتغير الى

Public myNumId(1) As Variant

غيرنا المتغير ليكون يقبل قيمتين

وغيرنا نوعة من رقم الى غير محدد ليقبل اي نوع من الحقول

ثم في النموذج الاول نضع الامر

myNumId(0) = Me.ID
myNumId(1) = Me.Discount
DoCmd.OpenForm "frm2", acNormal

وفي النموذج الثاني في حدث عند التحميل نضع

Me.ID = myNumId(0)
Me.Discount = myNumId(1)

لم نحتاج الى دالة التقسيم

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

الملف مرفق

 

 

db1(2).rar

[ابوخليل]

22 دقائق مضت, شايب said:

اما اذا اردنا استخدام متغير كما اشار الاستاذ الكبير

 

22 دقائق مضت, شايب said:

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

 

رفع الله قدرك وأعلى شأنك

كبير في العمر نعم  ... ولكن نادوهم باحب الاسماء اليهم .. وانا احب واعشق .. ابوخليل .. كعشقك للشايب 

[شايب]

5 دقائق مضت, ابوخليل said:

كبير في العمر نعم  ... ولكن نادوهم باحب الاسماء اليهم .. وانا احب واعشق .. ابوخليل .. كعشقك للشايب 

والله يا اباخليل اني احبك في الله

وانت استاذي اولا واخرا

[ابوخليل]

احبك الله الذي احببتني فيه ، وانا احمل لك في قلبي مثل ذلك