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

أخواني وأساتذتي ومعلمينا ( دون استثناء ) تشجيعاً للمتابعة والتقدم باستكمال الفكرة المعروضة في الفيديو التالي ، أرجو منكم مشاركتي أفكاركم وتعليقاتكم حول الفكرة الجديدة التي أقوم بتطويرها .. وأعلم أن هناك موضوع واحد على الأغلب قد تحدث عن الفكرة ولكن بطريقة مختلفة تماماً عن ما سترونه في :-

أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. مختبر ، وكيميائي ، وتفاعلي .. وفي آكسيس !!!! نعم أخي الكريم .. هل كنت تتصور أن آكسيس يمكن أن يكون مختبرك الكيميائي الرقمي التفاعلي بصورة لم تخطر على بالك !!! بفضل الله عز وجل وكرمه . تم الإنتهاء من تصميم هذا المختبر الرقمي في آكسيس . وهو قاعدة بيانات تعليمية تفاعلية تختص بكيمياء العناصر الذرية التي درسناها جميعنا .. نتعرف على مكونات و وظائف المختبر :- 1️⃣ عند فتح المشروع ستلاحظ أن جدول العناصر الدوري موجود أمامك بكامل العناصر الذرية الـ 118 . 2️⃣ قم باختيار اي عنصر بالنقر نقرة واحدة على مربعه . وستلاحظ معلومات غنية بالتعريف عن هذا العنصر . اسمه ورقمه الذري . من اكتشفه وفي أي عام . درجة الحرارة التي يغلي عندها أو ينصهر . كثافته .. توزيعه الإلكتروني ... وحتى أين يتواجد هذا العنصر ... إلخ 3️⃣ يمكنك عرض / إخفاء الجزء الذي لا ترغب بعرضه . 4️⃣ يمكنك عرض العناصر بفلترة تصل الى 10 فلاتر عرض حسب تصنيف كل عنصر . 5️⃣ عند اختيار أي عنصر ، ستلاحظ عرض رسومي متحرك تفاعلي لنواة العنصر والإلكترونات التي تدور حول نواته في مجالها الكهربائي . 6️⃣ من خلال زر "اختبار اللهب" ستلاحظ لون اللهب الناتج عن هذا العنصر عند احتراقه . على سبيل المثال جرب العنصر الثالث Li الليثيوم بالنقر على مربعه ثم انقر زر "اختبار اللهب" 7️⃣ من خلال زر "اصنع تفاعلك الكيميائي" سيتم الإتاحة لك باختيار أي عنصرين تريدهما من الجدول الدوري الذي هو أمامك ( ستلاحظ إحاطة اسم العنصر باللون الأبيض بعد اختياره ) ، ومن ثم نقلك إلى المختبر مباشرة لرؤية نتيجة تفاعل هذين العنصرين عند التقائهما معاً ؛ وهذه الطريقة الأولى . 8️⃣ الطريقة الثانية من خلال الزر "مختبر التفاعلات الكيميائي" حيث سيتم فتح باب المختبر أمامك لاختيار عناصر من قائمتين منسدلتين ، ثم النقر على الزر "ابدأ التفاعل الكيميائي ..." 9️⃣ من خلال الزر "مسابقة المختبر الكيميائي" سيتم فتح نافذة اختبار تفاعلية متعددة المستويات ( مبتدئ ، متوسط ، محترف ) ولكل من هذه المستويات طبيعة أسئلة مختلفة في كل مرة . والإختيار سيكون اختيار إجابة من 4 إجابات . طبعاً كل إجابة صحيحة بـ 10 نقاط من عدد 10 أسئلة . يعني إنت وشطارتك ومعلوماتك 😁 . 🔟 في نهاية الواجهة الرئيسية ستلاحظ ظهور مقترحات ومعلومات عن عنصر عشوائي ، أو عن التقاء عنصرين والناتج لهما ماذا سيكون . كيف تم بناء هذا المختبر ؟ تم جلب كافة المعلومات من الموقع Byjus . طبعاً بعد التدقيق في أكثر المعلومات التي استطعت الوصول لها من عدة مصادر ومراجع . تم تصميم الخلفية المستخدمة للجدول الدوري مقتبسةً من الموقع نفسه ( إقتباساً ) . الحركة الناتجة عن دوران الإلكترونات والتفاعلات الذرية في المختبر ، أو حتى اختبار اللهب ، وحتى مسابقة المختبر ؛ تم بنائها بالاعتماد على عنصر ويب تمت برمجته بلغة :- ( HTML / CSS / JS ) . ويتم إنتاج الملفات داخل المجلد %Temp% وربطها بعنصر الويب داخل النماذج تلقائياً . اضغط مفتاح Win + R في لوحة المفاتيح ، ثم اكتب %temp% وابحث عن ملفات HTML في مجلد الملفات المؤقته ، واستمتع .. كل عنصر كيميائي ( مربع ) سيمثله ( عنصر زر + مربع نص ) خاص بهذا العنصر . وتم الربط بينها داخل الأكواد من خلال الرقم الذري لكل عنصر . اكتشف اسم كل زر ومربع نص ولاحظ نهاية الاسم لكل منهما والرقم الذري للعنصر الذي سيمثلانه هذين العنصرين . أزرار التحكم ( إخفاء / إظهار ) بعض التفاصيل ؛ يمثلها صورتين إظهار واحدة وإخفاء الأخرى لأظهار الحركة On/Off . جميع العناصر في النماذج عبارة عن صورة وليست أزرار ، تم استخدام الحدث عند النقر لها لأداء وظيفتها . والحدث عند تحريك الماوس فوقها لإظهار الماوس بصورة يد . الخطأ وارد عند نقل أي معلومة من مصادر خارجية . لذا التعديل متاح لك أخي المستخدم داخل الجداول (tblCompounds و tblElements ) لأي معلومة تعتقد أنها غير صحيحة . والإستدلال عليها بسهولة من خلال اسم العنصر أو رقمه الذري . فيديو توضيحي لشكل العمل في نهايته التي ستتعامل معها :- ملف المشروع مفتوح المصدر :- Periodic Table.zip

