Eng.Qassim

وعليكم السلام ... شكرا اخي الفاضل @عبدالقدوس48على المعلومة الجميلة جعلها الله في ميزان حسناتك

اخي العزيز .. بعد اذن استاذي عمر للسهولة استخدام الوظيفة switch Switch([name_fild1]=100;[table2]![fild2];[name_fild1]=50;[table2]![fild2];[name_fild1]=30;[table2]![fild2])

استاذنا العزيز @zabin من الواضح ان البرنامج متعوب عليه.. لكن لو تحوله الى نسخة اقدم من 2016

عن اذن استاذي @ابو جودي لو تفتح موضوع جديد بسؤالك يكون افضل ...ليستفاد منه بقية الاخوة

عن اذن استاذ احمد المشكلة .. ان استاذ احمد لا يريد ان تظهر في (المرحلة) = A1 وانما 1 وهكذا

🤣

بصراحة اضع تقييم مليون على 100 لاستاذي المبدع @ابو جودي عمل اكثر من رائع اضاف لي معلومة لاتقيم الا بكلمة ...ربي يحفضك ويرزقك من حيث لا تحتسب

مبدع استاذ @ابو جودي بس نتيجة التقييم ما تظهر؟

ممكن تحويل القاعدة لنسخة اقدم؟ هذا مخالف لقوانين المنتدى

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

السلام عليكم .. قم بتعريف المتغير Dim i As Integer قم بوضع DoCmd.Requery بدلا من DoCmd.RefreshRecord

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

انظر الى هذه الجملة في كودك استاذ عمر Else ليس فيها End If

لطالما اقول ان الاكسس فيه جني .. بصراحة لم ارى فرق بين ملفك وملف الاستاذ ابو عبد الله نصيحتي استاذ احمد .. ولطالما الاستاذ @أبو عبدالله الحلوانىمعك اعمل نموذج مستمر فيه اسماء عدد من الموظفين وليس نموذج مفرد .. بحيث انك اذا اخترت الدرجة والمرحلة لكل موظف يظهر لك الراتب واتمنى منك ان تطور برنامجك بان تجعل حقل لاستحقاق العلاوة السنوي من تاريخ تعيينه .. بحيث انه اذا حصل على كتاب شكر فأنه يتقدم شهرا وسأقوم بمساعدتك ان شاء الله حسبما استطيع من معرفتي ووقتي

اين هو الراتب ... المفروض يظهر 910000

شكرا استاذي @أبو عبدالله الحلوانى على هذه المعلومة لان لوكانت الكلمة بالعربي فلن يعمل الكود في حدث عند التغيير الا اذا تم تحويلها الى Unicode معلومة من ذهب ... جزاك الله خيرا استاذي انظر لملف استاذي @ابو جودي وستفهم كيف يتم تحويل الكلمة العربي الى unicode Converter Arabic and Unicode (v. 3).accdb

ضع الكود على حدث بعد التحديث Private Sub B_1_AfterUpdate() If Me.B_1 = "ذكر" Then Me.t_1 = True Me.t_2 = False Else Me.t_1 = False Me.t_2 = True End If End Sub

ماشاء الله عليك استاذ @Amr Ashraf زادك الله من علمه

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

هذا في حالة الخصم وهذا في حالة المباشر

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

مش انا قلتها لك...انا سرقتها منك بس انت مش واخد بالك 😄

ممتاز وشغال زي الفل

استاذ @ابو جودي انظر الى النموذج الاول في النموذج الثاني .. حينما يتم اختيار مثلا Twitter and Click تصبح قيمة TargetPlas (Target)= قيمة txtcost * قيمة ال twitter and clickالموجودة في النموذج الاول والتي قيمتها 5 كلامك عين الصواب ولا اعرف لماذا يريد ان يأخذها من النموذج وليس من سجلات الجدول!!

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