ابوخليل

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

وهذا مرفق 2003 test22.rar

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

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

انا عملت فقط على المستخدمين .. سوف اشرح لك فكرة المستخدمين لتظهر المستخدم في اي مكان : انظر الصورة : اجعل مصدر بيانات الحقل في اي نموذج تريد اظهاره كالتالي : =guserName لاظهار اسم المستخدم =gUserid لاظهار معرف المستخدم =gpasswrd لاظهار كلمة المرور =gManager لفحص المدير .. اذا true بالنسبة للمستفيدين انا لم اتعرض لها يمكنك عمل ما تريد ثم ارفع الملف

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

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

انظر هنا ما تفكر به نفسه

المشكلة عندك لما يفتح النموذج وحقول التاريخ خالية ، وتم علاجها بوضع سطر اعلى الحدث للقفز عند الخطأ ايضا عملت لك بعض التحسينات : مادمت تعمل على جدولين : 1- تم عمل نموذج رئيسي مرتبط بجدول الاسماء 2- تم ضبط النموذج الفرعي لتلافي ترك سجلات فارغة ، ( جعلت حقل التاريخ : الى .. اجباري ) 3- الازرار (حفظ /جديد ) لا داعي لهما فأكسس يحفظ آليا اما زر جديد فانت لست بحاجة جديد او بمعنى آخر لا يتصور عمل سجل جديد لانك سوف تحسب الفترة لموظف موجود فعلا ، وكل ما عليك هو البحث عنه داخل مربع التحرير test2 (1).accdb

بعدالاطلاع .. اشوف انك مسوي شوي زحمة ، نماذج من اجل عرض اسم شركة المورد .. وكذلك لعرض الوصف لو عملته انا كان وضعت الوصف في جدول الموردين .. كل شركه امامها وصفها واكتفي بمربع سرد واحد يعرض اسم الشركة ..( والوصف ينزل آليا في حقل الوصف) .. بمجرد نقر انتر هذه هي الطريقة السلسه المعتادة .. ولكني اعتقد انك تعمل حاجات فنية خاصة فيبدوا لي انك رسام او تملك موهبة فنية

لوبحثت قليلا في الموقع لوجدت الحل يوجد لديك خطأ في احد الاكواد .. ويلزم التصحيح من محرر الفيجوال : Tools / References

تأكد من صحة مثالك المرفق مثلا الحقل [k_1] غير موجود والماكروا محذوف مؤكد كثير من اخوانك جربوا .. لذلك لم يتفاعلوا .. ولم تتلق رد

تفضل تقريبا التقارير كما خططتها انت بالنسبة للنماذج حين استغربت عدم ظهور البيانات ، فالنماذج صممت للادخال فقط وليس العرض ايضا يمكنك تحويل نماذج الادخال الى نماذج مفردة بدلا من مستمرة مسألة العرض .. التقارير تقوم بالمهمة اذا اردت التعديل على البيانات يمكنك عمل نموذج واحد خاص للتعديل على جدول العمليات Data5.rar

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

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

test (3).mdb

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

انا اضفت هذه الأسطر فقط داخل الحدث

استفسارين : 1- هل كل المزارعين مثل بعض متساوين في نصيبهم من هذه المساحة ؟؟ ام يوجد اختلاف في الحصص ؟؟ 2- في الصورة المرفقة يتضح باقي الأفدنة بالسالب .. هل هذا حقيقي ؟؟ يعني هل يحق للمزارع زراعة مساحات اكبر من نصيبه المقرر ؟؟ التصميم يعتمد على اجابتك الدقيقة

If IsNull(Me.mont) Then msgbox "معلومات غير مكتملة" Exit Sub Else DoCmd.OpenReport "table1", acViewPreview 'لعرض التقرير DoCmd.RunCommand acCmdPrint End If

كل شيء ممكن باذن الله اللي فهمته : عندنا مزارع / منتج / مساحة حاول تشرح الفكرة مفصلا كي تجد المساعدة من اخوانك الاكسس يختلف في التصميم وتنفيذ الفكرة عن اكسل لذا اشرح العملية بإسهاب

عليكم السلام If IsNull(Me.mont) Then msgbox "معلومات غير مكتملة" Exit Sub Else DoCmd.OpenReport "table1", acViewPreview 'لعرض التقرير 'DoCmd.OpenReport "table1", acViewNormal ' طباعة مباشرة End If الشرط.accdb

عليكم السلام اولا اهنيك على ذوقك الرفيع في التصميم طلبك غير واضح .. اشرح ما تريد بشكل مفصل

تمام امسح بيانات الجدول ثم اعد ادخال بيانات من جديد ثم تعامل مع هذه البيانات في استعلاماتك وتقاريرك لاحظ ان المعيار بين التبرعات والنفقات هو رقمي 1 ، 2

الفضل لله ، وشكرا لدعواتك الطيبة والحمد لله على تحقق مطلوبك