السلام عليكم الموقع التالي: https://www.msaccesstips.com/ فيه مجموعة مواضيع تخص تنصيب الذكاء الاصطناعي محليا على حاسبتك ، والمواصفات المطلوبة لعمل ai على حاسبتك ، ونوع ai المناسب ، ثم يتطرق في موضوع آخر الى عمل نموذج اكسس ليقوم بمحاكاة ai ، ويتطرق في موضوع ثالث لشرح JSON والتوكن والحرارة ضمن بيئة الاكسس ، ويوجد امثلة مرفقة مفتوحة المصدر. للعلم والاستفادة 🙂

السلام عليكم ورحمة الله وبركاتة مرفق لكم لقد صممت برنامج مخازن يحتوى على دخول مستخدمين اجبارى كلمة المستخدم admin كلمة السر 123 اختيارى دخول بريد الكترونى رجاء كتابة البريد ضرورى دخول رقم الهاتف رجاء كتابة رقم الواتس ضرورى ويبدأ من 201 لانة سيربط نسيان كلمة المرور مستقبليا اما بخصوص نسيان كلمة السر فهى جارى العمل عليها لانها تحت التطوير وايضا عند الدخول يعطى شاشة ترحيب جميلة جدا كأنة يقوم بالدخول الى النظام وايضا عند الدخول الى النظام يدخل الى شاشة به محتويات اساسيات تحتوى على 1 - تكويدات ( مخازن وموردين واصناف وعملاء ومندوبين ) 2 - حركة الاصناف 3 - حركة المشتريات والمبيعات والمرتجعات وتسوية مخزون 4 - تقريرات 5 - صلاحيات دخول المستخدمين 6 - عمل نسخة احتياضية بمجرد ان تقوم بتحديد كلا من الخيارات يظهر تلقائى البنود الخاصة بكل خيار تم عمل حركة تحويل بين المخازن مبدئيا ويتم عمل جميع الحركات من شراء وبيع والخ ارجو ان ينال اعجابكم وشكرا لكم TransferSystem 2027.xlsm

