أمجد جمالي

غير اعدادت الدولة الي في جهازك الى سوريه او السعودية مثلاً او ابحث في المنتدى في موضوع مشابه لموضوعك تحياتي

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

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

تفضل Public Sub Ap_DateAdd() Dim DT As Date DT = #7/15/2004# DT = DateTime.DateAdd("M", -2, DT) DT = DateTime.DateAdd("D", -15, DT) Debug.Print DT End Sub

وهي هدية لا الك وافتخري انك سورية

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

أما بالنسبة لموضوع حماية قاعدة البيانات من الحذف بالصدفة قبل يومين قامت الاخت الحائرة بطرح موضوع وهو كيفية منع المستخدمين من حذف قاعدة بيانات في بئية شبكة وقمت بالرد عليها واليك الوصلة والطريقة هي انا الحمدلله مطبقا عندي وشغال عليها ومرتاح

ابو الروض اشكر تعليقك الجميل الي لفت انتباهي لأشياء ماكنت حسابلها حساب بالنسبة لملاحظتك الأولى لو لاحظت بأن القوائم تنشاء عن طريق الدالة AddMenu ويجب تمرير لهذه الدالة 3 متغيرات وهي اسم القائمة اسم الماكرو الذي يحتوي على القوائم التي ارغب في إضافتها وعنوان شريط الحالة وحسب ماجاء على لسان مايكروسوفت بأنه الطريقة الوحيدة للإظافة القوائم هي بأن يتم تحديدها فقط في الماكرو اذا الكود يقوم بإضافة جميع القوائم ومن ثم اقوم بتحديد إما بفتح هذه القائمة أو إغلاقها عن المستخدم بالنسبة للملاحظة الثانية بالفعل انا حطيت مثال عن استعلام واحد وهو QyrCities بعدين أي استعلام جديد تقوم بإنشاءه فقط قم بإضافة أسم هذا الاستعلام في الجدول TblSetPermission وللتذكير: مهمة هذه الجدول تخزين فيه أسماء الجداول والاستعلامات التي ترغب في حمايتها بالنسبة للملاحظة الثالثة لا اعلم بالضبط ماذا تقصد بكلمة استيراد هل تعني Link او نسخ من قاعدة بيانات الى اخرى اذا كان هذا قصدك فأنت لفت إنتباهي لشي جديد رح كرس وقتي كلو عليه ان شاء الله شكراً

السلام عليكم ورحمة الله وبركاته في المثال المرفق طريقة لإضافة القوائم للمجموعات والتحكم بها Enable Or Desableمن خلال جدول تم إعداده مسبقاً وليس من خلال الكود طريقة العمل : عند تسجيل دخول مستخدم ما تقوم الدالة التالية بقراءة صلاحيات المجموعة التي ينتمي اليها هذه المستخدم من الجدول TblAddMenuPrivilege قمت بتصميمه لتخزين الصلاحيات والتحكم بها من خلال هذه الجدول وليس من خلال الكود ومن ثم يتم توزيع الصلاحيات وهو على شكل اضافة قوائم للوصول الى النماذج او التقارير مهما يكن تحتاج تمرير 3 متغيرات لهذه الدالة وهي أسم الجدول الذي سوف يتم قرائة منه الصلاحيات اسم المجموعة أسم الصلاحية (FieldName) نوع البيانات التي سوف تعود بها الدالة هي إما True Or False Public Function Ap_GetUserPrivilegeTrFa(StrTblName, StrGroupName, StrPrivilegeName As String) As Boolean On Error GoTo Err_Ap_GetUserPrivilegeTrFa '--Read Data Only--' Dim RstCheckUserPrivilege As New ADODB.Recordset RstCheckUserPrivilege.Open StrTblName, CurrentProject.Connection, adOpenStatic RstCheckUserPrivilege.MoveFirst RstCheckUserPrivilege.Find "GroupName Like '" & StrGroupName & "'" Ap_GetUserPrivilegeTrFa = RstCheckUserPrivilege(StrPrivilegeName) RstCheckUserPrivilege.Close Exit_Ap_GetUserPrivilegeTrFa: Exit Function Err_Ap_GetUserPrivilegeTrFa: DisplayMessageCritical "Found System Error:-" & vbCrLf & "" & vbCrLf & "Error Description: " & _ Err.Description & "" & vbCrLf & "" & vbCrLf & "Error Number: " & Err.Number & "" & vbCrLf & "" & _ vbCrLf & "Contact your system Administrator: " & Ap_GetDataBaseProperties("TblDatabaseProperties", "SystemAdministrator") & _ "" & vbCrLf & "" & vbCrLf & "Full technical support information is available on our E-Mail:-" & _ vbCrLf & "" & Ap_GetDataBaseProperties("TblDatabaseProperties", "SupportEmail") & "" & vbCrLf & _ "" & vbCrLf & "Please don't hesitate to contact us.", "Error Message" Resume Exit_Ap_GetUserPrivilegeTrFa End Function هذا هو المثال للتجريب تحياتي SecurityProjectV0.3.zip

