Moosak

ليس دائما .. في أغلب الأحيان النتيجة تعتمد على كيفية كتابتك للسؤال أو الطلب .. وأحيانا بسبب أن الموضوع معقد بالنسبة للأكسس أو يعتمد على مكتبات خارجية .. وفي كثير من الأحيان يعطيك أكواد متقنة 🙂

تفضل 🙂 Database31.accdb

طيب يا عم @ابو جودي الجميل .. 🙂 .. السؤال الأهم كان هو ذا 😁☝ إجابتك على هذا السؤال أهم من السؤال السابق 😄🌼

وعليكم السلام ورحمة الله وبركاته .. 🙂 الطرق كثييييييييييييييرة جدا .. الأفضل أن ترفق ملفك الخاص للتطبيق عليه مباشرة .. 👍

حبيبنا @ابو جودي شكرا لك على هذا التنبيه .. 🙂🌹 ولزيادة الإفادة : كيف تستخدم جمل SQL كمصدر لحقل غير منظم في النموذج ؟ ..... أو كحقل محسوب في الاستعلام ؟ أليست دوال DLookup وأخواتها عبارة عن جمل SQL مبسطة على شكل Function في الواقع ؟

تشريف من صاحب الأفكار العبقرية المجنونة .. والعقلية الفذة 😊🌹 روووح ياشيخ ربنا يفتحلك أبواب العلوم والأرزاق 😇🤲🏼 ومن ثم أيه المكتبة المعمورة دي مش عارفها 🙃😁✌

في نفس المكان أكتب : 50 and 80 مع الأخذ في الإعتبار نصيحة شايبنا الكريم @شايب 🙂

ضع هذا السطر أول الأوامر في زر الحذف : If Me.Admin = true Then Exit Sub 🙂

شكرا لك دكتور جمال 🙂 هدية مقبولة ، وبرنامج شامل ، فيه الكثير من الفوائد 🌹🌷

كل عام وأنت بخير أختي صفاء 🙂 🌷

أرى أن جبهات أخرى فتحت .. 😅 .. الفرار .. الفرار لا تستعجلوا الحكم 😅😎✋🏻

أما أنا الفكرة ضربت في راسي وسنبدأها إن شاء الله .. خليك مستعد 😏💪🏻

الحبيب والرفيق الجميل @ابو جودي 😊 دخلتني في منافسة أنا غير مستعد لها .. وجئتني على حين غرة 😂 لااااااااااا .. وبعد أنت الحكم !!! 😜 ولكن أيش رايك تعمل لنا منافسة شريفة وتفتح موضوع منفصل يكون فيه تحدي معين .. ومدة تنفيذ محددة ( علشان يمدينا نذاكر كويس 😁 ) ويكون عمنا @ابوخليل هو الحكم 😎؟؟ قلت أيييييييييييه ؟؟ 😏

هاك الجواب يا سيدي 🙂 : Public Function GetTableNameFromComboBox(cbo As ComboBox) As String On Error Resume Next Dim strTableName As String, x As Integer, y As String Dim ctl As Control Set ctl = cbo If Not ctl.RowSourceType = "" And Not ctl.RowSource Like "SELECT*" Then Exit Function End If If ctl.RowSourceType = "Table/Query" Then strTableName = Mid(ctl.RowSource, InStr(ctl.RowSource, "FROM ") + 5) For x = 1 To Len(strTableName) If Mid(strTableName, x, 1) = ";" Or Mid(strTableName, x, 1) = " " Then GoTo NextStep y = y & Mid(strTableName, x, 1) Next NextStep: strTableName = y ElseIf ctl.RowSourceType = "Value List" Then strTableName = "Value List" End If GetTableNameFromComboBox = strTableName End Function DataUp1.rar

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

أسأل الله العظيم لك طول العمر مع حسن العمل مع سلامة البدن يارب 🙂 تفضل عمي @ابوخليل استخدمت هذه الدالة لاستخراج اسم الجدول من جملة ال SQL : Function ExtractTableNameFromSQL(strSQL As String) As String Dim strTableName As String ' استخرج اسم الجدول من الجملة SQL strTableName = Mid(strSQL, InStr(strSQL, "FROM ") + 5) ' يتم استخراج الجزء بعد الكلمة "FROM" strTableName = Left(strTableName, InStr(strTableName, ";") - 1) ' يتم استخراج الجزء قبل الفاصلة المنقوطة ' اعرض اسم الجدول ExtractTableNameFromSQL = strTableName End Function DatabaseUp8.rar

