محمد صلاح1

للرفع

للرفع

أنظر هنا لعله يفيدك https://www.officena.net/ib/topic/92278-تجربة-عدم-تغيير-اسم-القاعدة-او-نسخها-الى-جهاز-اخر/page/2/?tab=comments#comment-578156

السلام عليكم بالمرفق فكرة عمل صلاحيات مستخدمين وأريد عمل تطوير أو تعديل عليها ( الاسم: محمد - المرور: 12345 ) الفكرة الرئيسية تدور حول تحديد صلاحية المستخدم باختيار مربعات أسماء النماذج سواء كلها أو بعضها والطريقة هنا سهلة ومناسبة لتعاملها مع 3 نماذج فقط والتعديل المطلوب علي نموذج (تعديل صلاحيات المستخدمين - EditFlagsUserDB) ذو شقين - الأول إذا كانت النماذج المطلوب عمل صلاحيات لها كثيرة بحيث لا يتسع نموذج تحديد الصلاحيات هذا لضمها بنفس الطريقة الحالية وإن أتسع فسوف يستغرق ذلك وقتاً ومجهوداً في إنشائها وتحديد الكل منها أو بعضها فضلاً عن أن أحتمال وجود أخطاء أثناء تحديد أو عدم تحديد اليدوي لاسماء نماذج ليست مطلوبة لإعطاء صلاحيات لها وعليه ما هو أفضل فكرة في طريقة التعامل مع نماذج كثيرة تحتاج لإعطاء صلاحيات مستخدمين لها سواء أحتجنا لتحديدها كلها بضغطة زر أو لتحديد بعضها دون الأخر - والشق الثاني ماذا إذا كنا تريد عمل صلاحيات معينة (نوعية) علي بعض النماذج مثل الفتح فقط (كبداية) لمستخدم زائر تم إدخال بياناته ليستعرض العمل وتحويل نفس النماذج لصلاحيات كاملة من فتح وإضافة وتعديل وحذف وطباعة عند رغبة الزائر في التحول إلي مستخدم دائم ليتمتع بكافة الصلاحيات من خلال الاشتراك بالبرنامج وعليه ما هي أفضل طريقة لتصميم وتنفيذ ذلك التحول مع مراعاة أن يتم ذلك في طريقة عمل هذين الشقين آليا أو تلقائياً أي برمجياً دون تدخل من المستخدم بداية أو بمجرد تسجيل بيانات الزائر كعضو جديد عند أول مرة وعند التحول بتفعيل اشتراكه كمستخدم دائم فهل يمكن ذلك ؟! وإن كان ممكناً ارجو التطبيق والتعديل علي نفس المرفق سواء بالطريقة الحالية أو بخلافها وشكرا للجميع وبانتظار أبداعاتكم وحسن مشاركتم فكرة تعديل صلاحيات.accdb

جزأ الله الأخ والمهندس / محمد عصام علي مجهوده الطيب وأعماله المتميزة ونسأل الله له الشفاء بالمرفق أحد أعمال الاستاذ @ابا جودى الواردة بهذا برابط هذا الموضوع وقد أعجبتني فكرة التسجيل الواردة فيه وأريد تطويرها فكرة التسجيل والتفعيل الموجودة بالمرفق تعتمد علي أن الأدمن هو أحد مجموعات العمل وعليه عند طلب التسجيل ومن نفس قاعدة البيانات يستطيع الأدمن من خلال صلاحيته الموافقة بالتفعيل من عدمه لطلبات التسجيل للأعضاء الجدد. والتعديل أو التطوير المطلوب للفكرة هو عن كيفية التسجيل والتفعيل بنفس الطريقة (بين راغب بالأشتراك "مستخدم" وبين صاحب) ولكن عبر التواصل من خلال إرسال طلب عبر الانترنت بالأيميل لطلب التسجيل كون النسخة نسخة تجريبية وهذا بالطبع يتطلب وجود الانترنت ليتم الرد بالتفعيل والمطلوب هو إيجاد آلية تسمح بتطبيق التفعيل المطلوب علي مرفق الاستاذ أبو جودي أتمني المشاركة من الجميع وجزاكم الله خيراً SecurityLevel group (1).rar

بعد التطبيق ظهر معي هذا الخطأ بالكود

للرفع

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

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

تسلم أيديك أ @ابو عارف وبارك الله فيك بقي أخر تعديل حتي يتم المطلوب علي خير بإذن الله وهو تعديل كودي وظائف التأكد من رقم الماك ادرس في وحدة الحماية Function HWND_GET() Set root = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2") Set disks = root.execquery("select * from win32_logicaldisk") For Each disk In disks If disk.volumeserialnumber <> "" Then HWND_GET = disk.volumeserialnumber Exit For End If Next End Function Function HWND_PROTECTION() Set root = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2") Set disks = root.execquery("select * from win32_logicaldisk") For Each disk In disks If disk.volumeserialnumber <> "" Then HWND_PROTECTION = disk.volumeserialnumber Exit For End If Next If HWND_ID = HWND_PROTECTION Then HWND_PROTECTION = "True" Else HWND_PROTECTION = "False" End If End Function

للرفع

للرفع

بالمرفق عمل يقوم بعمل نسخة من مراجع مكتبات قاعدة البيانات وإعادتها والمطلوب هو عمل تعديل علي زر النموذج الذي يقوم بذلك في المرفق بحيث يقوم كود الزر الأول المسمي " نسخ المراجع " بإنشاء ملف إذا لم يكن موجود في نفس مجلد القاعدة باسم "tsjeel" ثم يتم نسخ مراجع المكتبات بداخلة والتعديل علي كود الزر الثاني المسمي " إضافة المراجع للقاعدة " ليقوم بإعادة تسجيل ملفات مراجع المكتبات من نفس الملف "tsjeel" مع إمكانية البحث عن ملفات أخري لإضافتها لمراجع المكتبة من نفس الامتدادات وشكراً tsjeel2.mdb