باقي 10% بالمية من ال WorkStation وهي الرد على اسئلتكم عند التجريب مرفق ملف يحتوي على كل الصور الموضحة طريقة تنفيذ الخطوات شكراً SecureDatabase.zip

السلام عليكم ورحمة الله وبركاته لتحلوي نظام الملفات الى NTFS بدون فورمات وبدون ضياع المعلومات والملفات المخزنة على ال Drive اتبع هذه الخطوات إضغط على Start أو ابدأ ثم أختر Run أو تشغيل وقم بكتابة هذه الأمر cmd ثم إضغط enter سوف تفتح لك شاشة سوداء وهي Command prompt اكتب هذه الأمر \cd ثم إضغط enter ثم اكتب هذه الأمر اذا كنت تريد تحويل ال Drive C convert c: /fs:ntfs /v ملاحظة هامة يمكن التحويل من Fat32 الى NTFS بهذه الطريقة لكن العكس لا يمكن الا في الفورمات فقط ملاحظة نظام الملفات NTFS يعمل فقط في Windows 2000 Windows XP ولا يعمل في Windows Me Windwos 98 يتبع

5-إذهب الى Sharing او المشاركة كما هو موضح في الصورة وقم بعمل مشاركة لهذ المجلد ثم قم بالنقر على الزر Permissions كما هو موضح في الصورة السابقة ليضهر لك صفحة Permissions for Database كما هو موضح في الصورة التالية بفرض أن المجلد اسمه DataBase قم بحذف مجموعة العمل Everyone وأي مجموعة او مستخدم أخر ومباشرة قم بإضافة هذه المجموعات فقط Administrators Users Power Users Debugger Users لكل مجموعة قم بإزالة الصلاحية Full Control من العمود Allow لكل هذه المجموعات كما هو موضح في الصورة السابقة وجرب وادعيلي المستخدم الذي ينتمي الى مجموعة عمل Administrators لايمكنه حذف هذا المجلد وما داخل هذا المجلد ولايمكنه تغير هذه الصلاحيات المستخدم الذي ينتمي الى مجموعة عمل Users لايمكنه حذف هذا المجلد وما داخل هذا المجلد ولايمكنه تغير هذه الصلاحيات المستخدم الذي ينتمي الى مجموعة عمل Power Users لايمكنه حذف هذا المجلد وما داخل هذا المجلد ولايمكنه تغير هذه الصلاحيات المستخدم الذي ينتمي الى مجموعة عمل Debugger Users لايمكنه حذف هذا المجلد وما داخل هذا المجلد ولايمكنه تغير هذه الصلاحيات شكراً يتبع

السلام عليكم ورحمة الله وبركاته إسمحو لي بأن ارجع الى البداية اكيد في طريقة لمنع حذف الملف من على الشبكة ومجربة واعتمد عليها كلياً في حماية قواعد بياناتي العمل رح يكون 90 % منه على السيرفر (مكان تخزين الطرف الخلفي-الجداول أو الملف المراد حمايته ) 1-نظام الملفات لل Drive المخزن عليه قاعدة البيانات يجب ان يكون NTFS File System كما هو موضح في الصورة واذا كان نظام الملفات لديك Fat32 رح ارفق طريقة في نهاية الموضوع للتحويل الى NTFS بدون عمل Format لل Drive 2-اذهب الى ال Folder الذي يحتوي قاعدة البيانات وإضغط عليه بيمين الماوس واختر خصائص Properties كما هو موضح في الصورة 3-ثم اختر Security أو أمان كما هو موضح في الصورة وأظف فقط هذه المجموعات وليس المستخدمين Administrators Users Power Users Debugger Users System هذه 4 مجموعات هي الأكثر استخداما في ويندوز اذا كانت موجودة مجموعة العمل Everyone قم بحذفها واي مجموعة عمل اخرى او مستخدمين اخريين قم بحذفهم 4-ثم إضغط Advanced لتظهر لك هذه النافذة كما هو موضح في الصورة ثم قم بالنقر المذدوج على Administrators من قائمة المجموعات لتظهر لك هذه النافذة كما هو موضح في الصورة في العمود Allow او السماح اذهب الى الخيار Delete subfolder and files وقم بإزالة هذه الصلاحية (لعدم السماح لحذف الملفات دالخل هذه المجلد) واذهب الى الخيار Delete وقم بإزالة هذه الصلاحية (لعدم السماح بحذف هذه المجلد) ومن ثم اذهب الى الخيار Change permissions وقم بإزالة هذه الصلاحية (لعدم السماح بتعديل الصلاحيات) كما هو موضح في الصورة السابقة ومن ثم قم بإسناد هذه الصلاحيات لباقي المجموعات التي إضفناها يتبع

