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

عذرا اساتذتي الأفاضل ارجو تنبيه السائل أن الاصدار 2021 يعمل على ويندوز 10 ومافوق ونفس الأمر الاوفس 2019 طبعا اساتذتي الذين سبقوني بالرد هم الادراى والاعلم بهذه الامور لكن إن كنت تريد نصيحتي انصحك بأوفس 2016 نوع 32 بت لعدة أسباب منها: - أنه يعمل على جميع اصدارات ويندوز .. ابتدائاً من ويندوز 7 ومافوق - حسب ما ذكرة استاذنا الكبير جعفر @jjafferr الغالي على قلوبنا في مقاله سابقه بخصوص نوع النسخة المناسبة .. فقد ذكر أن شركة مايكروسفت تنصح بنسخة نوع 32 بت هذا والله اعلم

وعليكم السلام ورحمة الله وبركاته لطباعة الصفحة الاولى فقط من جميع الأوراق في الملف جرب الكود: Sub Print1() Dim WS As Worksheet For Each WS In ActiveWorkbook.Sheets WS.PrintOut From:=1, To:=1 Next End Sub

القديمة جدا الاقدم من 2003 تقريبا بعضها لا تعمل للاسف لا يمكن اعتقد لا ولكن الـ 64 بت افضل حسب رأى الشخصى المتواضع Microsoft Office LTSC Professional Plus 2021 Version 2108 (Build 14332.20435) الافضل

السلام عليكم ورحمة الله جرب المرفق لعلك تجد فيه ما تريد.... نتائج الموسم الاول11.xlsx

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

السلام عليكم ورحمة الله وبركاتة سؤال جميل واجابة اروع من رائعة تخياتي

ما شاء الله، رد كاف وواف، أشكرك كثيرا على تفضلكم. تحياتي لكم

مساهمة إضافية بعد مساهمة أستاذنا @ابو جودي وبعد إذنه Private Sub AddNewDates() Dim rst As Recordset Dim iDate As Long Set rst = CurrentDb.OpenRecordset("tblDay", dbopendynaset) For iDate = CLng(Me.txtFirstDate) To CLng(Me.txtLastDate) If IsNull(DLookup("DayDate", "tblDay", "Clng(DayDate)=" & iDate)) Then If Weekday(iDate, vbSunday) < vbFriday Then If IsNull(DLookup("HolidayDate", "tblHolidays", "Clng(HolidayDate)=" & iDate)) Then With rst .AddNew !DayDate = iDate .Update End With End If End If End If Next iDate Set rst = Nothing MsgBox "Done" End Sub

السلام عليكم ان شاء الله هذا طلبك تفضل Classeur1.xlsm

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

السلام عليكم أنا توقف بي الزمن عند نسخة 2007 والبسبب انها لم تعد "لغتي" الأولى كما السابق، فما النسخة البديلة التي تنصحوني بها حسب تجاربكم. علما أن عندي كثير من برامجي الخاصة المصممة بنسخة 2007 وقبلها ولا أريد أن أخسرها ولا أريد أن أشغل نفسي في تحديثها. فهل هناك عوائق غير مسألة اختلاف "النواة" 32 أو 64 بت؟ والسؤال الآخر هل أستطيع تركيب نسخة أخرى مع وجود/بقاء النسخة القديمة كما كنا نفعل سابقا؟ أم أن النسخ الجديدة تستطيع فتح جميع النسخ القديمة بدون تعديل؟.