وعليكم السلام ورحمة الله وبركاته.. ما شاء الله تبارك الرحمن .. 🌹🌷 شغل معلمين يحتاجله 10 سطل قهوة عشان تجيب كل التركيز اللي في العالم لراسك 😅👌 هدخله المكتبه ازاي ده ؟؟!!! 😂 شكر لك باش مهندس ومنتظرين التكملة 👍🏼😊

كفو عليك عمي أبو خليل .. 😊🌼🌹 أيش رايك تعلمنا كيف نصيدها .. بدل ما ناكلها جاهزة 😁😅🖐🏻🌼

وعليكم السلام ورحمة الله وبركاته.. ضع مربعي نص في النموذج (من) (إلى) استخدم استعلام وضع تحت حقل ال ID المعيار : Between Forms!FormName!TextBoxFrom and Forms!FormName!TextBoxTo بحيث يكون التقرير يأخذ بياناته من نفس الاستعلام.

وعليكم السلام ورحمة الله وبركاته أخي @ابو عبد الله العراقي 🙂 ضع هذا الكود على زر [ التالي ] ليخبرك عندما تصل إلى نهاية السجلات : Private Sub cmdNext_Click() If Me.CurrentRecord < Me.Recordset.RecordCount Then DoCmd.GoToRecord , , acNext Else MsgBox "لقد وصلت إلى نهاية السجلات" End If End Sub وضع هذا الكود على زر [ السابق ] ليخبرك عندما تصل إلى بداية السجلات : Private Sub cmdPrevious_Click() If Me.CurrentRecord > 1 Then DoCmd.GoToRecord , , acPrevious Else MsgBox "لقد وصلت لبداية السجلات" End If End Sub

كلمات كلها راحة نفسية وطمأنينة وتشرح الصدر 😄🌹🌹🌼 أجاب الله دعواتك حبيبنا الغالي ورزقك أمثالها أضعافا مضاعفة 😊🤲 وأنا شخصيا هذه الأداة تعتبر من الأساسيات عندي والتي لا أستغني عنها 🙂

شكرا لكم يا مبدعين.. 🙂🌷

برنامج مرتب وتصميم جميل ماشاء الله 🙂 فقط عندي بعض الملاحظات : 1- بالنسبة للتعليمات أعلاه أقترح عليك أن تضبطها بنفسك قبل تسليمها للمستخدم النهائي .. ويفضل أن تقوم بتحزيم البرنامج بأحد برامج التحزيم .. ومن ضمن الأشياء التي تعدها أيقونة البرنامج في سطح المكتب .. 🙂 2- عند إغلاق الشاشة الرئيسية تبقى شاشة الأكسس مفتوحة في الخلف وجميع عناصر البرنامج مشرعة للمستخدم ( يفضل إغلاقها بعد إغلاق آخر نموذج ) .. 3 - جميلة فكرة الأيقونات خارج البرنامج ولو أني أقترح عليك تضمينها في البرنامج لأنها لا تستهلك من حجم البرنامج إلا الشيء اليسير ، أما الصور التي تضعها في الخارج فهي المرفقات المصاحبة للسجلات المتزايدة فهي التي ينصح بإخراجها .. ولكن لو أردت إبقائها خارج البرنامج فأنصحك بجمعها في مجلد خاص بها بجانب البرنامج ولا تبقى مبعثرة بهذا الشكل 🙂

يسلم بؤك مهندسنا الغالي .. 😊🌹 مكتباتنا عااااااااامرة بإبداعاتك .. دي نقطة فبحركم 😅 أتفق معاك تماماً سيدي الفاضل .. 👍🙂 الأصل أن الشخص يتعلم الأساسيات ثم يستخدم الأداة بعدها .. أو يستخدمها ليتعلم منها 😏👌 ومن ضمن الأهداف النبيلة لوجود مثل هذه الأداة تسريع العمل واختصار الوقت حتى مع وجود الخبرة 🙂 وياليتك تيجي تشوف أيش العمايل اللي سواها الذكاء الاصطناعي في المبرمجين !! 😅 ربنا يبارك فيك وحياتك وعلمك أستاذنا المبدع .. 😊🌼 ومنكم نتعلم 🙂