الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أسوي ربط في الرصيد بين جدولين ؟؟؟

مغلق
بدأه Abdulmjeed في 19 سبتمبر 2003 · 9 رد · 1,727 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ،،،

السؤال / كيف أسوي ربط بين جدولين

مثال / عندي جدولين في الاكسس الاول : مبالغ واردة الى الصندوق ، الثاني : مبالغ خارجة من الصندوق وكل جدول يتكون من ( المبلغ ، التاريخ ، جهة المبلغ ) ........

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

يا ريت ان الفكره تكون وصلت

اخوكم ،،،،،،،،،

تم تعديل هذه المشاركة بواسطة Abdulmjeed في 19 سبتمبر 2003 في 01:01

#2

أخي العزيز ,,,, أسعد الله صباحك بكل خير ،،،،

عزيزي ما هي أسماء الجداول ؟؟؟؟ سوف أضع أسماء كمثال ثم طبقها على برنامجك

الجدول الاول : وهو جدول المبالغ الواردة ،،، إسمه : ( a )

الجدول الثاني: وهو جدول المبالغ الخارجة ،،، إسمه : ( b )

حقول الجدولين كما ذكرت تتكون من : ( المبلغ ، التاريخ ، جهة المبلغ )

في النموذج المبني على الجدول الثاني وهو جدول ( المبالغ الواردة ) ، أنشيء حقلا غير منضم اسمه ( c ) هذا الحقل سوف يكون ( مصدر عنصر التحكم ) له هذا الكود :

=DSum("[المبلغ]";"a")

شرح هذا الكود : هو يأتي لك بمجموع جميع المبالغ الواردة المدخلة في جدول ( a )

عندما نحصل على مجموع هذه المبالغ نضع شرطاً في حقل ( المبلغ ) في حدث ( بعد التحديث ) ,,,, والشرط هو عبارة عن كود هو :

If Me![المبلغ] > c Then
MsgBox "لايمكن السحب حيث ان المبلغ المطلوب هو اكبر من المبلغ الموجود في الصندوق !!!!!!!!!", vbOKOnly, "تنبيه"
Me.Undo
End If

شرح هذا الكود : هو أنه في حال أن المبلغ المدخل في جدول ( b ) وهو جدول المبالغ الخارجة أكبر من مجموع المبالغ المدخلة في جدول ( a ) ،،، سوف يتراجع عن الحفظ

ألتمسك عذراً على الاطالة في الشرح ،،،،، ولكن كي تصل لك الفكرة فقط ,,,,

شاكر

المسلم من سلم الناس من لسانه ويده

#3

شاكر الله يخليك

ويطول عمرك ويزيدك فوق العلم علم يا غالي

(( ألتمسك عذراً على الاطالة في الشرح ،،،،، ولكن كي تصل لك الفكرة فقط ))

اي اطالة !!!! شرحت ووفيت ، واعذرني على كثرة الاسئلة بس

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

الا عند شاكر الزين و منتديات الفريق العربي للبرمجة (F)(F) ،،،،،،،،،،،،،،،،،،،،،،،

،،،،،،،،،،،،،، على فكره الكود الاول ما مشى معي الا بعد ما سويت

=DSum("[المبلغ]","a") ، يعني بدل ; كذا , !!!!!!!!!!!!!!!!!!

تم تعديل هذه المشاركة بواسطة Abdulmjeed في 19 سبتمبر 2003 في 16:13

#4

في استفسار عندي وهو

-1- ليش كتبنا Me بعد الدلة If ؟؟

2- اش معنا Me.Undo ؟؟؟؟

2- العلامات ] [ , ; ( ) هل في شروط محدده لكتابتها او زي ما يقولوا

لكل مقام مقال !!!

تحياتي ،،،،،،،

#5

أخي العزيز ،،،، أما عن كلمة ( me ) فهي تكتب عندما تستخدم منشيء التعابير لعمل الشرط وهي غير ضرورية و هي تكتب للحقل الموجود على النموذج وموجودا أيضا في الجدول ,,,,

أما عن ( me.undo ) فمعناها للتراجع عن تنفيذ العملية الشرطية ,,,,

القوسان ] [ يستخدمان لكتابتهما في الكود حول الحقل المكتوب باللغة العربية مثل إذا كان الحقل اسمه ( الرصيد )

يجب كتابة هذين القوسين هكذا : [الرصيد] ،،،، أما إذا كان الحقل مكتوبا باللغة الانجليزية فلا داعي لهما يكتب الحرف كما هو : مثلا a بدون القوسين ,,,,

القاصلة المنقطة ( ; ) تستخدم عندما يكون الكود في مكان ( مصدر عنصر التحكم ) للحقل الغير منضم

الفاصلة الغير منقطة ( ، ) تستخدم عندما يكون الكود داخل الحدث في الوحدة النمطية للنموذج ,,,,

هذا القوسان ( ) يكونان حول عملية معينة مطلوب تنفيذها ,,,,

شاكر

المسلم من سلم الناس من لسانه ويده

#6

بارك الله فيك وزاد الله من أمثالك

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

#7

جميعاً يا أخ / عبد المجيد ،،،،

شاكر

المسلم من سلم الناس من لسانه ويده

#8

شكرا لك أخي العزيز شاكر وبارك الله فيك

أشرف خليل

#9

الاخ العزيز : أشرف خليل ،،، لقد تغير المنتدى عن سابق عهده ،،، أنا أراه لا يعطي أهتمام لأساتذة وعباقرة المنتدى على الأقل في مجموعة الأعضاء ،،،، رأيت أسماء كثيرة كانت لامعة ذات مجموعة ( خبير أكسس ) ،،، و ( عضو مميز ) و ( عضو فعال ) و ( عضو شرف ) ،،،، وغيرها من أسماء ( مجموعة الأعضاء ) ،،،، وأنت يا أخ أشر ف خليل كنت ( مشرف منتدى قواعد بيانات الأكسس ) ،،،، ما الذي تغير ،،،، ما الذي حصل حتى أصبح المنتدى هكذا ,,,, لا يخفى عليك أن مثل هذه الاسماء تعطي حافزا كبيرا للاعضاء بالمنافسة الشريفة كي يضع كل ما عنده من معلومات حتى يفيد ويستفيد منها باقي الاعضاء ,,,,, لقد رأيت كل عباقرة وأساتذة المنتدى ذات مجموعة ( مشترك ) أو ( مشارك ) ،،،، أرجو أن ينتبه القائمون على هذا المنتدى لهذه الملاحظة ,,,,,

و شكراً لك سلفاً أخي أشرف على تشجيعك لي ،،،، وهذا إن دل إنما يدل على حبك للمنتدى وأخلاصك له ,,,, مع خالص شكري وتقديري ,,,,

شاكر

تم تعديل هذه المشاركة بواسطة شاكر الزين في 21 سبتمبر 2003 في 09:51

المسلم من سلم الناس من لسانه ويده

#10

تحياتي لكم اساتذتي شاكر ، أشرف

ودمتم بصحة وسعادة

هذا الموضوع مغلق.

مواضيع مشابهة