أستاذنا القدير ابو هادي شهادتك هذه انا اعتز بها

Of course not '-- Try to open Report(Table1) as Hiiden Mode DoCmd.OpenReport "Table1", acViewPreview, , , acHidden '-- Close this Report DoCmd.Close acReport, "Table1" Thanx

What do you mean by reports?

السلام عليكم ورحمة الله وبركاته من بعد اذن الأساتذة ابو طالب وابو هادي هذا مثال بسيط جداً على عد صفحات التقرير من دون فتحه PagesCount.zip

اهلاً وسهلاً فيك أخي الكريم

السلام عليكم ورحمة الله وبركاته سبق وارفقت مثال عن كيفية وضع الصلاحيات وتجربتها في الجدول والأن ارفق مثال اخر يقوم بتوزيع الصلاحيات على المجموعات على جميع الجداول والاستعلامات في كل مرة يتم التسجيل الدخول فيها الى البرنامج طريقة عمل البرنامج: -شاشة دخول المستخدمين والغاية من هذه الفورم هو اسم المجموعة فقط -فورم اسمه FrmMainMenu مهمته التحقق من أسم المجموعة وتشغيل ال Function الخاص بها -يوجد جدول اسمه TblSetPermission يحتوي على اسماء الجداول والاستعلامات المراد توزيع الصلاحيات عليها -يوجد ايضاً modules اسمه SetPermission فيه الكود الخاص بإضافة وإزالة الصلاحيات (تم شرحه مسبقاً) -ويوجد ايضاً Functions وهي 'يقوم بإزالة جميع الصلاحيات من على الجداول والاستعلامات 'TblSetPermission الموجودة في الجدول Ap_CodePermissionNoAccess '---------------------------------------------------------------------------- 'يقوم بإضافة جميع الصلاحيات من على الجداول والاستعلامات 'TblSetPermission الموجودة في الجدول Ap_SetPermissionFullAccess '---------------------------------------------------------------------------- 'يقوم بإضافة الصلاحيات من على اجلداول والاستعلامات 'TblSetPermission الموجودة في الجدول 'Data Entrey لمجموعة عمل كما تم التخطيط له مسبقاً في خريطة الأذونات أنظر الى الصور في المشاركات السابقة' Ap_CodePermissionDataEntrey '---------------------------------------------------------------------------- 'يقوم بإضافة الصلاحيات من على الجداول والاستعلامات 'TblSetPermission الموجودة في الجدول 'Accounting User لمجموعة عمل كما تم التخطيط له مسبقاً في خريطة الأذونات أنظر الى الصور في المشاركات السابقة' Ap_CodePermissionAccountingUser '---------------------------------------------------------------------------- 'يقوم بإضافة الصلاحيات من على الجداول والاستعلاامت 'TblSetPermission الموجودة في الجدول 'Supervisor User لمجموعة عمل كما تم التخطيط له مسبقاً في خريطة الأذونات أنظر الى الصور في المشاركات السابقة' Ap_CodePermissionSupervisorUser '---------------------------------------------------------------------------- 'يقوم بإضافة الصلاحيات من على الجداول والاستعلامات 'TblSetPermission الموجودة في الجدول 'Programming User لمجموعة عمل كما تم التخطيط له مسبقاً في خريطة الأذونات أنظر الى الصور في المشاركات السابقة' Ap_CodePermissionProgrammingUser وجميعها بلغة ال Ado لمحة سريعة عن عمل هذه Function: -تقوم بفتح الجدول TblSetPermission للقرائة فقط -تقوم بعد السجلات الموجودة في هذه الجدول (يفيد في عرض حالة توزيع الأذونات على ال Status Bar ويلاحظ عندما يكون عدد الجدوال والاستعلامات المراد توزيع عليها الأذونات كبير) -يمر على السجلات(أسماء الجداول) في الجدول TblSetPermission واحد تلو الأخر ويقوم بتوزيع الصلاحيات عليها -يزيل الحالة من على Status Bar -ويغلق الجدول TblSetPermission ملاحظات هامة: 1-أقوم بإستخدام الدالة Ap_CodePermissionNoAccess قبل توزيع اي صلاحيات لأي مجموعة تمهيداً لإضافة الأذونات التي ارغب بها وللتأكد مائة با المائة من أن هذا الجدول لا يحتوي على اي صلاحية مثل يعني Refresh 2-في جميع الدالات أقوم بتوزيع الصلاحيات وأعيد تكرارها على هذه المجموعات ِAdmins (مجموعة عمل) Users (مجموعة عمل) Admin (المستخدم الإفتراضي) Current User (المستخدم الحالي) وبالحالة هي بكون ضمنت 90% أنه شغلي صح 3-المستخدمين والمجموعات (كا أمثلة للتجريب) 'UserName 'Group 'Password 'Abu Hadi 'Supervisor User 'Admin 'Abu Suliman 'Accounting User 'Admin 'Amjad Jamali 'Accounting User 'Admin 'Khuder AlRajbe 'Supervisor User 'Admin 'Mohammed Ali 'DataEntry User 'Admin 'Mohammed Taher 'Programmer User 'Admin 'Radhwan 'DataEntry User 'Admin 'Sahel Alareshi 'Programmer User 'Admin واذا في حدا عنده تعليق أ فكرة جديدة على طريقتي الرجاء أفيدوني شكراً يتبع SecurityProjectV0.2.zip

