Barna

تفضل انظر .... test (7).accdb

ضع هذا في المديول Function salary1(frm As String) If Forms(frm)!المهنة = "طبيب" Then Forms(frm)!الراتب = 10000 ElseIf Forms(frm)!المهنة = "مهندس" Then Forms(frm)!الراتب = 9000 ElseIf Forms(frm)!المهنة = "صيدلي" Then Forms(frm)!الراتب = 8000 ElseIf Forms(frm)!المهنة = "معاون طبيب" Then Forms(frm)!الراتب = 7000 ElseIf Forms(frm)!المهنة = "معاون مهندي" Then Forms(frm)!الراتب = 6000 ElseIf Forms(frm)!المهنة = "" Then Forms(frm)!الراتب = 0 End If End Function استدعيه من النموذج بهذا الكود Call salary1(Me.Name) DoCmd.RefreshRecord

بارك الله فيك اخي الكريم ... هذا اقل ما يمكن ان نقدمة لاعضاء هذا المنتدى الذي لازال ويقدم لنا العلم .... اسأل العظيم بمنه وكرمه ان يفك عنك كربتك ... امين يارب

وعليكم السلام اهلا بك اخ علاء ممكن مثال وبه بيانات عشوائية للتطبيق عليه

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

تفضل ... شؤؤن_الموضفين.accdb

واياك أخي قاسم .... بالتوفيق

جدول Temp جدول مؤقت لاستيراد البيانات له من الاكسس قبل الحاقه للجدول الاساسي ...

جرب ووافيني بالنتيجة ..... BA.mdb

الكود يعمل معي في الملف المرسل لك .... هل جربت الملف ولم يعمل معك ؟؟

انا لم اتدخل في الكود وانما تعديلي للمشكلة الموجودة في بداية موضوعك أخي الكريم .... هذا هو كودك وفعله .....

جرب الملف .... BA.mdb

عند انشاء العلاقات طبق كما في الصورة ....... واجعل التعديل لـ ID من خلال النموذج للجدول الاساسي فيتم تعديل الـ ID في كل الجداول المرتبطة به دون الحاجة لتعديلها في كل جدول على حدا ,,,,,,

وعليكم السلام هل هناك علاقة بين هذه الجداول ... اقصد علاقة ربط ...

منتظر بصمت ..بارك الله فيك

اسمح لي استاذي @kanory اجاوب ... اخي الحبيب @احمد الفلاحجي في الكود الاول تم الاتصال بالقاعدة الخارجية مباشرة دون النظر الى الجداول المرتبطة ... فلذلك احتجنا كتابة مسار القاعدة المطلوبة اما في الحالة الثانية كان اخي السائل @rey360 كاتب الكود على اساس الاتصال بالقاعدة الحالية فلذلك لم يكن يحتاج لمسار القاعدة الخارجية ... ولكنه عرف المطلوب انه جدول وليس جدول مرتبط فلذلك الكود كان يدور ويبحث عن اسم الجدول Clients ولا يجد ... فقام اخي kanory بحذف عبارة dbOpenTable ارجو اني اوصلت الفكرة انا اضعف منك في اللغة ولم ادرس البرمجة وتحصصي بعيد جدا عن الحاسب ومجالاته .... والحمد لله رب العالمين بفضل الله ثم امثالكم من اساتذة المنتدى تعلمنا بالاضافة لشيئ مهم وهي عملية التطبيق .... بارك الله فيك .... واكرر معذرتي لاخي @kanory

ما شاء الله اخي Kanory وكل عام وانت بخير

بعد اذنك أخي واستاذي ابو فريد .... هذه طريقة أخرى 11 (1).mdb

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

عيدية جميلة ..... مبارك @Gamal.Saad و @اشرف دوام التوفيق ...

وعليكم السلام ممكن توضيح اكثر استاذ زوهير

مشاركة مع الاخوة الاحبة ..... عسى أن يكون الكود قصيرا .... تفضل Aziz (2).rar

هذه بعض الافكار اخي الكريم مقتبسة من برنامج تم تصميمه لبعض المدارس ..... يمكن الاستفادة من افكارها لأنها قد تشبه طريقتك

ماشاء الله تبارك الله أخي @أبو إبراهيم الغامدي وكل عام وانت بخير

هذه احدى البرامج من المنتدى .... انظر .....