اشكر اخى عبدالله بشير عبدالله على هذه الملاحظة وتم التعديل عليها دليل ميزات للمستخدمين والإدارة: وثيقة التحديثات الأمنية ومميزات واجهة تسجيل الدخول المحدثة تم تطوير وتحديث واجهة تسجيل الدخول البرمجية (Login Form) وتزويدها بحزمة من المزايا الذكية التي تضمن أعلى مستويات الأمان، الخصوصية، وسلاسة تجربة المستخدم (UI/UX). تلخص هذه الوثيقة أهم الإضافات البرمجية وفوائدها التقنية والتشغيلية: 1. الفحص الذكي للاتصال بالإنترنت (Active Connectivity Verification) الوصف الفني: يعتمد النظام على استدعاء دوال ويندوز السيادية (WinINet API) للتحقق الفعلي واللحظي من وجود اتصال إنترنت نشط بجهاز المستخدم قبل البدء في معالجة طلب استرجاع البيانات. فوائد العمل: منع الأخطاء البرمجية: يمنع تجمد أو توقف (Freeze) برنامج إكسيل عند محاولة فتح روابط خارجية في غياب الشبكة. توجيه ذكي للمستخدم: يظهر رسالة تنبيهية فورية وواضحة للمستخدم تفيد بأن "الإنترنت غير فعال" مع إيقاف الإجراء فوراً لتوفير الوقت والجهد. 2. التشفير والتخفي البصري للبيانات (Advanced Visual Masking) الوصف الفني: استخدام خاصية الحجب التلقائي PasswordChar لحقول البريد الإلكتروني ورقم الواتساب بمجرد استدعائها وعرضها على الشاشة لتظهر على هيئة رموز نجوم (***). فوائد العمل: حماية الخصوصية: يمنع المتطفلين أو المحيطين بالمستخدم من رؤية بيانات الأمان الحساسة المعروضة على الشاشة. كفاءة برمجية: التشفير بصري فقط على الواجهة؛ مما يعني أن النظام يقرأ ويكتب البيانات الحقيقية من وإلى قاعدة البيانات (شيت إكسيل) بسلاسة تامة ودون أي تعارض. 3. حماية البيانات ضد التعديل والتلاعب (Write-Protection & Locking) الوصف الفني: تطبيق خاصية القفل التام Locked = True على حقول الاسترجاع (البريد والواتساب) فور ظهورها على الشاشة. فوائد العمل: سلامة البيانات: منع المستخدم من الكتابة داخل هذه الحقول أو تعديلها أو مسحها بالخطأ، مما يضمن دقة البيانات المسترجعة. وضوح الرؤية: تضمن هذه الخاصية بقاء النصوص واضحة ومقروءة للمستخدم، على عكس خاصية الإلغاء الكامل (Enabled = False) التي تجعل الحقول باهتة وصعبة القراءة. 4. التنسيق البصري والديناميكي للواجهة (Dynamic UI Alignment) الوصف الفني: إعادة برمجة إحداثيات عناصر الشاشة (الخاصية .Top و .Height) لتتفاعل وتتمدد أوتوماتيكياً عند طلب استرجاع الحساب. فوائد العمل: مظهر احترافي ومتناسق: تم ترحيل زر اختيار لغة البرنامج chkLanguage وزر التذكر وزر الدخول إلى الأسفل بدقة متناهية فور تمدد الحقول، مما يمنع تماماً تداخل العناصر بصرياً ويحافظ على جمالية الواجهة. 5. دعم ثنائية اللغة الفورية (Instant Bilingual Support) الوصف الفني: نظام ترجمة مدمج يتفاعل لحظياً مع اختيار المستخدم للغة (العربية أو الإنجليزية). فوائد العمل: مرونة التشغيل: تترجم جميع العناوين، الحقول، الرسائل التنبيهية، وحتى نوافذ التأكيد فوراً بمجرد الضغط على خيار اللغة دون الحاجة لإعادة تشغيل البرنامج أو إغلاقه. 6. تدوين ومراقبة سجلات الدخول (Automated Security Logging) الوصف الفني: تفعيل نظام تدوين خلفي (سري) يقوم بتسجيل كل حركة دخول ناجحة أو خاطئة في شيتات مخصصة (Log_Success و Log_Failed). فوائد العمل: الرقابة والأمن: تتبع تفصيلي لعمليات الدخول يشمل (التاريخ، الوقت، اسم المستخدم، وعدد المحاولات)، مع حظر المنظومة وإغلاق الملف بالكامل تلقائياً عند تجاوز 3 محاولات خاطئة لحماية أرصدة وبيانات المنشأة. ملحوظة تم اضافة تسجيل المستخدمين سواء كان ادارة او موظفين مع تحديد مستوى المشاهدة والصلاحيات والرجاء من يريد المساهمة فى عمل المشروع لوجة الله تعالى يتفضل مشكورا لتعم الفائدة على الجميع هنا تم عمل شاشة دخول و تسجيل مستخدمين و تحويل يبن المخازن و جارى عمل فاتورة شراء TransferSystem 2027 - Copy - Copy.xlsm