السلام عليكم ورحمة الله وبركاته السادة أساتذة وعمالقة الإكسيل الكرام الجدول مفترض المستهدف المحقق النسبة ١٠٠٠٠٠٠ ٨٠٠٠٠٠ ٨٠% بفرض أن مبلغ العمولة الذي سيحصل عليه المندوب ٤٠٠٠ جنيه عايز معادلة تحسب النسب الأتية من مبلغ العمولة المذكور : أولا: عند تحقيق أقل من 60 % من المستهدف يحصل على 0 % من العمولة ثانيا : عند تحقيق بداية من 60 % من المستهدف وحتى 84 % يحصل على نفس النسبة المحققة من العمولة ثالثا : عند تحقيق بداية من 85 % من المستهدف وحتى 90 % يحصل على 95 % من العمولة رابعا : عند تحقيق بداية من 91 % من المستهدف يحصل على 100 % من العمولة خامسا : عند تحقيق نسبة 101 % من المستهدف يحصل على 110 % من العمولة سادسا : عند تحقيق نسبة 111 % فيما فوق من المستهدف يحصل على 125 % من العمولة ( ودي أقصي نسبة سيحصل عليها المندوب ) ولسيادتكم خالص الشكر والتقدير

جرب مثال الأستاذ أكسسنا بعد التصرف بإضافة حدث عند التغيير حسب طلبك كبير وتصغيرمربع النص_02.mdb

وعليكم السلام ورحمه الله وبركاته اخى محمد جرب المرفق فيه 2 استعلام وكل واحد بطريقه تقبل تحياتى Daynamic Gnrate Date.mdb

لزيادة الفائدة كود.xls

استخدم هذا الإجراء بدلا من الأصل (من جلب الأستاذ جعفر) ولن تشاهد هذه المشكلة مرة أخرى. Sub mySendKeys(String_ As String, Optional Wait As Boolean = False) Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys String_, Wait Set WshShell = Nothing End Sub

السلام عليكم ورحمة الله وبركاته ممكن تجرب الكود Application.WorksheetFunction.Text(now(),"yy")&"/01/01"

ربما Classeur1.xlsm

أخى الحبيب مهندس / محمد الغالى دايما سباق بالخير ربنا يبارك فى حضرتك يا رب سيتم المراجعة وإبلاغ حضرتك

السلام عليكم 🙂 اعتقد السؤال الاصح هو: الاكسس الافضل اليوم 🙂 في هذا الرابط تم نقاش معظم النقاط في موضوعك ، وفيه رابط آخر لتكملة النقاش : . وختاما ، هذا ما قاله اخي خالد @مبرمج متقاعد : . في كمبيوتري الجديد اتمنى ان يكون آخر اصدار الوندوز بنواة 64بت ، والاوفيس Microsoft 365 نواة 64بت 🙂 اذا لم تستعمل الازرار والاشكال الجديدة في النسخة الحديثة من الوندوز الاكسس ، فأعتقد بإمكان برنامجك العمل على معظم نسخ accdb 🙂 جعفر

يا هلا والله كود ولا أروع افضل واسرع جزاكم الله خيــــــــــــرا

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