نور المنتدى يا غالي يا ابو نعيم

على راسي حارتك ابو الروض :d وهذا مثال يوضح كيفية إضافة الصلاحيات على الجداول والإستعلامات شكراً يتبع SecurityProjectV0.1.zip

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

مرفق الكود الخاص بإضافة وإزالة الصلاحيات برمجياً مع الشرح الدالة Ap_AssignPermissionAdd تقوم بإضافة الصلاحيات والدالة Ap_AssignPermissionRemove تقوم بإزالة الصلاحيات عليك تمرير 4 بارمترات عند تجربة أي دالة من الدالاتين وهي 1-أسم المستخدم أو أسم المجموعة(الخاصة بالأوفيس وليس شاشة التسجيل الدخول) 2-أسم الكائن وليكن اسم الجدول او اسم الاستعلام 3-نوع الكائن جدول او نموزج اوتقرير 4-اسم الصلاحية التي تريد اعدادها للمستخدم او المجموعة هذا هو الكود مع الشرح Public Function Ap_AssignPermissionAdd(StrUserName, StrObjectName, StrObjectType, FlgPermission) '-- StrUserName Parameter Accepting UserName or Group Name '-- StrObjectName Parameter Means Table Name or Quiry name '-- StrObjectType Parameter Means Tables,Quires,Forms,Reports And Macros '-- FlgPermission Parameter Can be Any of Security Permission Constants On Error GoTo ErrAssignPermissionAdd Dim Db As Database Dim Con As Container Dim Doc As Document '-- Take The Object Type and Object Name Parameters to Find The Object Set Db = CurrentDb Set Con = Db.Containers(StrObjectType) Set Doc = Con.Documents(StrObjectName) '-- Set The User or Group Doc.UserName = StrUserName '-- Does The Actual Sending of The Permission Doc.Permissions = Doc.Permissions Or FlgPermission '-- Function Complete Successfully Exit Function ErrAssignPermissionAdd: DisplayMessageCritical "Function 'Ap_AssignPermissionAdd' did not complete successfully.", "Error Message" Exit Function End Function Public Function Ap_AssignPermissionRemove(StrUserName, StrObjectName, StrObjectType, FlgPermission) On Error GoTo ErrAssignPermissionRemove Dim Db As Database Dim Con As Container Dim Doc As Document Set Db = CurrentDb Set Con = Db.Containers(StrObjectType) Set Doc = Con.Documents(StrObjectName) Doc.UserName = StrUserName Doc.Permissions = Doc.Permissions And Not FlgPermission Exit Function ErrAssignPermissionRemove: DisplayMessageCritical "Function 'Ap_AssignPermissionRemove' did not complete successfully.", "Error Message" Exit Function End Function مثال على إضافة جميع الصلاحيات للمستخدم الموجود حالياً على الجدول TblUser Ap_AssignPermissionAdd CurrentUser ,"TblUser","Tables",dbSecFullAccess مثال على إزالة جميع الصلاحيات لمستخدم يدعى Amjad من الجدول TblUser Ap_AssignPermissionRemove "Amjad" ,"TblUser","Tables",dbSecFullAccess للتحقق من أن الكود يعمل جيداً إذهب إلى User And Group Permission كما هو موضح في الصورة وتأكد من ذلك

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

