Eng.Qassim

عمل جميل استاذ @Foksh لكنه لايحدث ان كان المعرف ترقيم تلقائي

في البداية كان سؤالك هكذا !! وهذا ما عملت عليه... referenceNo يتغير حسب اسم المشروع ويبدأ بالعد من جديد في بداية السنة الجديدة

بالتأكيد.. في استعلام mtb1 ...اعمل المعيار تحت الحقل ts هكذا: <=[Forms]![Form1]![txtP]

عودا حميدا استاذ جعفر @jjafferr رمضان مبارك وكل عام وانت بخير

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

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

وعليكم السلام اخ رعد اضافة لما تفضل به الاستاذ الفاضل @kkhalifa1960 المفروض معرفة المتبقي من القسط قبل ادخال مبلغ التسديد..مع ذلك ان اخطأ المستخدم في الرقم سوف تظهر له رسالة تنبيه طبعا نسيت تحديث المبلغ الواصل بعد ادخال مبلغ التسديد ...الموضوع يسير تسديدات الافراد.rar

السلام عليكم... اضافة لما تفضل به الاستاذ @Foksh لديك طريقتان : 1- تجعل خاصية popup =نعم و خاصية Modal =نعم ..بالنسبة للتقرير 2- تضع في زر فتح التقرير في النموذج السطر التالي: Docmd.Openreport "YourReport", acViewPreview, WindowMode:=acDialog

السلام عليكم.. بعد اذن اخي الاستاذ @kkhalifa1960 وضعت لك موديول يقوم بأستخلاص الارقام من الاحرف ...عسى ان يكون هذا طلبك DDTextToNumber.rar

المفروض ان صاحب الاجابة الصحيحة هو استاذنا الفاضل @Foksh فانا لم اعمل شيئا غير استبدال الفارزة المنقوطة تحياتي و رمضان كريم للجميع

السلام عليكم.. استاذ احمد...لماذا لا تعتمد سنوات الخدمة في احتساب الراتب عملت لك هذه الشفرة ..وهي شغالة بالنسبة (للبكلوريوس) لانها تبدأ من الدرجة السابعة فقط مرر سنوات الخدمة عبر 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