Mohamed Khaled Galal قام بنشر أغسطس 23, 2023 مشاركة قام بنشر أغسطس 23, 2023 السلام عليكم اخواني الكرام اريد عند الضغط على زر اضافه سريال يقوم بفتح نموذج رقم (2) وكتابه رقم 1 الموجوده في النموذج رقم (1) في خانه رقم الأذن في النموذج رقم (2) نموذج رقم (1) نموذج رقم (2) اسم النموذج رقم (1) اسم النموذج رقم (2) مرفق قاعده البيانات برجاء ربط قاعده البيانات بالجداول. https://www.mediafire.com/file/pm9kiux3ir4s0yg/QRSystemManagerFinal.rar/file رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 23, 2023 مشاركة قام بنشر أغسطس 23, 2023 المفروض انك ترفق مثال بسيط لتتعلم الطريقة وتنقلها الى برنامجك ايضا يكون المثال مرجعا سهلا لمن يبحث عن مثل هذا الموضوع تم عمل مثال بسيط لكيفية تطبيق الفكرة القيمة في النموذج الاول اعلنا عنها عند نقر الزر وقبل فتح النموذج 2 الان عند فتح النموذج الثاني وعند حدث التحميل يتم ادراج القيمة بعيدا عن النموذج الأول على افتراض ان البعض يرغب في قفل النموذج الاول بمجرد فتح النموذج الثاني db1.rar 1 رابط هذا التعليق شارك More sharing options...
شايب قام بنشر أغسطس 23, 2023 مشاركة قام بنشر أغسطس 23, 2023 35 دقائق مضت, ابوخليل said: القيمة في النموذج الاول اعلنا عنها عند نقر الزر وقبل فتح النموذج 2 مشاركة مع استاذنا طريقة اخرى بدون استخدام متغير عام تحميل القيمة مباشرة في امر فتح النموذج باستخدام الامر التالي DoCmd.OpenForm "frm2", acNormal, , , acFormAdd, , ID وفي النموذج الثاني في حدث عند التحميل نضع الامر Me.ID = Me.OpenArgs اخير في تعديل الاستاذ الكبير وكذلك في تعديل اخونا شايب يفضل ان تضع امر معالجة الخطأ في حالة كون حقل id في النموذج الاول فارغ والله الموفق 1 رابط هذا التعليق شارك More sharing options...
Mohamed Khaled Galal قام بنشر أغسطس 24, 2023 الكاتب مشاركة قام بنشر أغسطس 24, 2023 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 في النموذج الاول فارغ والله الموفق متشكر جدا اخي العزيز رابط هذا التعليق شارك More sharing options...
شايب قام بنشر أغسطس 24, 2023 مشاركة قام بنشر أغسطس 24, 2023 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 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة Mohamed Khaled Galal قام بنشر أغسطس 24, 2023 الكاتب أفضل إجابة مشاركة قام بنشر أغسطس 24, 2023 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 متشكر جدا لك اخي الفاضل رابط هذا التعليق شارك More sharing options...
شايب قام بنشر أغسطس 24, 2023 مشاركة قام بنشر أغسطس 24, 2023 اما اذا اردنا استخدام متغير كما اشار الاستاذ الكبير في الوحدة النمطية نعدل في المتغير الى 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 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 24, 2023 مشاركة قام بنشر أغسطس 24, 2023 22 دقائق مضت, شايب said: اما اذا اردنا استخدام متغير كما اشار الاستاذ الكبير 22 دقائق مضت, شايب said: في حال كنت مبتدي وليس لديك معرفة لمعالجة رسائل الخطا فان طريقة الاستاذ الكبير اسهل رفع الله قدرك وأعلى شأنك كبير في العمر نعم ... ولكن نادوهم باحب الاسماء اليهم .. وانا احب واعشق .. ابوخليل .. كعشقك للشايب رابط هذا التعليق شارك More sharing options...
شايب قام بنشر أغسطس 24, 2023 مشاركة قام بنشر أغسطس 24, 2023 5 دقائق مضت, ابوخليل said: كبير في العمر نعم ... ولكن نادوهم باحب الاسماء اليهم .. وانا احب واعشق .. ابوخليل .. كعشقك للشايب والله يا اباخليل اني احبك في الله وانت استاذي اولا واخرا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 24, 2023 مشاركة قام بنشر أغسطس 24, 2023 احبك الله الذي احببتني فيه ، وانا احمل لك في قلبي مثل ذلك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان