كل الانشطه

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

تجربة جيدة ، ولكن الظاهر انك لم تقرأ مشاركات الموضوع QR النموذج والتقرير اشتغل تمام لأنك استعملت صورة ، ولكن وعند وضع صورة خلف الباركود ، لا يظهر Code128 ، لأن الكائن/الحقل ليس صورة ، وعند استخدام الاكسس الامر Line ، فيكون خلف جميع الكائنات . نريد رؤية Code128 افقيا وعموديا QRCreate_01.zip

السلام عليكم اسعد الله اوقاتكم بكل خير عندي 8 أقساط محددة القيمة ارغب في ان يتم خصم القسط من السنة الأولى الحالية ثم السنة التي تليها مثلا يخصم أولا من سنة 2026 وبعد نفاذ المبلغ يخصم من السنة التي بعدها 2025 و هاكذا...... كما ارغب في ان يتم الخصم بعد كتابة كلمة تم في خانة السداد ق1.xlsx

اهلا بك اخونا السيد اولا لابد تتعلم الطرق الصحيحة لاستخدام وبرمجة اكسس .. مثلا جداولك ليست حسب الطريقة العلمية التي ينصح بها .. حيث ينقصها الكثير اما بالنسبة للنماذج فلا تحمل همها .. اكسس هو الذي يعملها لك .. عبر المعالج .. وكذلك الاستعلامات .. وانت فقط تعدل على التصميم بما يناسب ذوقك وامامك طريق طويل .. اما اذا اردت اختصار المسافات والوقت والجهد فاستفد من مواضيع والدروس التي تناولت هذا الموضوع على سبيل المثال .. اخونا سعد @2saad .. من فترة ليست بالقصيرة وهو يعمل على برنامج للمدارس يمكنك زيارة صفحته وقراءة مواضيعه .. اعتقد مشاركاته الحديثة فقط تصل الى اكثر من 50 صفحة اقرأ الاسئلة والاجابات .. واطلع على الامثلة المرفقة وادرسها وتعلم وطبق

