مهند عبادي

السلام عليكم ورحمة الله وبركاته هذا العنوان : http://www.arabteam2000-forum.com/index.ph...ndpost&p=238604

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

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

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

السلام عليكم أخوتي الكرام إن المسار الذي أبحث فيه يعتمد على تاريخ إنشاء وتاريخ تعديل النموذج وباقي الكائنات (الاستعلامات - التقارير) حيث يمكن معرفة هذا التاريخ من خلال : CurrentProject.AllForms("FormName").DateCreated CurrentProject.AllForms("FormName").DateModified وهكذا عندما تشغيل النموذج يتم التأكد من أن تاريخ التعديل لا يختلف عن تاريخ الانشاء ويتم هذا التأكد في غالبية الدالات والاجراءات ضمن النموذج وإذا كان تاريخ التعديل مختلف تتم عملية إنهاء التطبيق ولكي نعمل تاريخ التعديل يساوي تاريخ الإنشاء يكفينا أن ننسخ النموذج إلى نموذج جديد أو أن نستورده إلى قاعدة جديدة وبعدها نقوم بتحويلها إلى MDE ، في هذه الحالة أي تعديل يتم على النموذج سيغير تاريخ تعديل النموذج وبالتالي سيكتشف البرنامج ذلك وتتم عملية إنهاء التطبيق

حتى ولو لم يبرح البرنامج جهاز الزبون .. ولكن التعديل في الـ MDE من شأنه أن يستطيع أي شخص كتابة عبارات تنسب البرنامج له وهذا بحذ ذاته تعد على الملكية الفكرية والابداعية للشخص أنا حالياً في صدد تطوير أسلوب يجعل ملف الأكسس يتعرف على أي تعديل يتم عليه ولا يعمل عندئذٍ .. ولكن الطريقة في بدايتها إن شاء الله تنجح وأشرككم فيها

الأسهل أن نضع القيم بواسطة الكود فوراً وهذا أسهل من اختبار قيمها مثلاً Private Sub Form_Load() Me.Label0.Caption = "Design By Mohamed Taher" End Sub

السلام عليكم تم طرح الاصدار الثاني من هذا البرنامج مجاناً وهو يحمل الكثير من الميزات الرائعة : على هذا الرابط

بفرض اسم الحقل هو NumDate اعملي استعلام ضعي به الحقل التالي : format([NumDate],"##/##/####")

أخي الكريم ربما أنك تستخدم جدول في قاعدتك اسمه Users وهذا هو السبب أغلب الظن

أشكر الأخوة على تشجيعهم لي أخي حسين ، بالنسبة للحذف سأجرب وأرد لك النتيجة

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

عمل أخي ابن مسقط برنامج مثال لنظام المستخدمين والصلاحيات وقد أعطاني هذا فكرة لعمل هذا البرنامج : هذا البرنامج يقوم تثبيت نظام المستخدمين والصلاحيات على أي ملف أكسس دون أي تدخل منك يستخدم هذا البرنامج اسلوب المعالج لتسهيل عملية تثبيت نظام المستخدمين يقوم هذا البرنامج لوحده بجميع العمليات المطلوبة من تعديل في الكود ووضع نموذج بدء التشغيل وأي آجراء يلزم لانجاز تثبيت نظام المستخدمين .. الرجاء أريد معرفة نتيجة تطبيقه عند أي أخ يستخدمه مع تحياتي Users Maker.rar

MyVar = now() حيث MyVar هومتحول عام .. بمعنى أن يتم تعريفه في أول إحدى الوحدات النمطية كما يلي Public MyVar as date

حل سريع : ادخل إلى مجلد الطابعات وغير اي شيء في اسم الطابعة (مثلاً إذا كانت Canon S850d أضف فراغ في الاسم أو احذف الفراغ الموجود أو أضف حرف المهم غير اسم الطابعة ثم شغل برنامجك وأخبرني النتيجة

الأخ الكريم نحتاج إلى : 1- متحول عام نوع وقت/تاريخ 2- في حدث عند التحريك : يتم به تخزين الوقت الحالي في المتحول السابق 3- في حدث عند عداد الوقت : نقارن الفرق بين الوقت الحالي والمتحول العام إذا كان أكبر أو يساوي دقيقتين ننفذ كود إغلاق البرنامج

Dim Ct as Control for each ct in me If ct.tag = "basm" then 'اكتب هنا أي أوامر تريد تنفيذها : إظهار - تحريك -الخ End If next ct

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

هناك خطأ نحوي في كلمة : ct.visibe والصحيح هو ct.visible

ممكن ذلك .. ولعمله نحتاج إلى Function يقوم بقراءة كل ادوات الفورم يخفي من يقع منها ضمن مجال معين

Dim Ct as Control for each ct in me ct.Visible = ct.tag <> "basm" next ct تم تعديل نقص حرف في الكود

أخي rami3520 .. هذا الكود مكتوب للأكسس ولكي يعمل على الإكسل يحتاج إلى تعديلات أخي أبو أفنان ما الذي غيرته بالضبط ؟؟ ضع هذه الأزرار في برنامجك بدل الأزرار العادية .. وضع كا تريد تنفيذه عند الضغط على الزر في حدث عند النقر لأداة التسمية الموجودة فوق الزر

السلام عليكم هذه الفكرة بالأساس كنت أطوّرها لأجل أحد البرامج .. ولكني ارتأيت أن أضعها في موضوع مستقل نظراً لفائدتها الكبيرة للجميع .. ولأنها تعد مثالاً متقدماً ونادراً في النموذج الموجود في القاعدة المرفقة يوجد 6 أزرار .. كل زرين بجانب بعضهما من نفس الصنف أول زرين : عند الضغط يتغيّر صورتهما ثاني زرّين : عند الضغط عليهما يعطيان تأثير الضغط المعروف ثالث زرين : عند مرور الفأرة فوقهما يتغير لونهما .. وعند الضغط عليهما يعطيان تأثير الضغط المعروف . كل هذا يفعله النموذج بدون أن يحتوي على أي تعليمة أو حدث .. فقط سطر واحد في حدث عند التحميل هو : PutButtons Me أسلوب التصميم : 1= نرى في هذا النموذج وجود أدوات تسمية نضعها فوق الأزرار وبنفس الحجم تماماً .. وعندما نريد أن ننفذ حدث عن النقر على الزر .. ينبغي أن نكتبه في حدث عند النقر على هذه التسميات 2= نضع في خاصية علامة لكل أداة تسمية اسم أداة الصورة التي تكون تحتها 3= نضع في خاصية علامة لكل أداة صورة رقم يدل على نوع التأثير .. إما 0 أو 1 أو 2 كما أرفقت صور الأزرار كي تتم الاستفادة بشكل كامل أرجو أن يكون بها فائدة للجميع تحياتي لكم Test Buttons.rar

يمكنك عمل ذلك عن طريق إخفاء القسم الذي يحتويها .. فإذا أردنا إخفاء جميع الكائنات في قسم التفصيل نكتب : Section(0).Visible = False

أخوتي الأكارم .. التنسيق الشرطي عملته للمربع الخلفي تحت مربعي النص .. لذلك لكي تراه حدد هذا المربع ثم اضغط على من قائمة تنسيق على تنسيق شرطي اللون الأساسي هو الأصفر والشرط الذي وضعته هو [sn]/2=[sn]\2 وهو اختبار هل القيمة في [sn] زوجية .. إذا تحقق يتغير اللون إلى الأزرق الكاشف