تيسيراً علي من يريد المساعدة هذا هو كود الأداة المرفقة ووظيفتها أنها تقوم باستخراج ( رقم الهارد , البروسيسور , المذربورد , الماك أدريس ) ثم ينسخه كما أفاد بذلك أ / حسنين في موضوعه هنا ' Get clipboard text Set objHTML = CreateObject("htmlfile") Set Ws = CreateObject("WScript.Shell") Clipboardtext = objHTML.ParentWindow.ClipboardData.GetData("text") sText = HWND_GET 'Set Clipboard Ws.Run "mshta.exe ""javascript:clipboardData.setData('text','" & Replace(Replace(sText, "\", "\\"), "'", "\'") & "');close();""", 0, True MsgBox "Copied!" Function HWND_GET() Set root = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2") Set disks = root.execquery("select * from win32_logicaldisk") For Each disk In disks If disk.volumeserialnumber <> "" Then HWND_GET = disk.volumeserialnumber Exit For End If Next End Function وهذا هو الكود الذي تفضل به الأخ أبو جودي والذي أود تعديل الأداة إليه لتصبح وظيفتها استخراج رقم (الماك أدرس فقط) ثم ينسخه بنفس الطريقة ليصبح هو رقم الجماية الأساسي في طريقة أ / حسنين Public Function getMacAddress(Optional strComputer As Variant) As String Dim oWMIService As Object Dim oMacs As Object Dim oMac As Object Dim strComp As Variant 'if no computer name is passed then use the name of the computer running the code. If IsMissing(strComputer) Then strComputer = "." End If Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set oMacs = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration") 'Win32_ComputerSystem For Each oMac In oMacs If IsNull(oMac.MacAddress) = False Then 'Debug.Print oMac.MacAddress getMacAddress = oMac.MacAddress End If Next End Function وتعديل هاتين الوظيفتين ليتم التوافق مع وظيفة الأداة بعد التعديل المطلوب Function HWND_GET() Set root = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2") Set disks = root.execquery("select * from win32_logicaldisk") For Each disk In disks If disk.volumeserialnumber <> "" Then HWND_GET = disk.volumeserialnumber Exit For End If Next End Function Function HWND_PROTECTION() Set root = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2") Set disks = root.execquery("select * from win32_logicaldisk") For Each disk In disks If disk.volumeserialnumber <> "" Then HWND_PROTECTION = disk.volumeserialnumber Exit For End If Next If HWND_ID = HWND_PROTECTION Then HWND_PROTECTION = "True" Else HWND_PROTECTION = "False" End If End Function

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

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

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

شكرا للتجاوب أ عبد اللطيف ولكن هل تقصد كارت الشاشة الأوت فليس لدي كارت خارجي وإن كنت تقصد كارت الشاشة الخاص بالبوردة (الان) فكيف أحصل علي رقمه

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

شفاك الله وعافاك لا بأس طهور إن شاء الله

شكراً جزيلاً للاستاذ @ابو ياسين المشولي وجزاك الله خيراً

أولاً أعتذر للتأخير في الرد نظراً لوجود حالة وفاة بالعائلة (رحم الله موتى المسلمين وتغمدهم بواسع رحمته) ثانياً الشكر موصول للاستاذين @ابو ياسين المشولي & @د.كاف يار علي متابعتهما ومجهوهما الكريم معي ثالثاً بالفعل عمل أ / أبو ياسين الأخير قريب جداً من المطلوب ولكن فاضل تكة صغيرة ويكتمل المطلوب بالصورة المرجوه فرغم وجود الملف الصوتي في مجلد القاعدة ورغم تعديل مسمي هذا الملف الصوتي كما بكود عند التحميل إلا أنه في كل مرة يتم فيها فتح النموذج يطالبني بالبحث عن الملف الصوتي والمطلوب هو أن يتم تشغيل الملف الصوتي بمجرد فتح النموذج مع إمكانية أو إتاحة زر للبحث عن ملف صوتي جديد عند الحاجة لذلك كل فترة ليعمل بنفس الطريقة تلقائياً بمجرد فتح النموذج لا أن يطالبني عند كل فتح للنموذج بتحديد نفس الملف مع خالص الشكر التقدير

أ @ابو ياسين المشولي شاكر لحضرتك متابعتك الكريمة واسمح لي فضلاً بعرض ملاحظتين: 1- مازلت أحتاج لزر التصفح بحثاً عن ملف صوتي عند الحاجة لذلك بنفس كيفية قراءة وإدراج المسار تلقائياً في مكانه 2- هل بالإمكان جعل زر التوقف أشبة بعمل زر البيوس بحيث يبدأ من حيث النقطة التي توقف عندها وليس كما في الوضع الحالي بأن يعيد تشغيل الملف الصوتي من بدايته كلما ضغط زر التوقف مع الشكر والتقدير

شكرا للتجاوب أ حسين كمال هناك ملاحظتين أخي الكريم بارك الله فيك 1- عند فتح النموذج تظهر رسالة (الكائن غير موجود في عنصر التحكم هذا). 2- جميل أن يتضمن زر التشغيل عمل زر التصفح بعد الافادة بعدم وجود الملف ولكن بعد تحديد الملف وظهور في المسار لا يعمل الملف الصوتي ؟! فضلاً عن أني سوف اضطر عند كل دخول لاختيار الملف وهذا ما لا أريده فالملف الصوتي الأساسي سيكون بمجلد القاعدة مع أمكانية تغير الملف كل فترة وأكرر شكري وتقديري

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