تم التعديل الكود حاليا يقوم بحذف اي صور من النطاق a2:v2 قبل ادراج الصورة الجديدة حتى لا تتراكم الصور فوق بعضها كذلك تم تعديل اسم الصورة ومكانها على الجهاز بحيث يمكنك احتيار اي صورة وباي اسم وباي امتداد من الجهاز ويمكنك اضافة اي امتداد اخر غير مدرج بالكود .Filters.Add "جميع الصور", "*.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tiff" تم استتناء ورقة3-ورقة6 من ادراج الصور ويمكنك استتناء المزيد وذلك باظافة اسم الورقة بالكود من الجزء For Each ws In Worksheets If ws.Name <> "ورقة3" And ws.Name <> "ورقة6" Then ادراج صورة (2).xlsm

سيكون الحل بطريقتين حسب استخدامك للملف إذا كنت تقوم بفلترة العمود الأول (عمود1) يدوياً ليظهر فقط التواريخ من 8 إلى 11: استخدم المعادلة =SUMPRODUCT(SUBTOTAL(109; OFFSET(I8:I100; ROW(I8:I100)-ROW(I8); 0; 1)); --(H8:H100=E4)) وإذا أردت حصر الجمع تلقائياً بين تاريخين دون الاعتماد على الفلترة اليدوية استخدم المعادلة =SUMIFS(I8:I100; H8:H100; E4; G8:G100; ">=08-يوليه"; G8:G100; "<=11-يوليه") واليك المعادلتان في ملف واحد واختر ما يناسب طلبك جمع القيم لشخص مع الفلترة.xlsx

وعليكم السلام ورحمه الله وبركاته اتفضل لعله يكون المطلوب جدول ورديات.xlsm

اعرض الملف 🏆🌟 نتائج تحدي المبدعين 13 🌟🏆 :: إضافة وتحرير سجلات في جدول من خلال عنصر ويب :: 📟🌟 السلام عليكم ورحمة الله وبركاته يطيب لي أن أطرح بين أيديكم نتائج : 🙂 🌟 تحدي المبدعين 13 🌟 :: أدخال البيانات في جدول من عنصر ويب :: 🌟 هذا التحدي هو عبارة عن تحدي يطرح بين فترة وأخرى على جروب الواتسأب مجتمع اكسس جروب وكان هذا التحدي هو التحدي رقم 13 وكان موضوع التحدي هو إدخال وتعديل البيانات في الجداول عن طريق عنصر ويب داخل نموذج . 🤗 المشاركين : لدينا 4 مشاركات رائعة من 4 مشاركين متميزين : - الأستاذ/ أبو إلين (مشاركة). - المهندس/ موسى الكلباني (مشاركة). - أخوكم/ فادي - Foksh (مشاركة). - الأستاذ/ أبو ناصر - AbuNassir (مشاركة). :: صور المشاركات :: :: الأستاذ أبو إلين :: :: المهندس موسى الكلباني :: :: أخوكم فادي - Foksh :: :: أبو ناصر - AbuNassir :: ⭐ رابط الانضمام لمجموعة الواتسأب : https://drive.google.com/drive/folders/1Ku3j_1TBQ03M199RBAO86DqDcFKcgAk3?usp=drive_link ⭐ رابط جميع ملفات التحديات السابقة 🌟 : https://drive.google.com/drive/folders/1xOqWpWiLqKacPTG2MQDrohJp5DKDRTY2?usp=drive_link 🌸😊 كل التوفيق للجميع 😊🌸 صاحب الملف Foksh تمت الاضافه 07/14/26 الاقسام قسم الأكسيس  

بعد تجربة كل الواجهات مع سيكوال من سى شارب الى فيجول بيسك نت الى واجهات البايثون كلهم متجمعين لايساووا مرونة اكسس فى الاتصال والاستعلامات التمريرية وكنت لو اتمنى ان تسعى مايكروسوفت لتطوير اكسس كلغة ليناسب الويب بدلا من دعمها الدائم ل power apps

السلام عبليكم كل واحد لديه تطبيق يوزعه يعاني من الزبائن من كيفية استخدام النظام طبعا قد يضع ملف نصي او pdf يقوم بفتحه للعميل اذا اراد ان يسال لكن المشكلة ان العميل لا يريد ان يقرا عشرات الصفحات يريد ان يظهر له على زر يظهر مشبك مثل المشبك الخاص باوفس او نموذج يقوم وسال الذكاء الصناعي فيبحث له عن الجواب بثواني معدودة التحديات التي ستواجوهنا vba لا يصلح مع الذكاء الصناعي تنزيل نموذج ذكاء صناعي حجمه لا يزيد من 500mb كيفية البحث في النصوص طبعا بحمد الله قمت بانشاء واحد والعملية سلسة ولا تطلب الكثير عند تنزيلها على جهاز العميل ؟

