إدارة الصلاحيات في أكسس بمصادقة ويندوز

dbprog كتب:

السلام عليكم

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

تقبل تحياتي

وأنا أشكرك أيضا على مرورك وثناءك

السلام عليكم

تأخرت في العودة أكثر من اللازم .. آسف لهذا

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

في النهاية استقرت الفكرة على النموذج الظاهر أمامكم، والمرفق نسخة منه هنا... UsersManager.zip

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

أرجو منكم إبداء أرائكم ملاحظاتكم.. لأستفيد منها في إكمال هذا العمل... ولن تحرموا الأجر من الله.

سأقوم بشرح الشفرة ومنطق المعالجة لهذا العمل في جلسة قادمة بمشيئة الله

الله يعطيك العافية أخي القحم

ويجزيك عنا كل خير

ويبارك فيك يارب ويرزقك ويزيدك من علمه

إلى الأمام إن شاء الله تعالى

اخى الكريم بارك الله فيك

النموذج لا يسحب البيانات

و يعطى automation error

عند فتح النموذج عند هذا السطر

Set objDomain = GetObject("WinNT://." & ",computer")

hamidymom كتب:

الله يعطيك العافية أخي القحم

ويجزيك عنا كل خير

ويبارك فيك يارب ويرزقك ويزيدك من علمه

إلى الأمام إن شاء الله تعالى

بارك الله فيك أخي حمدي.. وجزاك الله خيرا على هذا الدعاء والثناء

أطلب منك ألا تبخل علي بالمشورة وأتمنى، أن تساعدني فأفكارك وآراك...

Abo_Yossof كتب:

اخى الكريم بارك الله فيك

النموذج لا يسحب البيانات

و يعطى automation error

عند فتح النموذج عند هذا السطر

Set objDomain = GetObject("WinNT://." & ",computer")

أهلا بك أبا يوسف

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

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

للأهمية:

الشفرة تدعم الحاسب المحلي فقط.. بمعني تعيد بيانات المستخدمين المسجلين على الحاسب؛ حتي ولو كان متصل بالشبكة!!

قمت بهذا الإجراء كي أمنع الشفرة من قراءة بينات الشبكة التي أعمل عليها لأنها تعيد أكثر من 2000 مستخدم، وهذا الكم من البيانات يعيقني عند كتابة الشفرة وتحفحصها...

إذا أرت العمل على كلا الجانبين قم بعمل التالي:

- سمي متغيرا متنوعا وضعه في كل مكان توجد في النقطة الفارزة (.) هاك المثال (ضع المتغير في أعلى الوحدة النمطية)

Set objUser = GetObject("WinNT://./" & strUserName & "")

//-------------------------------------------------------------------//

Set objUser = GetObject("WinNT://" & varYourVariable & "/" & strUserName & "")

- غير هذا السطر أيضا

Set objUser = GetObject("WinNT://" & strComputer & "/" & strUserName & "")

//--------------------------------------------------------------------------------------//

Set objUser = GetObject("WinNT://" & varYourVariable "/" & strUserName & "")

-وهذا أيضا

Set zUserDetail = GetObject("WinNT://" & zComputerName & "/" & strUserName & ",user")

//-------------------------------------------------------------------//

Set zUserDetail = GetObject("WinNT://" & varYourVariable & "/" & strUserName & ",user")

- احذف كلمة Computer الموجودة في هذا السطر وأبقي علامتة التنصيص المزدوجة كما هي بدون فراغ كالتالي

Set objDomain = GetObject("WinNT://." & ",computer")

//-------------------------------------------------------------------//

Set objDomain = GetObject("WinNT://" & varYourVariable & "")

*** اسند المتغير الذي أنشأته إلي (اسم المجال) إذا أردت فحصه على بيئة الشبكة، أو اسم المجال/اسم الحاسب إذا أرت فحصه على بيئة الحاسب المحلي بالطريقة التالية

//اسناد إلى المجال
varYourVariable="UserDomain"

//اسناد إلى الحاسب
varYourVariable="UserDomain/ComputerName"

السلام عليكم

في المرفق السابق لاتقوم لائحة حساب المستخدم بعكس البيانات الصحيحة للمستخدمين..

قمت بإجراء التعديل اللازم.. أرجو منكم إجراء المعاينة والمطابقة لكلا المثالين مع بيانات المستخدمين لديكم..

هذا المثال بعد التعديل.. UsersManager.zip

صورة توضح التطابق بين البيانات..

شكرا لك

ما شاء الله

أسأل الله العظيم رب العرش الكريم أن يوفقك لما يحبه ويرضاه

بالفعل غيرت أفكارنا بنور جديد

وأظفت لمسات جديدة لك الشكر والتقدير عليها

سيدي الفاضل .. اسمح لي بسؤال خارج نطاق الدرس القيم

ولكن داخل نطاق المثال المطروح :wink:

انت استخدمة صور للمجلدات تتغير عند النقر

في الوهله الاولى ظننتها صور تتغير بمجر النقر

وعند تفحص الكود ودجة شيء اخر تماما

ان الصورة تتغير بالقيمة وهذي صور من النظام تقريبا

سؤالي ما هو هذا الكائن ...

أعذرني قد نسيت جوهر الدرس وابحرت في امواج الكائن والصور الناتجه عنه بتغير القيمة :blink:

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

برنامج المستخدمين أروع من الرائع ، وعظيم جداً !!

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

فكرة رائعة جزاك الله خيراً

جزاك الله خيرا على هذه المعلومات القيمة والبرنامج الرائع

بارك الله فيك أخي القحم

نسأل الله أن تكون في ميزان حسناتك

ويبارك لك في يدريتك