أحمد العيسى
-
Posts
579 -
تاريخ الانضمام
نوع المحتوي
التقويم
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أحمد العيسى
-
تنسيق مسافات الكود من خلال أداة Smart Indenter فى Add-Ins
أحمد العيسى replied to أحمد العيسى's topic in قسم الأكسيس Access
أشكرك على هذا الإطراء الجميل ويبدو أنه ارتد إليك بعد مشاركتك هنا لأداة أفضل وأشمل تحياتي لشخصك الكريم يوجد أيضاً الكثير من المواقع المجانية ( OnLine) التى تقوم ببعض تلك الأعمال ولكن بنظام النسخ واللصق مثل: VBA Formatter VBA Code Formatter وتحفة المنتدى VBA Code Doctor -
السلام عليكم ورحمة الله وبركاته Smart Indenter هى أداة قديمة لتنسيق المسافات فى كود أكسس لتجعله أسهل فى قراءته وأعتقد أنه فى الإصدار الأخير تم توافقها مع نواة 64 بت أجمل ما في هذه الأداة أنك من خلالها تستطيع تنسيق كود المشروع بأكمله فى ثوان معدودة الأداة تجريبية لمدة 30 يوماً ، ولا أظن أنك سوف تحتاج لهذه المدة .. الملف مرفق smartindentersetup.zip
-
أردت تعديل المشاركة السابقة ، فوجدت أن ذلك غير متاح أرجو من إدارة المنتدى زيادة مدة التعديل ليوم كامل على الأقل حيث أنني توصلت إلى كود أبسط من السابق لتصيد الخطأ وهو التالي : Private Sub cmdIndex_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single) On Error GoTo ErrorHandler Dim strChr As String strChr = ProcessArabicLetters(CInt(y / Me.cmdIndex.Height * (UBound(GetLettersArray) + 1))) If Me.cmdIndex.Caption <> strChr Then Me.cmdIndex.Caption = strChr End If Exit Sub ErrorHandler: MsgBox (" !!!!! عفواً ،،،، لا توجد بيانات"), vbOKOnly + vbMsgBoxRight, "ملاحظـة" ' MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "Error" Resume Next End Sub
-
أثناء العمل على قاعدة البيانات ، قمت بحذف كل البيانات منها وعند حركة الماوس على شريط الأحرف تظهر رسالة بالخطأ أضفت لكود " عند تحريك الماوس " سطور تصيد هذا الخطأ Private Sub cmdIndex_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single) On Error GoTo Err_Note Dim strChr As String strChr = ProcessArabicLetters(CInt(y / Me.cmdIndex.Height * (UBound(GetLettersArray) + 1))) If Me.cmdIndex.Caption <> strChr Then Me.cmdIndex.Caption = strChr End If Exit_Note: Exit Sub Err_Note: Beep DoCmd.CancelEvent MsgBox (" !!!!! عفواً ،،،، لا توجد بيانات"), vbOKOnly + vbMsgBoxRight, "ملاحظـة" End Sub إذا كان هناك ملاحظة على ما سبق أو إضافة ما فأرجو التعقيب وخصوصاً على هذا الجزء :Exit_Note Exit Sub لأني غير متأكد من فائدته
-
تجربتي على جهازي ( ويندوز 7 وأوفيس 2007 32بت ) من خلال أوفيس 2007 تم تحويل ملف قاعدة بيانات المدرسين ( أنا استخدم أوفيس 2003 ) بعد تفريغها من البيانات من TeacherData v2.5.mdb إلى TeacherData v2.5.accdb ومن خلال الشرح أعلاه تم إنشاء الملف الوسيط Setup_TeacherDatav2.5.exe ومن ثم تم استخدامه لاستخراج النسخة المحمية TeacherData v2.5.accde وعند استعادة النسخة العادية من النسخة المحمية كانت هذه الصور
-
تمام .. من خلال برنامج Shadow Defender تم تنصيب أوفيس 2010 32بت بجانب أوفيس 365 64بت فقط للتجربة وظهرت الحانات الأربعة 😂 هل من الممكن التوضيح بالصور.. تكرماً
-
السلام عليكم البرنامج مبتكر وجميل تصميماً وشرحاً ومبدئياً لماذا تختلف الشاشة التالية فى شرحك عن الموجودة عندي فى شرحك هناك بنود أكثر ( أربعة ) عندى ورغم إدخال الـ Password كما فى خطواتك (إثنان )
-
تمام .. لا بأس أعتقد أن الأغلبية العظمى الآن تتعامل مع ويندوز 10 (64) و أوفيس( 64 ) ، ما عدا بعض المدارس ذات الأجهزة القديمة .. وهي فى طريقها للإنقراض .
-
عودة مرة أخري لهذا الموضوع الرائع عندى على ويندوز 7 يرنامج Portable_Office2010(32bit) استخدمه للتجارب السريعة للتطبيقات *.accdb بعد بناء التطبيق على أوفيس 365 واستخدامه على المذكور أعلاه تفاجئنى الرسالة التالية هل اساس البناء له دخل ( إذا كان على 64 فيجب استخدامه على 64 ؟) ، علماً بأن Portable_Office2010 لا يصلح للبناء ، لذلك سؤالي ينحصر في: كيف يمكن تشغيل الناتج على أى نواة سواء 32 أو 64
-
قوائم مختصرة ⭐ هدية ~ صانع القوائم المختصرة 2026 ⭐
أحمد العيسى replied to Foksh's topic in قسم الأكسيس Access
عثرت على الصور هنا فى المنتدى وهى للأخ جعفر . . . . . . . . . . . AccessIcons.rar -
قوائم مختصرة ⭐ هدية ~ صانع القوائم المختصرة 2026 ⭐
أحمد العيسى replied to Foksh's topic in قسم الأكسيس Access
فعلاً تذكرت .. وكنت سأقوم بالتعديل فى هذه النقطة بعدما تذكرت السطر العلوى " إزالة الأداة إلى خصائص أكسس ومن الـ Addin ) " المفترض بعد الإزالة أجد أن كلمة " إزالة " تغيرت إلى "إضافة " وافتراضياً "إضافة الأداة إلى خصائص أكسس وإلى الـ Addin " -
قوائم مختصرة ⭐ هدية ~ صانع القوائم المختصرة 2026 ⭐
أحمد العيسى replied to Foksh's topic in قسم الأكسيس Access
الله ينور عليك المجهود المبذول فى تصنيف الأيقونات وبرمجتها يفوق الوصف ، وأعتقد أنه لا يقدر على ذلك غيرك قمت بالتجربة ( على السريع ) ووجدت ملاحظتين 1 أين زر حفظ صانع القوائم المختصرة بعد إستدعائها وتعديلها ( لأنه يبدو أننى قد نسيت المكان ) كما أنه مطلوب ملف ( أو مجموعة صور ) تدل على جميع أرقام أيقونات أكسس لاستخدامها يدوياً 2 بالنسبة لـ " إزالة الأداة إلى خصائص أكسس ومن الـ Addin ) إذا تم إزالتها .. تجد أن نص العبارة السابقة لم يتغير وما زال هناك المزيد من التجارب بعد العثور على كيفية الحفظ -
بعد هذا النقاش المثمر بين المحترفين ( لم ألاحظ غير حبايبنا ) فى هذا الموضوع أقترح لكي تعم الفائدة على الجميع : عمل شرح مبسط على اليوتيوب بكل جوانب ما تم ذكره هنا (بالتفصيل) من خلال مثال .. مع شكري وتقديري لك
-
لا مجال للإعتذار .. بصماتك ومساعداتك للجميع واضحة للكل ثم أنك قد ذكرت التصحيح فى ردك
-
تمام .. اختفى الخطأ أصبح الآن لدينا طريقة جديدة فى البحث .. يرجى التعديل فى القالب الأصلي شكراً لكما
-
تفضل db.mdb
-
حولت تطبيقي إلى صيغة *.accdb وتم تجربته على أوفيس 365 (2024) وتم الاستيراد وبناء الكود كما أسلفت لكن ما زالت الأخطاء كما هي ، و كما أوضحتها سابقاً سأحاول التجربة غداً على نسخة أكسس أقل فى الإصدار إذ ربما تكون المشكلة فى النسخة المثبتة على جهازي
-
الفكرة مبتكرة وجميلة جداً لكن واجهتني بعض الصعوبات أثناء التنفيذ وأحتاج بعض التوضيحات كما فهمت : يتم استيراد الثلاث نماذج التالية إلى تطبيقى frmSearch sfrmSearch frmFinderBuilder واستخدام الأخير frmFinderBuilder لبناء كود البحث المستخدم ثم يمكن حذفه بعد ذلك من التطبيق وتم وضع الكود الذى تم استنساخه فى الزر الموضح بالصورة بالنموذج الذى يستقى بياناته من الجدول tbl_Student1 التطبيق أعلاه بصيغة mdb (أكسس 2003) البناء والنسخ والاستخدام لا يوجد به مشاكل لكن الناتج لا يعمل حتى على أوفيس 2024 .. ما السبب ؟؟
-
تمت الإفادة شكراً جزيلاً لكل من شارك بمعلوماته ونصائحه
-
فكرة الإستعلام التوحيدي ممتازة أنا استخدمها فى التطبيق الأصلى لإيجاد الإحصائيات المختلفة سأجرب هذه الفكرة على باقى التقارير وسارد غداً إن شاء الله
-
الهدف من هذا الموضوع هو الرغبة فى تعديل كبير على تقليل عدد التقارير التى عندي كمثال التطبيق الأصلى يحتوي على 142 تقرير قابل للزيادة والهدف النهائي هو تقليص عددهم إلى الثلث .. أنا أضع مثال فقط لعرض الفكرة ثم يتم نقل الفكرة فى حال نجاحها للتطبيق الأصلي أنظر لصور التقارير
-
فكرة جميلة بلا شك ( خارج الصندوق) لكن التطبيق الأصلي يعتبر 3 × 1 و نماذج كل صف تتفرع من شاشة أساسية تخبرك باختيار الصف المطلوب لكن ماذا عن هذه الفكرة : أتمنى العمل عليها ، فهى أقرب لهذا التطبيق
-
أشكرك أخى Foksh تمام .. هذا بالنسبة للجزء الثانى من السؤال ماذا عن الجزء الأول والأساسي فى انتظار تعديل حضرتك
-
هذا ما فعلته سابقاً (عمل ثلاث تقارير لها نفس المحتوى للثلاث صفوف ) ، وكنت أريد التطوير بعمل تقرير واحد .. وهذا هو السؤال الجوهري للموضوع !! الشرط موجود فى تسمية علوية بكل نموذج ومن خلال استخدام دالة ( Function ) فى مديول =GetWordFromCaption("frm_OnlyYou1"; "txt_Name"; 4) يتم استخراج كلمة الأول أو الثانى أو الثالث لكن كيف يمكن استخلاص ذلك أولاً من زر النموذج الموجود بالنماذج الثلاثة والذهاب جاهزاً إلى التقرير :
-
ملحوظة فى محلها .. لكن القاعدة الأصلية بدأت بالصف الأول ثم تباعاً تم الاحتياج للتصعيد للصف الثانى ثم الثالث ويوجد أسباب أخرى غير واضحة فى المثال المرفق المفتطع من التطبيق لكن حضرتك لم ترد على السؤال المذكور فى العنوان : "هل يمكن استخدام نفس التقرير ليأخذ بياناته من جدول واحد فى كل مرة من الجداول الثلاثة"