شكرا استاذي الحبيب اتفضل اليك جزء من الاجزاء اذا لا تريد بخلفية شفاف فقط في موديول قم بازالة هذه العلامة (') بداية هذا السطر ' Call FillRect(hDC, uRect, GetStockObject(WHITE_BRUSH)) وتم هذا الجزء ايضا مع کود بارکود Code39 QRCreate.mdb

السلام عليكم لا ادري اذا هذا الموضوع سيساعد في شيء !!

يمكنك انزال المرفق من هذا الرابط والذي يعطيك فكرة عن طريقة العمل: https://post.bytes.com/forum/topic/access/841659-work-on-access-icon?p=5288312#post5288312 Extract Bitmaps.zip

وعليكم السلام شڤان لم نسمع منك منذ فترة طويلة ، فأهلا وسهلا بك بيننا مرة اخرى 🙂 المطلوب عمل QR و Code128 بواسطة الاكسس فقط وبدون الاستعانة ببرنامج خارجي.

السلام عليكم ورحمة الله وبركاته مرحبا بكم جميعا لا اعرف هل انا فهمت في الموضوع بشكل سليم او لا هل المطلوب هو عمل QR بالوان حسب طلب ای ملونة و في نفس الوقت شفافة بواسطة اكسس بدون اي برامج خارجي ؟

الصورة تتكلم 😊👌 ولكن عندي سؤال .. ما الداعي لهذه الخطوة ؟؟ أليس من الأفضل أن تكون تلقائية ؟!

هههههه لا تُحبط أخي منتصر .. على العكس الهواية أجمل صدقني 😜 وفي فكرتك التي تقدمت بها كحل ، وقد أعجبني فعلاً .إلا أنني أذهب إلى الطريق المباشر دائماً وبأقل الموارد إن استطعت ودون الإعتماد على مكتبات الويندوز ؛ ذهبت لإستغلال WScript.Shell مباشرة من الويندوز .. لذا جرب في زر جديد ودون الحاجة لأي مديولات أو مساعدات الحدث التالي :- Private Sub cmd_ApplyChanges_Click() Dim objShell As Object Dim regKey As String Dim currentValue As Variant regKey = "HKCU\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\msaccess.exe" Set objShell = CreateObject("WScript.Shell") On Error Resume Next currentValue = objShell.RegRead(regKey) On Error GoTo 0 If IsEmpty(currentValue) Or currentValue <> 11001 Then objShell.RegWrite regKey, 11001, "REG_DWORD" MsgBox "تم ترقية محرك متصفح الأكسيس إلى IE11 بنجاح" & vbCrLf & "يرجى إعادة تشغيل النموذج لتطبيق التغييرات", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "اكتمل التحديث" Else MsgBox "جهازك محدث بالفعل ومحرك المتصفح يعمل بأعلى كفاءة (IE11) . لا حاجة لأي تعديل", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "الوضع سليم" End If End Sub ولتجربة حذف التعديلات من الريجستري :- Private Sub cmd_RemoveHack_Click() Dim objShell As Object Set objShell = CreateObject("WScript.Shell") On Error Resume Next objShell.RegDelete "HKCU\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\msaccess.exe" On Error GoTo 0 MsgBox "تم إلغاء التعديل وعاد المتصفح لوضعه الافتراضي", vbInformation + vbMsgBoxRight, "نجاح" End Sub

معقول ؟؟؟ الله يسامحك أحبطتني 😅 عموما بالإضافة إلى الحل المقدم من الأخ فادي قمت بإضافة مرفق للتعديل في الريجستري لتحديث رقم إصدار المتصفح الخاص بأكسس ليناسب العمل مع الأداة ويعمل كما في الصورة المتحركة التالية إن شاء الله الآن يعمل معك أخي @Moosak بدون مشاكل

ولوو .. العفو أخي منتصر ، هذا قليل مما عندكم صدقني .. وللعلم دراستي ليست البرمجة إطلاقاً وبعيدة كل البعد عنها .. ولكن هي ثمرة محبتي لهوايتي 😉

بالفعل نجحت الفكرة وهذا دليل أنها تعمل في اكسس 2010 قمت بتحديث الملف بعد التعديل أرجو من الأخ @Moosak تنزيل الملف الجديد وتجربته وإفادتنا إذا إشتغل أم لا ألف شكر أستاذ فادي (ياخي تخلي الواحد يتمنى لو درس برمجة )

لقد كُشِف أمرنا يا عزيزي لا اعلم السبب ، ولكن بعد إضافة السطر يعمل معي بنجاح على الإصدارين 2010 , 2019

حقا كنت أتسائل كيف استطعت تشغيل صفحة تشغل الجافا سكريبت على متصفح الأكسس القديم مع علمي أنه لا يدعم الجافا ولا ال css .. والآن إنكشف السر 😅 ولكن مع حالة ملف العزيز @منتصر الانسي الغريب أنني أستخدم النسخة 365 ومع ذلك لا تعمل معي .. !! 🤷‍♀️

طيب حتى لا تتوه مني الأفكار ، وأن لا نذهب الى توسع في التعديل . جرب ما يلي أخي منتصر :- في صفحتي الـ HTML في مشروعك ، قم بإضافة السطر التالي فقط لتحديث محرك المتصفح في آكسيس :- <meta http-equiv="X-UA-Compatible" content="IE=edge"> تحت السطر :- <meta charset="UTF-8"> ليصبحا :- <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible" content="IE=edge"> فالسطر وظيفته ببساطة أنه عندما تضعه في أعلى الصفحة ( داخل الـ <head> ) ، فأنت تعطي أمراً صريحاً للمتصفح المدمج في أكسيس تقول له : "توقف عن استخدام محرك IE7 القديم ، واستخدم المحرك إنترنت إكسبلورر المتوفر على نظام ويندوز هذا" 😅 وهذه كانت إحدى محاولاتي بتضمين عنصر Web من الإصدارات الحديثة داخل إصدارات أوفيس 2010 - 2019 .. ولكن الموضوع خرج من يدي لأن به تشعب وتعقيد كبير ، وأضاع مني وقتاً كبيراً في المحاولات . ناهيك عن إتلافي نسخة الأوفيس في جهازي أكثر من مرة 😂 .

عندي ملف أو برنامج إكسيل عبارة عن بيانات لطلاب المدرسة وفيه صيغ وأكواد ودوال و forms وغيره . عاوز أحول كل ده لقاعدة بيانات أكسيس فيها جداول ونماذج وتقارير . أبدأ منين وإزاي ؟ ممكن حد يساعدني خصوصا في عمل النماذج ؟ وأنا رفعت الملف هنا وممكن تشوفوا الجداول وتحذفوا وتضيفوا المطلوب . وأشكر كل الزملاء والقائمين على القسم . برنامج إدارة المدرسة 1.1.accdb

ياريت

لا عليك أخي منتصر .. على العكس ، التجارب التي تقوم بها والنتائج التي مررنا بها ، ستكون ذات فائدة كبيرة لهذا التوجه الذي توجهت له باستعمال متصفح الويب .. من باب تجربتي الشخصية في المختبر ، أيضاً انا اعتمدت على الجافا سكريبت والكلاسات في لغة HTML لبناء التفاعلات والتأثيرات الحركية . لكني جعلت الآكسيس يقوم ببناء الصفحة نفسها وتضمين جميع الأكواد السكريبت ... إلخ داخل الـ VBA نفسه . وبالتالي تحكمت في الأمور إلى حد لمنع هذه الأخطاء التي كنت أثق بأنها ستنتج مع اختلاف إصدارات آكسيس .. وإن كان لي مداخلة - لاحقاً - بمحاولة بسيطة ، فهذا يسعدني

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

للأسف لأ .. جربت على اصدار 2019 و 2010

أوفيس 365 ولكني كنت قد جربته على أوفيس 2010 هل نجح العمل عندك أخي @Foksh ام لا؟

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