اذهب الي المحتوي
أوفيسنا

ابو جودي

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    6997

  • تاريخ الانضمام

  • Days Won

    202

 نوع المحتوي 

كل منشورات العضو ابو جودي

  1. ابو جودي
    الان فى المرفق التالى ان شاء الله سوف يتم اضافة الاتى - مويول التشفير - نموذج اضافة المجموعات - نموذج اضافة اسئلة الأمان نموذج اضافة المجموعات سوف يكون غير منضم اى للاضافة فقط وسوف يقوم بتشفير اسم المجموعة لانه لو كان للتعديل كذلك سوف نضطر لاعادة فك التشفير وبتلك الخطوة نفقد جزء من الحماية وهو معرفة اسماء المجموعات وكذلك مع نموذج الاسئلة وبما اننى لا اجد التفاعل المناسب فى الرد على اسألتى وقررت عدم طرح اى اسألة مستقبلا لن يتم العمل كما يترائى للاعضاء وهذا ما احزننى ولم اكن اريده استكمال الموضوع كله من وجهة نظرى ومن واقع الشرح الذى سوف يتضمنه الموضوع من يريد اضافة او تعديل فليتفضل هو بعمل ما يترائى له ولكن لن يكون على مرفقاتى او اثناء الشرح حتى لا نفقد التركيز سواء انا فى التصور لاخراج العمل او للمتابع تباعا لما اقدمه
  2. ابو جودي
    هذه خطوة اولى فى الحماية اعرف قد يرى البعض ان لا قيمة لها ولكن ان شاء الله مع وضع الكثير من خطوات الحماية يرتقى العمل الى مستوى احترافى تدريجيا بأمر الله
  3. ابو جودي
    ههههههههه تغير الكلام من الــى طيب اظهار الجداول تكون النتيجة كالاتى
  4. ابو جودي
    وهذا ما حسبته بسبب عدم التفاعل فى المناقشة والرد على اسألتى والاهتمام اصلا بما كتبته مسبقا هذا السؤال سوف يكون النتيجة الحتمية قمت ببدأ تسمية الجدوال يا افندم بــ Usys لذلك سوف يعتبرها الاكسس من جداول النظام وسوف يتم اخفاؤها اليا .... ولذلك هذه خطوة الحماية الأولى لتتمكن من رؤية الجدوال لابد من اظهار جداول النظام
  5. ابو جودي
    المرفق رقم ( 2 ) فى المرفق الاول تحدثنا عن التشفير هذا المرفق يحتوى فقط على الجداول اللازمة لانشاء نظام الصلاحيات يختوى المرفق على - جدول UsystbllvlControlForms هذا الجدول الخاص بادراج اسماء النماذج المراد تطبيق صلاحيات الفتح والاضافة والتعديل والحذف عليها - جدول UsystbllvlGroup هذا الجدول الخاص باضافة اسماء المجموعات التى نريد عمل الصلاحيات لها - جدول UsystbllvlQuestions هذا الجدول الخاص باضافة اسئلة الأمان التى سوف يقوم المستخدم بإختيارها والإجابة عليها اثناء تقديم طلب التسجيل والتى سوف تمكنه من استعادة كلمة المرور فى حالة نسيان كلمة المرور - جدول UsystbllvlRegistrationUsers هذا الجدول الذى سوف يتم اضافة بيانات المستخدمين فيه والتى تحتاج قيما بعد لتفعيلها من قبل مسئول النظام -جدول UsystbllvlUsers جدول بيانات المستخدمين SecurityLevelGroup.mdb
  6. ابو جودي
    لا اجد التفاعل بالردود المناسبة على اسألتى على بركة الله اكمل العمل كله كما سوف يترأى لى من وجهة نظرى طيب حتى لا يقال لى ان الجداول مستقبلا او النماذج سوف اتعمدت تسمية كل الكائنات التى تخص الصلاحيات بالبداية Usys لذلك سوف تعتبر تلك الكائنات تابعة للنظام وسوف تختفى تلقائيا ارى من وجهة نظرى ان التشفير يكون فقط لـ اسم المستخدم , كلمة المرور , الاجابات الثلاث تعمدت ان تكون ثلاث حتى ان خمن احد المقربين من المستخدم اجابة سؤال وكانت صحيحة يقف امام سؤلاين اخرين
  7. ابو جودي
    ممكن اشرح لك بالصور الطريقة اليدوية ولكن افضل ذلك برمجيا
  8. ابو جودي
    كلنا طلاب العلم فى هذا الصرح نحس بالأنس عند تواجد اساتذتنا العظماء
  9. ابو جودي
    استاذ @jjafferr دائما يقدم ابسط الحلول ما بيهوى التعقيد اما انا معقد شوف بطبعى لا احب التقيد لذلك دائما ابحث عن الحلول التى ترضى طموحى وخيالى دون ان تقيدنى حتى وانا طالت واحيانا اجد ان تنوع الحلول يثمن المعرفة
  10. ابو جودي
    كنت اريد التأكد هل وجود المسافات الزائدة تشكل فارق النتيجة المرجو الحصول عليها اما عن سؤال حضرتك كيف اضفتها هههههههه انا لا اعرف المرفق كان هكذا من احد رواد المنتدى فى سؤال له لا اعرف هل هذا ناتج عن مشكلة ام ماذا قصدت بأننى تعمدت ذلك اى تعمدت التأكد من ان الحلول لن تأثر تلك المسافات عليها لأفكر ان كان لها تأثير على اقوم بعمل حسابات فى الكود لازالتها اولا ـــــــــــــــ لكن بوجه عام انا ان احببت اضافة مسافات وانا متعمدا لذلك اضغط على زر Alt من لوحة المفاتيح ضغط مستمر وفى نفس الوقت اكتب الارقام 255 تلك طريقة الـ Asci
  11. ابو جودي
    حقول جدول المستخدمين من وجهة نظرى سوف تكون كالاتى فهل لكم وجهة نظر أخرى فى الغاء احد الحقول او الزيادة عليها ومن جهتكم اى حقول تريدون تشفر بياناتها ؟! كلمة المرور , الاسم الرباعى , البريد الالكترنى , الاجابات على الاسئلة
  12. ابو جودي
    فى انتظار ارائكم احبابى فى الله.. طرحت المضوع للشرح وللتفنيد والتطبيق جزئية جزئية وخطوة بعد خطوة .. ولكن يبدو انه لم يلقى قبول على الرغم من طرحى للموضوع بعد ان وجدت تساؤلات عديدة عن ذلك الامر
  13. ابو جودي
    انظر الى هذا الموضوع
  14. ابو جودي
    لا شكر على واجب والحمد لله وسعيد جدا لك من اجل مشروعك القادم
  15. ابو جودي
    ممكن مرفق
  16. ابو جودي
    استبدلها بـ dim dBase As DAO.Database
  17. ابو جودي
    طبعا يا دكتور تقدر تستبدل الكود السابق بالكود الاتى وذلك ليظهر الـ Arrow بجوار القيمة H , L فى نفس مربع النص H1 Select Case Nz(Me.txtHemoglobin, "") Case "": Me.H1 = "": Case 12 To 17: Me.H1 = "" Case Is > 17: Me.H1 = "H" & Space(2) & ChrW("8593") Case Is < 12: Me.H1 = "L" & Space(2) & ChrW("8595") End Select
  18. ابو جودي
    لا علاقة للامر بالمسافات وللعلم تعمدت وضع المسافات الزائدة للوقوف على نتيجة الاجراء
  19. ابو جودي
    الاجابة هنا ان شاء الله
  20. ابو جودي
    اتفضل يا دكتور فكرتى من خلال استخدام الـ Unicode وهذا موقعالـ Unicode https://www.ssec.wisc.edu/~tomw/java/unicode.html ابحث عن .... Arrows SYMBOLS .mdb
  21. ابو جودي
    استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr الكود ده انا عرفته قبل فترة من حضرتك فالأصل هذه طريقتكم استاذى .. جزاكم الله خيرا بخصوص التاريخ حقيقى اناا اول مرة اقع فى المشكلة دى وكلام جضرتك صح كالعادة طبعا ومن الان لن اترك استعمال دالة التاريخ لابد ان تكون فى اى تطبيق
  22. ابو جودي
    اتفضل سيدى اسال الله تعالى ان تجد ضالتكم Remote External Db.mdb test2.accdb
  23. ابو جودي
    السلام عليكم ورحمة الله تعالى وبركاته اعتذر لانقطاعى المفاجئ عن الرد على اساتذتى الكرام واحبائى بسبب ظرف قهرى اسأل الله تعالى لكم البركة فى العمر والعلم والرزق والأهل والأحباب وكل كلمات الشكر تقف امام مجهودكم ومشاركاتكم عاجزة شكر الله لكم واحسن اليكم
  24. ابو جودي
    استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr حتى مع ترك المسافة بعد كل And : لم احصل على النتيجة [FirstName] ='m' And [LastName] ='e' And [DateOfBirth] =#02/11/2021# And [SIR]= -1
  25. ابو جودي
    السلام عليكم ورحمة الله تعالى وبركاته اساتذتى العظماء .. تحية عطرة ما الخطأ فى هذا الكود Dim myWhere As String myWhere = "[FirstName] ='" & [txtFirstName] & "'" myWhere = myWhere & " And" myWhere = myWhere & "[LastName] ='" & [txtLastName] & "'" myWhere = myWhere & " And" myWhere = myWhere & "[DateOfBirth] =#" & Format([txtDateOfBirth], "dd/mm/yyyy") & "#" myWhere = myWhere & " And" myWhere = myWhere & "[SIR]= " & [ChckSIR] Debug.Print myWhere Me.txtCount = DCount("*", "[tblTestCount]", myWhere) Test Dcout.mdb
×
×
  • اضف...

Important Information

  I accept