Mohamed Khaled Galal قام بنشر أغسطس 23, 2023 قام بنشر أغسطس 23, 2023 السلام عليكم اخواني الكرام اريد عند الضغط على زر اضافه سريال يقوم بفتح نموذج رقم (2) وكتابه رقم 1 الموجوده في النموذج رقم (1) في خانه رقم الأذن في النموذج رقم (2) نموذج رقم (1) نموذج رقم (2) اسم النموذج رقم (1) اسم النموذج رقم (2) مرفق قاعده البيانات برجاء ربط قاعده البيانات بالجداول. https://www.mediafire.com/file/pm9kiux3ir4s0yg/QRSystemManagerFinal.rar/file
ابوخليل قام بنشر أغسطس 23, 2023 قام بنشر أغسطس 23, 2023 المفروض انك ترفق مثال بسيط لتتعلم الطريقة وتنقلها الى برنامجك ايضا يكون المثال مرجعا سهلا لمن يبحث عن مثل هذا الموضوع تم عمل مثال بسيط لكيفية تطبيق الفكرة القيمة في النموذج الاول اعلنا عنها عند نقر الزر وقبل فتح النموذج 2 الان عند فتح النموذج الثاني وعند حدث التحميل يتم ادراج القيمة بعيدا عن النموذج الأول على افتراض ان البعض يرغب في قفل النموذج الاول بمجرد فتح النموذج الثاني db1.rar 1
شايب قام بنشر أغسطس 23, 2023 قام بنشر أغسطس 23, 2023 35 دقائق مضت, ابوخليل said: القيمة في النموذج الاول اعلنا عنها عند نقر الزر وقبل فتح النموذج 2 مشاركة مع استاذنا طريقة اخرى بدون استخدام متغير عام تحميل القيمة مباشرة في امر فتح النموذج باستخدام الامر التالي DoCmd.OpenForm "frm2", acNormal, , , acFormAdd, , ID وفي النموذج الثاني في حدث عند التحميل نضع الامر Me.ID = Me.OpenArgs اخير في تعديل الاستاذ الكبير وكذلك في تعديل اخونا شايب يفضل ان تضع امر معالجة الخطأ في حالة كون حقل id في النموذج الاول فارغ والله الموفق 1
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 في النموذج الاول فارغ والله الموفق متشكر جدا اخي العزيز
شايب قام بنشر أغسطس 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
أفضل إجابة 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 متشكر جدا لك اخي الفاضل
شايب قام بنشر أغسطس 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
ابوخليل قام بنشر أغسطس 24, 2023 قام بنشر أغسطس 24, 2023 22 دقائق مضت, شايب said: اما اذا اردنا استخدام متغير كما اشار الاستاذ الكبير 22 دقائق مضت, شايب said: في حال كنت مبتدي وليس لديك معرفة لمعالجة رسائل الخطا فان طريقة الاستاذ الكبير اسهل رفع الله قدرك وأعلى شأنك كبير في العمر نعم ... ولكن نادوهم باحب الاسماء اليهم .. وانا احب واعشق .. ابوخليل .. كعشقك للشايب
شايب قام بنشر أغسطس 24, 2023 قام بنشر أغسطس 24, 2023 5 دقائق مضت, ابوخليل said: كبير في العمر نعم ... ولكن نادوهم باحب الاسماء اليهم .. وانا احب واعشق .. ابوخليل .. كعشقك للشايب والله يا اباخليل اني احبك في الله وانت استاذي اولا واخرا
ابوخليل قام بنشر أغسطس 24, 2023 قام بنشر أغسطس 24, 2023 احبك الله الذي احببتني فيه ، وانا احمل لك في قلبي مثل ذلك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.