أعود مرة ثانية الى الموضوع بعد إنقطاع طويل عن المنتدى لظروف خارجة عن إرادتي وسوف اكرس كل جهدي ان شاء الله لتقديم افضل ما عندي كما ذكرت كل خبرتي رح حطا في هالموضوع هاد بسم الله نبدأ 1-التخطيط للحماية: 1-تصنيف المستخدمين الى مجموعات كل مستخدم ينتمي الى مجموعة عمل مثال على ذلك مجموعة المحاسبة مجموعة مدخلين البيانات مجموعة المشرفين 2-توزيع الصلاحيات على المجموعات وتجنب اخي الكريم تجنب توزيع الصلاحيات على لكل مستخدم على حدا لأنه من السهل توزيع الصلاحيات على اربع او خمس مجموعات ونسبة وقوع الخطأ تكون 5-10 % ومن الصعب ضبط و توزيع الصلاحيات عى 30 مستخدم أو اكثر تكون نسبة الخطأ تتجاوز 50% وهذه من واقع تجربة 3-برمجة نموزج تسجيل دخول الى البرنامج تتألف من ثلاثة خالنات أسم المستخدم أسم مجموعة العمل خانة إدخال كلمة المرور 3-حماية البيانات من التعديل والحذف او الوصول اليها من المستخدمين 4-التحقق من خصائص النظام قبل الدخول الى البرنامج 5-منع الوصول الى بعض النمازج من خلال حماية القوائم 6-عمل مخطط للصلاحيات للرجوع إليها مستقبلاً كما هو موضح في الصورة 7-النسخ الإحتياطي الألي لقواعد البيانات حماية البيانات من التعديل او الحذف او حتى الإطلاع عليها من قبل المستخدمين تأتي بالدرجة الأولى بالنسبة لي ولا أبالغ عندما أقول بأنه قد أصابني هوس بخصوص هذا الموضوع لذلك سوف أتناول حماية الجداول والاإستعلامات في الفترة الحالية واليك هذه الأوامر من مكتبة Dao في الكلاس PermaissionEnum dbSecCreate dbSecDBAdmin dbSecDBCreate dbSecDBExclusive dbSecDBOpen dbSecDelete dbSecDeleteData dbSecFullAccess dbSecInsertData dbSecNoAccess dbSecReadDef dbSecReadSec dbSecReplaceData dbSecRetrieveData dbSecWriteDef dbSecWriteOwner dbSecWriteSec هذه الأوامر لحماية او ازالة الحماية من الجداول الإستعلامات النماذج التقارير والماكرو والذي سوف أتناوله الأن الاأوامر الخاصة بالجداول واللإستعلامات وهي dbSecFullAccess "إضافة او إزالة جميع الإذونات" dbSecInsertData "إضافة أو إزالة خاصية إدخال البيانات" dbSecReadDef "إضافة أو إزالة خاصية قرائة التصميم" dbSecRetrieveData "إضافة أو إزالة خاصية الوصول أو قراءة البيانات" dbSecReplaceData "إضافة أو إزالة خاصية التعديل على البيانات" dbSecDeleteData "إضافة أو إزالة خاصية حذف البيانات" بإمكانك تجربة إضافة أو إزالة الأذونات عن طريق الكود في المثال الذي سوف أرفقه لاحقاً كما بإمكانك من خلال الأكسيس إضافة أو إزالة الصلاحيات كما هو موضح في الصورة لكن عيب هذه الطريقة وهو في حال نقل قاعدة البيانات الى جهاز اخر يترتب عليك توزيع الصلاحيات من جديد والكثير من العيوب الإخرى يتبع