وعليكم السلام ورحمه الله وبركاته اليك الحل بالكود لعله يكون المطلوب 👇 Sub SeparateSubjects() Dim ws As Worksheet Dim lastRow As Long Dim i As Long, j As Long Dim outputRow As Long Dim subjects() As String Dim subject As Variant Set ws = ThisWorkbook.Sheets(1) lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row outputRow = 6 ws.Range("D6:E1000").ClearContents For i = 6 To lastRow Dim subjectsText As String subjectsText = ws.Cells(i, "C").Value Dim seatNumber As String seatNumber = ws.Cells(i, "b").Value subjects = Split(subjectsText, " - ") For j = LBound(subjects) To UBound(subjects) ws.Cells(outputRow, "D").Value = seatNumber ws.Cells(outputRow, "E").Value = Trim(subjects(j)) outputRow = outputRow + 1 Next j Next i MsgBox "تم فصل المواد بنجاح!", vbInformation End Sub بالكود.xlsm

السلام عليكم محاولتي مع الروابط في الفيديو

السلام عليكم ورحمة الله وبركاته تحياتي لك ولاستاذنا Foksh مشكلة الملف به امتددان ادراج صورة.xlsm.xlsx بحذف الامتداد xlsx يعمل الملف لاظافة الخاصية المطلوبة اولا يجب حذف كلمة Private ليصبح اسم الكود Sub Comm() ثانيا يجب أن تكون الصورة موجودة بالفعل داخل القرص D بهذا الاسم بالضبط (عنوان.jpg) ثالتا امتداد الملف هو jpg وليس png أو jpeg؛ لأن عدم تطابق الامتداد سيتسبب في ظهور خطأ عند تشغيل الكود. في حال تغير مكان الضورة او امتدداها قم بالتعديل بالكود اليك الكود بعد اظافة الخاصية xlMoveAndSize نقل الخلايا وتغيير حجمها Sub Comm() Dim ws As Worksheet Dim pic As Object For Each ws In Worksheets Set pic = ws.Pictures.Insert("D:\عنوان.jpg") pic.Placement = xlMoveAndSize Next ws End Sub ادراج صورة.xlsm

ولا اجمل ... شكرا لكم

و عليكم السلام و رحمة الله و بركاته دالة الترحيل كانت موجودة لكن فيها خطأ برمجي (كانت تجلب دائمًا نفس الصنف الأول لكل الصفوف)، بالإضافة لخطأين آخرين: اسم الزبون والتاريخ كانا يسحبان من أعمدة خاطئة. كما أن دالة tafket() المستخدمة للتفقيط غير موجودة أصلاً في الملف (دالة خارجية غير معرفة، لذلك كانت تظهر كخطأ). جرب الملف المرفق الفاتورة(2).xlsx

و عليكم السلام ورحمة الله و بركاته هذا الملف من روائع العلامة خبور و هو ملف تعليمي فارغ و لذلك مذكور كلمة السر صراحة و هي 1 و به امكانية حذف الحماية أيضا

وعليكم السلام ورحمة الله 🙂 بل التحدي على المتصفح القديم .. وكان التحدي الأكبر هو كيف تجعل المتصفح القديم يفتح الصفحات المصممة بالتقنيات الحديثة Html, Js , Css وأنت تعلم بإن المتصفح القديم لا يدعم ذلك !! ولكن بفضل الله تم كسر هذا القيد (بمساعدة أبو الشباب AI طبعا )

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

ابداعات وأعمال مميزة شكرا لكم جميعا 🙋‍♂️

الملف الحالي يفحص الاتصال عند تشغيل البرنامج .. وفي حال غياب القاعدة الخلفية أو وجود انفصال في الشبكة يظهر نموذج الاتصال .. ولكن لو كانت الشبكة عندك تنفصل من حين لآخر .. فهذا يحتاج تقنية مختلفة .. تحتاج لنموذج يفحص الاتصال بالشبكة كل دقيقة مثلا .. وإذا حصل انقطاع يظهر نموذج للمستخدم يخبره بانقطاع الشبكة .. ولكن ما بيحتاج أنه يربط القاعدة الأمامية بالخلفية في هذي الحالة .. 🙂

نعم اعتقد انه من الافضل عمل ذلك ، حتى يكون العملين كفكرتين مستقلتين (كما هو الحال) 🙂

