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

من GPT محرك قاعدة البيانات في Microsoft Access (Access Database Engine) هو مكون برمجي يتيح للمطورين التفاعل مع قواعد البيانات التي تستخدم تنسيق Microsoft Access (ملفات .mdb و .accdb) بواسطة لغات البرمجة الأخرى مثل VBA (Visual Basic for Applications) أو C# أو VB.NET وغيرها. وهذا المحرك يمكن أن يكون مفيدًا عندما تحتاج إلى الاتصال بقاعدة بيانات Microsoft Access من خلال تطبيق خارجي أو تنفيذ عمليات استعلام وإدراج بيانات برمجياً. وظائف محرك قاعدة البيانات في Microsoft Access تشمل: 1. **الاتصال بقاعدة البيانات:** يمكنك استخدام المحرك لإنشاء اتصال بقاعدة البيانات من داخل التطبيق الخاص بك. 2. **إنشاء وإدارة الجداول:** يمكنك إنشاء وتعديل الجداول في قاعدة البيانات برمجياً. 3. **تنفيذ استعلامات SQL:** يمكنك استخدام المحرك لتنفيذ استعلامات SQL لاسترجاع البيانات أو تحديثها أو حذفها من قاعدة البيانات. 4. **إدارة البيانات:** يمكنك إدراج بيانات جديدة في الجداول وتحديثها وحذفها برمجياً. 5. **إدارة الفهارس والعلاقات:** يمكنك إنشاء وإدارة الفهارس والعلاقات بين الجداول. 6. **الأمان والصلاحيات:** يمكنك تعيين صلاحيات الوصول والأمان لحماية قاعدة البيانات. 7. **استيراد وتصدير البيانات:** يمكنك استيراد البيانات من مصادر خارجية وتصديرها إلى تنسيقات مختلفة. 8. **تشغيل الاستعلامات المخزَّنة:** يمكنك إنشاء وتنفيذ استعلامات مخزَّنة برمجياً. 9. **دعم للبرمجة بلغات متعددة:** يمكن استخدام محرك قاعدة البيانات Access من خلال لغات برمجة متعددة مثل C#, VB.NET, VBA وغيرها. هذا المحرك مهم لتطوير تطبيقات تستند إلى قاعدة بيانات Microsoft Access وتوفير واجهات برمجية للتفاعل معها بشكل برمجي.

كتعديل في كود الفلتر وعدم الحاجة لكود إلغاء الفلتر يمكن استعمال هذا الكود في حدث تغيير محتوى الخلايا في الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$8" Then Dim LastRow As Long Dim FilterRange As Range LastRow = Me.Cells(Rows.Count, "D").End(xlUp).Row Set FilterRange = Range("C9:U" & LastRow) If Not IsEmpty(Range("D8")) Then FilterRange.AutoFilter Field:=2, Criteria1:=Range("D8").Value Else FilterRange.AutoFilter Field:=2 End If End If End Sub بالتوفيق

السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والرائعة (مكتبة الأكواد الخاصة) :: الإصدار الثالث :: مكتبة عامرة بمئات الأكواد VBA داعمة للمبرمجين وجزء لا يتجزأ من عملهم. تختصر الوقت وتسهل العمل على مصممي البرامج. وهي مكتبة عامة يمكن استخدامها لأي لغات برمجية أخرى . من مميزات المكتبة : - أكثر من 360 كود ودالة في مختلف الفنون والمجالات . - قابلة لحفظ مرفقات مع الكود لدعم التطبيق. - يمكنك إضافة أكوادك الخاصة لتكون مكتبة داعمة لكل مبرمج. - سهلة الاستخدام . تحميل المكتبة : مكتبة الأكواد الخاصة zip.zip ولا تنسوني من صالح دعواتكم 🙂🌹

تفضل اخى @محمد عدنان الملف المرفق يوجد فى Sheet(Day) زر ترحيل الاجازات اضغط وسوف يقوم بالمطلوب ان شاء الله ايضا لاحظت ان تطبع كل جدول فى ورقة مستقلة الكود ايضا يقوم بعمل ذلك كل جدول فى ورقة مستقلة DataBASE.xlsm

