sandanet

استاذنا الفاضل AlwaZeeR بارك الله فيك وشكراً جزيلاً على مجهودك الرائع اخي الكريم haniameen اذا اردت تغيير الخط في مكان معين فاستخدم طريقتك الاولى اما اذا اردت توحيد الخط حينها يمكنك استخدام الطريقة العامة التي زودنا بها الاخ AlwaZeeR

تفضل .. test_UP3.mdb

استاذنا الفاضل AlwaZeer ممكن تطبيق ماتفضلت به على المثال المرفق testfont.mdb

ارفق قاعدة البيانات

لكن في الفرعي يتم الاضافة ايضاً بدون تحذير نعم في حال عمل اضافة على النموذج الرئيسي اما لو اردت الاضافة على النموذج الفرعي فقط فلا يظهر تحذير

اخي الكريم ارفق ملفك

تفضل test_UP2.mdb

اخي الكريم سبب المشكلة لديك هو اسعمالك للأمر Me.Requery

للأسف لم اتوصل الى حل .. يبدو ان الموضوع متشابك بعض الشيء

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

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

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

اخواني الكرام انا اخي الكريم خالد اعتقد ان اصدار الاكسس لديك غير متوافق مع الاكسس 2007 الذي استخدمه فالكود عندي يعمل بصورة سليمة.. عموما طريقة استعمال loop او دوال اخرى غير مهم مادام انها تؤدي نفس الغرض في النهاية ولكنني افضل استعمال الاكواد الاقل للوصول الى الهدف. انا للأسف مش فاهم حاجة من الموضوع لان آلية عمل البرنامج غير واضحة لي واحس ان المبرمج امعقد الامور بشكل كبير هههه

اخي الكريم كود الاستاذة زهرة يقوم باخفاء واظهار الجداول والاستعلامات وغيرها من الكائنات فقط بعد ادخال الرقم السري .. لكن يمكنك تجاوز ذلك واظهار كل الكائنات وتجاوز الرقم السري بإزالة قفل الشفت اولاً ومن ثم الدخول الى القاعدة بالضغط على الشفت ومن ثم اظهار الكائنات المخفية لذلك انسب حل لحماية قاعدة البيانات هو كالتالي: 1- بالنسبة للجداول: استعمال كود لمنع حذف الجداول .. استعمال طريقة تشفير البيانات المهمة في الجدول 2- بالنسبة للإستعلامات: الابتعاد عن الاستعلامات الثابتة واستعمال الاستعلامات المؤقتة التي يمكن عملها من خلال النموذج كما يفضل استعمال اكواد sql في بعض الاحيان مثلاً عندما تريد استعمال استعلام تحديث او استعلام حذف ..الخ 3- بالنسبة للنماذج: يفضل ان يكون النموذج غير مرتبط بجدول اذا كان النموذج هو نموذج ادخال بيانات حيث يمكننا الاستعانة بكود الادراج insert بعد اكمال تعبئة جميع الخانات والضغط على امر حفظ في النموذج .. اما اذا كان النموذج مخصص للبحث مثلاً فهنا يمكن عمل استعلام مؤقت لمصدر بيانات النموذج 4- بالنسبة للوحدات النمطية: يكفي وضع باسورد لقفل اكواد vba من خلال ادوات ومن ثم خصائص وبعدها اختار التبويب حماية وضع كلمة السر التي تريدها 5- قم باخفاء كل الكائنات بالطريقة التي في المرفق السابق للأستاذة زهرة ومن ثم بعدها قم بتحويل البرنامج الى الصيغة التنفيذية mde او Accde تحياتي

اخي الكريم ماتفضلت به ليس عذراً فيمكنك فتح موضوع جديد خاص بك وطرح سؤالك مع ان موضوعك موجود في المنتدى بكثرة فقط عليك البحث

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

اخي حمدي تفضل المرفق .. انا طبقتها على يوم الاحد1 وانت يمكنك تطبيق الفكرة على باقي الايام واجهتني مشكلة في عدم تمكني من التراجع عن التغييرات بعد اظهار الرسالة ولا اعلم ما السبب جدول .zip

اخي الكريم يمكنك البحث عن الشرح في اليوتيوب انا بصراحة لا استعمله اطلاقاً ولست مهتماً بتحزيم البرنامج

اذا كانت المشكلة تتعلق بنفس البرنامج فاطرحها هنا

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

شكراً للأستاذ صالح على توضيح تلك النقطة التي غفلت عنها ..وكما قال الاخ kanory اجعل بقية النماذج لاتفتح الا اذا كان النموذج الرئيسي مفتوح..ولو لم ترغب في جعل النموذج الرئيسي مفتوح فقم بعمل خدعة صغيرة كالتالي اجعل جميع النماذج لاتفتح الا اذا كانت قيمة x = true السؤال: كيف يمكن لقيمة x ان تكون true؟ الجواب: فقط عندما يتم غلق النموذج الرئيسي بهذه الطريقة سوف لن يتمكن احد من العبث بنموذج بدء التشغيل لديك إليك المثال السابق بعد التعديل تحياتي example2.mdb

تفضل example.mdb

أخي الكريم لديك برنامج في الويندوز اسمه IExpress تستطيع الوصول اليه عن طريق run ومن ثم كتابة اسم البرنامج

أخي الكريم قم بانشاء مايكرو يجب ان يكون اسمه Autoexec ومن ثم قم بانشاء وحدة نمطية كالتالي Option Compare Database Function StartupForm() On Error Resume Next DoCmd.OpenForm "StartupFrm" End Function غير فيها اسم نموذج بدء التشغيل الذي تريده الآن استدعي الدالة تلك في المايكرو كما في الصورة التالية وفي الاخير قم باقفال الوحدات النمطية بباسورد ومن ثم حول قاعدة البيانات الى mde او Accde

أخي الكريم للحفاظ على البرنامج من العبث قم بإغلاق الأكواد بكلمة سر من خلال الدخول الى محرر اكواد الفجوال بيسك ومن ثم ادوات ومن ثم خصائص وبعدها اختار التبويب حماية وضع كلمة السر التي تريدها وبعد اكمال برنامجك قم بتحويله الى الصيغة التنفيذية mde اذا كنت تعمل على اوفيس 2003 او accde اذا كنت تعمل على اوفيس 2007 وما بعده تحياتي