نجوم المشاركات

تفضل أخي @حامل المسك هذه التجربة البسيطة .. بدون أيام الإجازة.accdb

ارفع ملف اتفضل هذا ملف من عندي عملته لك على السريع Test.rar

Selection.End(xlDown).Offset(1, 0).Select جرب هذا

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

وعليكم السلام ورحمة الله تعالى وبركاته بعد ادن الاستاد محمد صالح اليك حلول اخرى =INDEX($B$2:$D$6, MATCH(A10,$A$2:$A$6,0), MATCH(B10, $B$1:$D$1, 0)) او =HLOOKUP(I12,$H$1:$K$6,MATCH(H12,$H$1:$H$6,0),0) اوفيسنا.xlsx

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

السلام عليكم و رحمة الله استخدم هذه الدالة المعرفة عليك بتحديد الصف الاول الذى سوف يتم جمعه Rng و من ثم استخراج النسبة المحددة و السحب لاسفل Function AllPerc(Rng As Range) As Double Dim x As Integer, y x = WorksheetFunction.Sum(Rng.Value) If x >= 8001 Then: y = x * 0.045 '-------------------- ElseIf x >= 7501 Then: y = x * 0.0425 '-------------------- ElseIf x >= 7001 Then: y = x * 0.0375 '-------------------- ElseIf x >= 6001 Then: y = x * 0.03 '-------------------- ElseIf x >= 5501 Then: y = x * 0.025 '-------------------- ElseIf x >= 5001 Then: y = x * 0.0175 '-------------------- ElseIf x >= 4501 Then: y = x * 0.015 '-------------------- ElseIf x >= 4001 Then: y = x * 0.01 '-------------------- ElseIf x >= 3001 Then: y = x * 0.005 '-------------------- Else y = 0 End If AllPerc = y End Function

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

شكرا جدا لحضرتك جزاك الله كل خير

تفضلى بالتوفيق Private Sub Command0_Click() ' زر "Yes" - للطباعة Dim response As VbMsgBoxResult Dim patientName As String ' احصل على اسم المريض من النموذج patientName = Me![اسم_المريض] ' قم بعرض رسالة التأكيد مع اسم المريض response = MsgBox("هل تريد طباعة التقرير للمريض: " & patientName & "؟", vbYesNoCancel + vbQuestion, "تأكيد") Select Case response Case vbYes ' طباعة التقرير DoCmd.OpenReport "اسم_التقرير", acViewNormal Case vbNo ' معاينة التقرير DoCmd.OpenReport "اسم_التقرير", acViewPreview Case vbCancel ' إلغاء العملية MsgBox "تم إلغاء العملية.", vbInformation, "إلغاء" End Select End Sub

ان كنت تحتاجها في الاستعلام ...جرب المرفق بدون أيام الإجازة.rar

مشاركة مع اخي @Foksh المفروض اذا اضفت 7 ايام الى تاريخ 16/11/2023 تكون نهاية العمل بتاريخ 26/11/2023 (داخل) اي نهاية الدوام الرسمي اما اذا اردت ان يكون التاريخ 27/11/2023 ..اضف يوم الى هذا السطر daysNumber = Me.daysNumber.Value +1 بدون أيام الإجازة.accdb

تفضل BASET5.rar

اخى الفاضل سامر محمود ربما تكون المكتبة مش مرتبة ابجدى انزل بالمؤشر لأسفل الجدول سوف تجدها ان شاء الله

اسف المثال الاول لم يتم التعديل عليه سهوًا منى جرب المثال الثانى المرفوع معه الصورة

انظر هذا هو المثال الذى رفعته New Microsoft Access Database2.accdb

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

السلام عليكم اخى الفاضل سامر محمود اختار المكتبة كما قال لك الاستاذ عمر لقد اختارتها فى المثال الذى رفعته بعد اذن الاستاذ عمر ضاحى جرب المثال ارجو التوفيق والسداد New Microsoft Access Database2.accdb

جرب الملف ال رفعته لك

أولاً أخي الكريم هناك طرق كثيرة لفكرة القوائم الفرعية ، و واحدة منها ذكرها الأخ @murady ، ثانياً ارفق ملف ليسهل على الإخوة المساعدة.

بسيطة ولا يهمك

تفضل اخي محاولتي ، ووافني بالرد . جدول عام-1.rar

فى اعدادات النظام تحقق من التلى لك تحتار عربي مصر او السعودية زي ما تحب

يعمل عندي طبيعي ......

اخى الفاضل sm44ms اليك مشاركة اعتقد انها سوف تفيدك ان شاء الله ارجو لك التوفيق وتمام السداد واليك هذه المشاركة ايضا انها تخص القوائم اتمنى لك التوفيق

السلام عليكم الاستاذ الفاضل gavan لعل هذا ما تريد على حسب فهمى من حضرتك المشكلة انك لم تعرف المتغير وتصرح عنه فى الفورم الثانى ارجو لك التوفيق والسداد الحد من رسائل الاكسس المزعجة 2.rar

إرفاقك للملف يوفر على من يساعدك تصميم ملف يشبه هذا الوضع على العموم يمكنك تجربة التالي =VLOOKUP(A10, $A$2:$D$6, MATCH(B10, $A$1:$D$1,0)) على اعتبار أن البيانات في الصف الأول والاستعلام في الصف العاشر بالتوفيق

أخي وضح طلبك أكثر. هل اسم الشيت الذي سيتم إدخاله هو اسم الشيت المراد نسخه او هو الاسم المفروض تسمية الأوراق الجديدة به. هل تريد انشاء أوراق جديدة باسم الخلايا التي تم تحديدها او انشاء نسخة من ورقة معينة !!!!!

مع إني متابع من بعيد ، إلا أنني لا أرى أنه من الصواب التعديل على الأوقات كون البرنامج وظيفته تسجيل الحضور والانصراف للموظفين ، فما المنطقية في ذلك ؟؟

المعادلة الحالية لا تعمل عندي إن شاء الله تفيدك هذه المعادلة وتراعي رقم الشهر التالي =INDEX($E$8:$E$19,MATCH(MONTH(EDATE(F3,IF(DAY(F3)<=20,0, 1))),$I$8:$I$19,0)) بالتوفيق

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

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

تفضل أخي حسب مافهمت من طلبك ووافني بالرد . BASET-1.rar