Eng.Qassim

السلام عليكم.. استاذ احمد...لماذا لا تعتمد سنوات الخدمة في احتساب الراتب عملت لك هذه الشفرة ..وهي شغالة بالنسبة (للبكلوريوس) لانها تبدأ من الدرجة السابعة فقط مرر سنوات الخدمة عبر startDate في الدالة Function IncreaseSalary(startDate As Double) As Double Dim years As Double Dim newSalary As Double years = startDate '7 If years <= 4 Then newSalary = 296 + ((years - 1) * 6) '6 ElseIf years > 4 And years <= 8 Then newSalary = 362 + ((years - 5) * 6) '5 ElseIf years > 8 And years <= 12 Then newSalary = 429 + ((years - 9) * 6) '4 ElseIf years > 12 And years <= 17 Then newSalary = 509 + ((years - 13) * 8) '3 ElseIf years > 17 And years <= 22 Then newSalary = 600 + ((years - 18) * 10) '2 ElseIf years > 22 And years <= 27 Then newSalary = 723 + ((years - 23) * 17) '1 Else newSalary = 910 + ((years - 28) * 20) End If IncreaseSalary = newSalary End Function

لايوجد خطا ..فقط استبدل الفارزة بالفارزة المنقوطة IIf(IsNull([total_arbic_nesf]); "الحقل فارغ"; IIf([total_arbic_nesf]>=85; "ممتاز"; IIf([total_arbic_nesf]>=65; "جيد جدا"; IIf([total_arbic_nesf]>=50; "جيد"; IIf([total_arbic_nesf]>=1; "ضعيف"; IIf([total_arbic_nesf]=0; "غ"; ""))))))

في كثير من الاحيان تتلخبط علينا المسميات حينما تكون باللغة العربية ...استكمالا لما انتهى اليه استاذنا الفاضل @محمد احمد لطفى Private Sub عدد_الاشهر_AfterUpdate() Me.تاريخ_الاستحقاق = DateAdd("m", Me.عدد_الاشهر, Me.تاريخ_اليوم) End Sub

السلام عليكم ...تقبل الله اعمال جميع الزملاء والاساتذة الكرم افتح النموذج وقم بلصق بعض الارقام (اجعل بينها فواصل)..اضغط على زر استيراد الارقام..عملت لك بعض الارقام في NotePad قم بنسخها ولصقها في مربع النص ثم افتح الاستعلام codeM.rar

احسنت استاذنا الغالي برناوي @Barna الشفرة جميلة جدا ..عاشت الايادي

السلام عليكم.. حاول ان تمسح سجلات الرقم 82 واعد الاقتطاع من جديد

مرحبابك استاذ @Ahmed_J هناك اشكالية ادارية في ملفك ...وهو انه ليس بالضرورة ان تكون درجة خبير او معاون مدير عام بالدرجة الاولى انا مثلا ..منذ 3 سنوات في الدرجة الاولى (رئيس مهندسين اقدم)...اما معاون مدير عام فيكون بالتعيين من قبل المسؤول وليس له علاقة بالخدمة رأيي ان يتم اختيار العنوان الوظيفي يدويا من خلال مربع التحرير وحسب الاوامر الادارية وليس برمجيا تحياتي لك

السلام عليكم ...بصراحة لم افهم السؤال جيدا انظر للمثال المرفق ...من خلاله حاول ان توصل الفكرة في المثال...تختار من ال list box ...المصروفات التي تريدها EXPENSES VS PROFIT 2-1.rar

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

البرنامج جميل جدا ..وسأتابع الشرح لاني لا افهم بالمحاسبة على العموم ..ظهرت عندي هذه المشكلة

If DCount("[ID]", "[ADHERENTS]", "[NICHE] ='" & Me.NICHE & "' And NUMERO_REGION =" & Me.NUMERO_REGION & " ") <> 0 Then

حقيقة ...الاستاذ @kkhalifa1960 واخونا @شايب مبدعين رغم اني اصبحت في الاونة الاخيرة من الغازات الخاملة 😂 بسبب ظروف العمل لا يفتى و مالك في المدينة

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

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

ما شاء الله تبارك الرحمن ..كل الافكار جميلة من الاساتذة الافاضل طريقة الاستاذ الفاضل @Foksh بعد اذنه Word.accdb

برنامج جميل ...لكن اين ال chart1 و chart2 لان عند الضغط على التحديث يظهر خطأ كما في الصورة

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

استاذي الكريم @Foksh المفصود هو المدة المتبقية لنهاية العقد من تاريخ هذا اليوم

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

جرب هذه المحاولة ... بالمناسبة ..تاريخ نهاية العقد ان كان داخلا في التنفيذ فيتم اضافة 1 الى عدد الايام في الكود التاريخ.rar

هذا امر يسير ... انا قصدت ان تجرب بعض المدخلات لترى النتيجة

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

اجعل جميع الحقول ... Enable=NO وعند النقر على الكومبوبوكس ... Me.txt1.Enabled = True وهكذا للبقية

ما شاء الله عليك @محمد السيسي و يمكن استخدام .. If Me.text7.Value = DLookup("crn", "Block") Then MsgBox "كود العقار محضور", vbCritical End If

تصميم جميل ..عاشت الايادي