عدد القراءات كفيل بأن يجعلني أقوم بمفاجأتكم بنشر موضوع جديد قريباً،، 😉

السموحة اخوي موسى اذاً هي للمطورين زادكم الله علما ونفع بكم

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

اعرض الملف أداة إنشاء المخططات المخصصة بإستخدام عنصر تحكم المتصفح {سلسلة الأدوات المساعدة المخصصة} في آخر موضوع ضمن هذه السلسة كنت قد قدمت أداة إنشاء المخططات البيانية المخصصة والتي كانت تعتمد على رسم المخطط البياني داخل مربع التسمية ورغم أن تلك الأداة كانت تقوم بإنجاز العمل إلا أنها كانت تحتوي على نقاط ضعف تم ذكرها ضمن الشروحات المرفقة بها يمكن إعتبار هذه الأداة على أنها الجيل التالي من أدوات إنشاء المخططات البيانية المخصصة وذلك عن طريق إستخدام عنصر تحكم المتصفح وفيها سيتم معالجة أوجه القصور التي كانت تعاني منها الأداة السابقة ولكن لا نستطيع أن نقول أنه يمكن أن تحل محلها فرغم محدودية إمكانيات الأداة السابقة إلا أنه تقوم بشيء تعجز عنه هذه الأداة وهذا الشيء هو إمكانية العمل مع تقارير أكسس لأن التقارير لا تتعامل مع عنصر تحكم المتصفح ولكن هذه الأداة ستكون رائعة لتعمل كعروض تقديمية لا أريد أن أطيل عليكم فكل ما تريدون معرفته ستجدونه ضمن المرفقات حيث تحتوي على مستند وورد يشرح كل شيء وكل ما اريده منكم هو قراءة المستند وإستخدام النسخة التوضيحية لمعرفة طريقة العمل تحياتي صاحب الملف منتصر الانسي تمت الاضافه 07/04/26 الاقسام قسم الأكسيس  

هذا الإجراء يقوم بالتحقق من إصدار عنصر تحكم المتصفح الخاص بأكسس فإذا كان أقل من الإصدار 10 (الإصدار الذي يمكنه التعامل مع ملف chart.js) يقوم بتحديثه وإلا فلن يقوم بأي شيئ هذا معناه أننا لن نحتاج إلى تنفيذه إلا مرة واحدة فقط فلماذا نقوم بإضافة تعليمات برمجية تقوم في كل مرة نفتح فيها النموذج بالتحقق من إصدار المتصفح ؟ أنا متابع لموضوع Better-Access_Charts منذ بداياته وحتى الإصدار الأخير 4.29.01 وكنت قد فكرت بالتعديل عليه وتعريبه ولكن واجهتني بعض العقبات مثل - لو ترجع إلى أول أداة كنت قد رفعتها ضمن هذه السلسلة فإن أهم أسباب إنشائها هو منح المستخدم العربي أدوات يسهل التعامل معها وبدون أي معرفة واسعة في البرمجة وفي هذه الأداة ورغم أنه قد تم فيها تسهيل جميع خيارات المخطط إلا خيار مصدر البيانات وطريقة تحديد حقول التجميع وحقول القيم - كذلك كان من أهم أسباب إنشاء السلسلة هو أن تكون عملية دمجها ضمن التطبيقات الأخرى سهلة ولكن في Better-Access_Charts فإن من يرغب الإستفادة منها يجب عليه إستيراد (24 فئة ووحدة نمطية + نموذجين يمكن دمجها لتصبح نموذج واحد) - لا أخفيك اني قد فكرت في هاتين المشكلتين وأعتقد أنه يمكن إيجاد الحلول لها ولكن المشكلة التي جعلتني اصرف النظر عنها هو شرط أن يكون هناك إتصال بالانترنت رغم انه يوجد خيار لاستخدام الملفات المحلية إلا أنها لا تنجح إلا بعد تنفيذ العمل عن طريق ملفات CDN لمرة واحدة على الاقل عدم التعامل معها للأسباب المعروفة للجميع تحياتي انا مازلت ابحث عن اسباب وحلول هذه المشكلة واذا توصلت لحل فوعد مني أن أقوم بالعمل عليه وضمة في السلسة اما المثال الآخر Web Charts فمشكلته أنه يستعمل عنصر تحكم المتصفح ActiveX ومن الافضل عدم التعامل مع عناصر التحكم من هذا النوع للأسباب المعروفة للجميع تحياتي