اولا فى ظل تقدم تكنولجيا الحواسيب والمعلومات وايقاف الدعم من ميكروسوفت لويندوز7 هجرع الكثيرون ثانيا تصحيح صغير ببعض الحيل يمكن تنصيبع على ويندوز 7 وقنت بذلك قبل فترة لاستاذ @ابوبسمله تقريبا لوم لم تخوننى الذكرة للعلم إن أردت المقارنة حقا بين الاصدارات 2010 اسرع وأكثر أستقرار من 2013 و 2016 و 2019 2021 تقريبا ابطئ قليلا بدرحة غير ملحوظة من 2010 لكنه أكثر إستقرار لو أردت الإحتيار لا تخرج عن 2010 , 2021 ملاحظة الأكسس 64 بت أسرع من 32 سواء استخدمت قاعدة البيانات على جهاز منفردا بنفسه أو عبر الشبكة المحلية وتتم ملاحظة الفرق بدرحة كبيرة جدا لو ان تتعامل مع هارد SSD or MM2 طيب للعلم كذلك قبل سبتمبر 2018 ، أوصت Microsoft بالإصدار 32 بت كتثبيت افتراضي لـ Access ، إلى جانب برامج 32 بت الأخرى من Office. في الوقت الحاضر ، يعد الإصدار 64 بت هو الافتراضي الموصى به ، كما هو الحال بالنسبة لجميع برامج Microsoft 365 الخاصة بهم وأعتقد استاذى الجليل ومعلمى القدير و والدى الاستاذ @jjafferr قد تطرق الى تلك الجزئية وأوضحها بعد ذلك الوصول و SQL Server أحد الأسباب التي تجعلك مضطرًا للذهاب إلى 64 بت Access هو أن قاعدة البيانات الخاصة بك بها نهاية خلفية لـ SQL Server والجداول الموجودة في تلك النهاية الخلفية تحتوي على حقول من نوع بيانات bigint. تم تجهيز إصدارات 64 بت من Access ، بدءًا من الإصدار 2007 ، بنوع بيانات رقم أكبر ، مما يوفر التوافق المطلوب. لا يمكن أن تدعم إصدارات 32 بت من Access نوع بيانات "الرقم الكبير". هذه بعض الاعتبارات الخاصة بترقية الكمبيوتر من 32 إلى 64 بت Access: هل تفي أجهزة الكمبيوتر بالحد الأدنى من المتطلبات لنظام التشغيل Windows 64 بت و 64 بت من Office 365؟ دون الخوض في التفاصيل ، فإن الحد الأدنى من المتطلبات هو معالج أسرع من 1.6 جيجا هرتز ، و 4 جيجا بايت من ذاكرة الوصول العشوائي ، و 4 جيجا بايت مساحة خالية على القرص الصلب وشاشة بدقة 1280 × 768. راجع https://products.office.com/en-gb/office-system-requirements هل الكمبيوتر مزود بنظام Windows 64 بت؟ (لا يمكنك تثبيت Office 365 64 بت على جهاز كمبيوتر يعمل بنظام Windows 32 بت) لا يمكنك مزج 32 بت و 64 بت Access على نفس الكمبيوتر إذا كنت تنوي تشغيل قاعدة بيانات متعددة المستخدمين على أجهزة كمبيوتر بمزيج من 32 بت و 64 بت Access فهناك اعتبارات إضافية قد تحتاج إلى القيام بها عند التعامل فقط مع دوال API لتوافر العمل على كلا النظامين مكاسب في الأداء مع 64 بت الآراء المعبر عنها على الويب حول مكاسب الأداء المنسوبة فقط إلى ترقية تطبيقات 32 بت إلى 64 بت من المستخدمين منقسمة ولكن الأغلب يفضل التعامل مع 64

شكرا لكم ، لم أنتبه لهذه النقطة. يمكن الكثير لا يعرف الفرق بين النواتين ، ومن حفظي 🙂 الفرق هو فقط نطاق تخزين البيانات ، فأعتقد الـ 32 بت فيها الكفاية للاستخدام الشخصي وللشركات حتى المتوسطة وتترك الـ 64 بت للشركات الكبيرة وللبيانات الضخمة. إن شاء الله تكون معلومتي صحيحة.

ربما هذه المشاركة فيها الحل

لنفرض المعادلة في الخلية A1 فيكون الكود Range("A1").Select ActiveCell.FormulaR1C1 = "=DATE(YEAR(TODAY()),1,1)" ملف به الكود كود.xls

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

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