السلام عليكم أ. محمد هشام في البداية كل التعازي والمواساة في مصابكم الجليل لك وللشعب المغربي الشقيق نسأل الله العلى القدير أن يتغمد من وافته المنية في هذا الزلزال بعظيم الرحمة والمغفرة وأن ينزلهم منازل الشهداء وأن ينعم ويتم الشفاء على المصابين .. آمين .. أتوجه بالشكر الجزيل على ما قدمته بهذا الصدد وعلى هذا الكود الرائع وعلى شرح محتواه .. دائماً نتعلم منك .. بارك الله فيكم ولكم وكل التحية والاحترام

يارك الله فيكما وجعله في ميزان حسناتكم

حل باستخدام VBA قم بكتابة اسم الموظف الخلية المشار اليها المصنف1.xlsm

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

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

وعليكم السلام اخي الفاضل لم افهم جيدا لسؤالك ولكن هل تقصد هذا الخيار ؟؟؟؟ ملف .... ثم تابع الصور ...

السلام عليكم ... نصيحتي ...تعلم البرمجة اولا وكيفية كتابة الاكواد مهما كانت اللغة ... واترك قضية الحماية لحين ما تسوق برامجك لان من حقك ان يكون برنامجك محمي تحياتي

علك تجد ضالتك هنا أخونا الفاضل هنا

اشرح لي نظريا كيف نطبق هذا الشرط ؟ من اختار من المعلمين ؟ ومن اختار من الطلاب -------------------------------------------- اذا اخترت معلمي اااالرياض وجميع الطلاب ما عدا طلاب الرياض سيأخذ معلمي الرياض جميع الطلاب من المدن المعروضة هنا .. لا نصيب للمعلمين الآخرين من الطلاب ------------------------------------------------------------------- اذا اخترت جميع المعلمين واستثنيت طلاب مدينة معينة .. سيبقى هؤلاء الطلاب خارج التوزيع --------------------------------- العملية غير منضبطة ... على كل حال تم الغاء اختيار المدينة وتم التوزيع بناء على المجموعة فقط ايضا اظهار مجموع عدد الحصص الكلي ( الايام ) يجب ملاحظة التالي : المفترض لكل معلم 20 حصة خلال الشهر ولكن في مجموع الحصص ستلاحظ نقص في عدد الحصص والسبب جاء من ان بعض المعلمين مجاز مجاز في بعض الايام لم اتمكن من فرض كلي في اختلاف المدينة بين المعلم والطالب .. ولكن ستجد توافق لمرة واحدة احيانا ( تعدل يدويا ان اردت) جرب على المجموعة D فهي المنضبطة في عدد المعلمين وايامهم اما بقية المجموعات فيوجد فرق بين عدد المعلمين وعدد ايامهم هذه محاولة قابلة للتطوير لمن اراد المساعدة من احبتنا واخوتنا هنا توزيع الطلاب على ايام الدورة2.rar

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي قم بافراغ اليوزرفورم من جميع الاكواد واستبدالها بالاكواد التالية Private Sub TextBox1_Change() If Me.TextBox1.Text = "" Then Me.ListBox1.Visible = False For I = 2 To 5 Controls("textbox" & I).Text = "" Next I Else Me.ListBox1.Visible = True Me.ListBox1.Clear '------------------------------ Dim lrw Set W = Sheet1 lrw = W.Cells(Rows.Count, 1).End(xlUp).Row l = 0 For Each c In Range("A3:A" & lrw) If c Like TextBox1.Text & "*" Then ListBox1.AddItem ListBox1.List(l, 0) = Cells(c.Row, 1).Value l = l + 1 End If Next c End If End Sub Private Sub ListBox1_Click() Dim sh1 As Worksheet Dim f As Range Set sh1 = Sheet1 lrw = sh1.Cells(Rows.Count, 1).End(xlUp).Row Set f = sh1.Range("A3:A" & lrw).Find(ListBox1.Value, , xlValues, xlWhole, , , False) If Not f Is Nothing Then TextBox1.Value = sh1.Range("A" & f.Row).Value TextBox2.Value = sh1.Range("B" & f.Row).Value TextBox3.Value = sh1.Range("C" & f.Row).Value TextBox4.Value = sh1.Range("d" & f.Row).Value TextBox5.Value = sh1.Range("E" & f.Row).Value End If Me.ListBox1.Visible = False End Sub Private Sub UserForm_Initialize() Me.TextBox1.SetFocus End Sub Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Not iGblInhibitTextBoxEvents Then TextBox1.Value = "" End If End Sub سؤال مهم فى البحث للبرمجة officena 2024_2.xlsm