الغيابات (1).xlsx السلام عليكم ورحمه الله وبركاته شوف الملف المرفق لعله يكون المطلوب المعادله المستخدمه 👇 =IFERROR(INDEX($A$3:$A$18, SMALL(IF(COUNTIF($F$3:$F$18, $A$3:$A$18)=0, ROW($A$3:$A$18)-ROW($A$3)+1), ROWS($B$3:B3))), "")

••| قريباً الإصدار الثاني بمميزات جميلة |••

اخي الكريم من حيث الإمكانية فهو ممكن ولكن سيقتصر عمل الأكسس على الواجهة الأمامية فقط أما قاعدة البيانات فستكون إحدى قواعد البيانات الكبيرة مثل SQL Server أو Azure أو MySQL بالإضافة إلى أنه سيكون مطلوب منك موقع لإستضافة قاعدة البيانات وإنترنت مستقر لكن السؤال لماذا تريد لإستخدام أكسس للعمل عبر النت مع وجود لغات برمجة متخصصة للويب؟ فكما جاء في الحديث النبوي {"كل ميسر لما خلق له" صدق رسول الله} والأكسس هو منصة لإنشاء تطبيقات قواعد بيانات بسيطة لبيئة أعمال صغيرة إلى متوسطة الحجم ضمن شبكة محلية أما الربط عبر النت فحتى ولو كان سيعمل فلن يعمل بنفس كفاءة التطبيقات المصممة بلغة متخصصة في تطبيقات الويب مثل جافا سكريبت و HTML مثلاً

1️⃣ تم تعديل وتصحيح بعض الأخطاء التي تمت ملاحظتها بناءً على تجارب الإخوة والأساتذة - مشكورين جميعاً دون استثناء - والتي تتلخص بـ :- تصحيح كود "عرض التصميم" للتقارير أو النماذج . والكثير غيرها . إضافة ميزة التحقق مما إذا كان الأمر مكرراً أم لا ، مع تخيير المستخدم بمتابعة إضافته أو لا .. ملف المشروع مفتوح المصدر :- Menu Builder V.2.zip كملاحظة ، وللحصول على التعديثات الجديدة .. قم بإزالة الإصدار السابق ، وإعادة تشغيل اكسيس واجهة الأداة وحفظها كـ Add-in ..

يمكننا الإنتظار مشاركات جديدة .. فلا تستعجل بإغلاق الموضوع باختيار الإجابة 🙂

طيب .. رغم أن الطلب تم تحقيقه من خلال Data Validation ، ولكن هذا لا يمنع من تجربة الفكرة التالية من خلال الأكواد . حيث تم دمج الحدث عند التغيير للورقة من :- If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B3:B3000")) Is Nothing Then With Target(1, 5) .Value = Date & " " & Time .EntireColumn.AutoFit End With End If ليصبح :- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or Target.Row < 3 Then Exit Sub If Target.Column = 2 And Target.Value <> "" Then Target.Offset(0, 4).Value = Now If (Target.Column = 4 Or Target.Column = 5) And Trim(Me.Cells(Target.Row, "D").Value) = "بيع" Then Dim r As Long: r = Target.Row Dim itemCode As Variant: itemCode = Me.Cells(r, "B").Value Dim qty As Double: qty = Val(Me.Cells(r, "E").Value) If Not IsEmpty(itemCode) And qty > 0 Then Dim stockSheet As Worksheet: Set stockSheet = Worksheets("المخزن") Dim findCell As Range Set findCell = stockSheet.Range("B3:B800").Find(What:=itemCode, LookIn:=xlValues, LookAt:=xlWhole) If Not findCell Is Nothing Then Dim realAvailableStock As Double realAvailableStock = Val(stockSheet.Range("I" & findCell.Row).Value) + qty If qty > realAvailableStock Then MsgBox "• لا يمكنك إتمام عملية البيع هذه" & vbCrLf & vbCrLf & _ "• الصنــف: " & Me.Cells(r, "C").Value & vbCrLf & _ "• الرصيد المتاح حالياً: " & realAvailableStock & " قطعة" & vbCrLf & _ "• الكمية المطلوبة: " & qty & " قطعة", _ vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تجاوز الرصيد" Application.EnableEvents = False Me.Cells(r, "E").ClearContents Me.Cells(r, "E").Select Application.EnableEvents = True End If End If End If End If End Sub ملفك بعد التطبيق :- مخزن 1.xlsb