وهذا برنامج أقساط مبسط جدا .. كان عبارة عن تمرين استرجاع مهارات وقتها وتحدي مع أحد الإخوة الأعزاء 😊 برنامج الأقساط - موسى.rar

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Private Sub UserForm_Initialize() Me.ListBox1.List = [liste].Value End Sub ''''''''''''''''''''''''''''''''''''''''' Private Sub TxtSearch_Change() Me.ListBox1.Clear i = 0 For Each c In Application.Index([liste], , 1) If UCase(c) Like UCase(Me.TxtSearch) & "*" Then Me.ListBox1.AddItem Me.ListBox1.List(i, 0) = c.Value i = i + 1 End If Next c End Sub اسماء العاملين.xlsm

اتفضلى استبدلى الكود تبعك بهذا الكود Dim iDate As Date Dim strSQL As String Dim isHoliday As Integer For iDate = Me.txtFirstDate To Me.txtLastDate If Format(iDate, "w") = 1 Or Format(iDate, "w") = 2 Or Format(iDate, "w") = 3 Or Format(iDate, "w") = 4 Or Format(iDate, "w") = 5 Then isHoliday = DCount("*", "tblHolidays", "HolidayDate = " & Format(iDate, "\#mm\/dd\/yyyy\#")) If isHoliday <= 0 Then strSQL = "INSERT INTO tblDay" strSQL = strSQL & " ( DayDate )" strSQL = strSQL & " SELECT " strSQL = strSQL & " '" & iDate & "';" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End If End If Next iDate شرح التعديل تم الاعلان عن متغير رقمى isHoliday تم اضافة دالة المجال dcount من جدول الاعياد tblHolidays فى حالة ان تاريخ العيد او العطلة الرسمية يساوى قيمة المتغير iDate والذى يتم اسناد تورايخ البدء والانتهاء للحلقة التكرارية اليه وفى حالة ان القيمة العددية للمتغير isHoliday =0 اى انه لا يوجد اى تاريخ لاى عطلة فى الجدول مسبقا تتساوى مع التاريخ الحالى فى حلقة التكرار وفى هذه الحالة باستخدام قاعدة IF يتم الحاق التاريخ الى الجدول tblDay طبعا ان كانت القيمة العددية للمتغير isHoliday >0 هذا معناه ان ان التاريخ الحالى فى الحلقة يتساوى مع احد التواريخ فى جدول الاعياد tblHolidays وسوف يتم تجاهل الالحاق لهذا التاريخ وتستمر الحلقة حتى تنتهى من عملها الفكرة أعجبتنى جدا وأكثر ما أعجبنى طريقة أستاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr فى كتابة استعلام الالحاق داخل محرر الأكواد تم رفع المرفق بعد التعديل للكود .. مثال-(2).mdb

🤐

السلام عليكم ورحمه الله وبركاته مشاركه مع الاستاذ @kkhalifa1960 جزاه الله خيرا وعلى قد فهمى المرفق الاول حسب الطلب فى اول المنشور انظر الاستعلام 551 المرفق الثانى على حسب تعديلاتك للاستعلام الجدولى انظر الاستعلام qryTotal ان شاء الله يكون ما تريد تقبلوا تحياتى وبالتوفيق طلب المساعدة_1.accdb طلب المساعدة_2.accdb

الموقع فتح معي وانا في العراق.. بصراحة الموقع خرافي..يحتاجه كل طالب علم مثلي

أحي الموضوع أخذ وقت وجهد بسب ( query Crosstab) لكن :- 1- تم غمل جدول (tbl_552) 2-تم غمل استعلام جدولي مرتبط (tbl_552)......(qry_552) وبعد تشغيله يصنع (tbl_552) وبه القيم الفارغة بــ 0 (صفر) وذلك لنتمكن من الجمع بعد ذلك 3- تم عمل استعلام (Query_552) وانشأنا به حقل جديد به الجمع (dd) ثم نذهب للتقرير وربطناه به 4- شغل التقرير وبتحصل مبتغاك طلب المساعدة3.rar

وهذا ملفك بعد تعديل الكود ليظهر النتيجة في رسالة : 🙂 الملف الجديد.rar

مبدئيا تجربة توزيع الطلاب على عدد المدرجات فى انتظار ابداء الرأى لنرى ما بعد ذلك split students.accdb

جرب هذا الحل If Len([TextBox1].Text) > 145 Then Exit Sub If Len([TextBox1].Text) > 111 Then [TextBox1].Width = 55 * Len([TextBox1].Text) End If الشرح اذا كان في النموذج يجب ان تستخدم Text للتركيز على المدخلات على الحقل و يكون الشرط اذا تجاز عدد الحروف المدخلة عن 111 حرف سيتم توسيع مربع النص بالعرض Width و حتى ان يصل عدد الحروف الى 145 حرف سوف يتوف النمو العرض و سيتم بالنمو الطولي هذه الفكرة بإختصار