وعليكم السلام تفضل اخى جرب الملف التالى FilterData.xlsm

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

السلام عليكم ورحمة الله وبركاتة كلنا نعرف دالة الاكسيل المشهورة ( VLOOKUP ) التى تبحث فى العمود الاول فقط من جدول وتستخرج النتيجة من عمود اخر دالتنا اليوم واسمها ( VLOOKAnyCol ) هى مثل دالة الاكسيل المشهورة ( VLOOKUP ) تماما وتمتاز عنها بعدم اشتراط البحث فى العمود الاول فقط فهى تبحث فى اى عمود ولا يشترط ان يكون العمود الاول وتستخرج النتيجة من عمود اخر - ولا تشترط ترتيب جدول البيانات وهى طبعا عربية بأيدى عربية شرح وبناء دالة ( VLOOKAnyCol ) :: دالة VLOOKAnyCol لها اربع مدخلات او باراميترات هم على التوالى :: جدول_البيانات / قيمة_البحث / عمود_البحث / عمود_النتيجة المدخل الأول :: جدول_البيانات :: جدول المعلومات الذي يتم البحث فيه عن البيانات ( قيمة_البحث ) فى اى عمود منه استخدم أحد المراجع لأحد النطاقات أو أحد أسماء النطاقات، مثل MyRng المدخل الثانى :: قيمة_البحث :: القيمة التي سيتم البحث عنها في العمود الذى تحدده ب ( عمود_البحث ) من جدول_البيانات يمكن أن تكون قيمة_البحث قيمة أو مرجع أو سلسلة نصية المدخل الثالث :: عمود_البحث :: هو رقم عمود الجدول الذى سيتم البحث فيه عن قيمة_البحث من جدول_البيانات المدخل الرابع :: عمود_النتيجة :: هو رقم عمود الجدول الذى سيتم استخراج النتيجة منه المقابلة ل قيمة_البحث والى لقاء قريب بإذن الله فى سلسلة الدوال العربية بالمرفقات الشرح مع مثال : VLOOKAnyCol.rar المرفق التالى عبارة عن ملف قيديو يبين كيفية نقل كود الدالة الى ملقك لتعمل الدالة به Omar_1.rar

أخى الزيارى

وعليكم السلام أخي سليم حاصبيا أعجبني حدسك في الموضوع، والمشاركة تدل على قوة احترافك في المعادلات، أما بالنسبة للعمود الذي يكون فيه المادة الأولى فارغة فإنه يعطي نتيجة #value> واسمحلي أن أقتبس منك المشاركة للتعديل ولتقليل طول المعادلات وعددها كما في المرفق التالي: dynamic column salim.rar

السلام عليكم موضوع رائع اخي الزباري و لكن هل تسمح لي بإضافة بسيطة؟ انظر الى الملف المرفق dynamic column salim.rar

السلام عليكم ورحمة الله وبركاته من بعد اذن حضرتكم هذا الحل للملف كاملا بشكل ديناميكي وتلقائي ويمكنه معالجة موضوع حساب دقائق التأخير أرجو من الله أن يكون هذا طلبك أخي طبعا يجب مراعاة أن تكون أسماء الصفحات نفسها الأسماء الموجودة في رؤوس الأعمدة لكي يتم الأمر بشكل تلقائي ولا نحتاج لكتابة المعادلة في كل مرة لصفحة تقبلوا تحياتي جدول متابعة الموظفين 2014 م الجديد b f.zip

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