حل اخر للطلب لعله يكون المطلوب ويفي بالغرض اذا ارات البحتث من خلال فتره معينه مثلا من يوم 1 الي يوم 10 من هتكون في الخليه e3 الي هتكون في الخليه f3 كما في الصوره المرفقه Copy of جدول ورديات (1).xlsm

استاذى ومعلمى الخبير الفاضل Foksh خالص الشكر لحضرتك زادك اللة خبرة وعلم الف شكر

اعرض الملف هدية لمنتدى اوفيسنا { بسم الله الرحمن الرحيم } اخواني واساتذتي واعضاء منتدى اوفيسنا .... لاحظت ان هنالك الكثير من الأخوة يريدون يومية مبيعات ومصاريف و ان يكون هنالك ترحيل يومي حسب التاريخ وطباعة للصفحه احببت ان اضيف البرنامج ويوجد بداخله علم فلسطين وبداخل العلم يوجد ترحيل لمجموع المبيعات و ترحيل لمجموع المصاريف وترحيل لصفحة حسب التاريخ وزر مسح البيانات بعد الترحيل وزر طباعة الصفحه لمن اراد ان يستفيد وهو مفتوح وجاهز لكل من احب ان يعدل عليه .... واي استفسار احبتي انا جاهز .... لا تنسوني من صالح دعائكم بظهر الغيب هدية لمنتدى اوفيسنا.rar صاحب الملف ابو صلاح برهومه تمت الاضافه 04 ديس, 2016 الاقسام قسم الإكسيل

هل ما فهمته صحيح حسب الصورة

الفكرة التي انتظرها من زمان ربما تساعدنا في إنشاء واجهة التطبيق

الفكرة جميلة ولا بأس بها .. وعن تجربتي في المرفق الذي شاركنا به أخي @محب العقيدة :- السؤال الأول كان لي :- الإجابة كانت :- وعن سؤال خارج الموضوع كانت :- والإجابة كانت :- ومرة أخرى كانت الإجابة :-

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

الحمدلله أنها عملت معاك 🙂 وهذه هي أهم العناصر التي ستحتاج تنقلها لمشروعك :

العفو أخي أبو الحسن .. سرني مرورك تقصد ربط آكسيس بجداول Online ؟؟؟ لم أفهم قصدك تماماً

أعتذر منكم ياشباب لم أكن أعرف أنها لن تعمل على بقية الإصدارات وأعتذر أيضاً أني قلت لكم أني جربتها على أكسس 2010 فقد حصل عندي لبس فالأداة التي جربتها هي أداة أخرى أقوم بإعدادها وهي أيضاً تعتمد على عنصر نحكم المتصفح ولكنها تعمل على الإصدارين 2010 و 365 بدون أي مشاكل وبصراحة هذا الشيء أراحني قليلاً لأن الأداة التي أقوم بتجهيزها تطلبت مني الكثير من العمل لتبسيط العمل بها ولو أن مجرد التفكير في كم التعليمات التي أريد شرحها يشعرني بالإحباط

ما شاء الله عمل جميل ، وتحديث أجمل أخي منتصر .. اعتقد أن المشكلة هي باختلاف اصدارات الآكسيس ، فما دون 2021 يواجه مشكلة عند عرض صفحات HTML تحتوي أكواد جافا سكريبت ... ما إصدار الأوفيس الذي تم انتاج هذا العمل الجميل عليه ؟؟

أعلم هذا أخي احمد .. ولكن لو كان كل مقترح نطلبه كإضافة لأي أداة .. فلربما كان لي طلب من مايكروسوفت أن تدعم مثلاً عرض واجهة اكسل أو وورد داخل النماذج أو التقارير .. لكنا قد حصلنا على إضافات مميزة 😉 ثم أنه إن لاحظت فإن عدد الرموز تبارك الله في المرفق الذي أشرت له قد يتجاوز الـ 1000 رمز معبّر .. وهنا سنضطر طبعاً لعرض هذه الرموز مع نظيرها من رقم استدعاء .. وبالتالي تضخيم العمل وتحميله حملاً زائداً عن وظيفته المُصمم لها .

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

السلام عليكم ورحمة الله تعديل على ملف الأخ الكريم "أبو عيد" حفظه الله ورعاه... (تعديل للحالة الرابعة -حالتين- التي تخص "مجموع المديونية المحلية الظاهرة غير المخفية بدون مقابل العملة الأجنبية"). أتمنى أن تفي الغرض المطلوب... جمع الأرقام الموجبة معدل2.xlsx

شكرا جزاكم الله خيرا

مرفق لك ملف مفتوح العملة تفقيط مفتوح العملة.xls