إضافة وتعديل بيانات مستخدمين جدد وحاليين وفق نظام صلاحيات

[محمد صلاح1]

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

إضافة وتعديل بيانات المستخدم حسب صلاحيات العبادي.accdb

تم تعديل يوليو 29, 2019 بواسطه محمد صلاح1

[ابو عارف]

تفضل أخي محمد

بعد تعديل بيانات اضغط على زر "حفظ بيانات" في اسفل النموذج

BK .accdb

[محمد صلاح1]

أ @ابو عارف السلام عليكم ورحمة والله وبركاته

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

الأول الخاص بحفظ مسار صورة المستخدم وتعديله عند اللزوم (وهو موجود بالجدول) والثاني (غير موجود بالجدول) لتسجيل وقت أخر تعديل تم علي بيانات المستخدم

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

مع جزيل الشكر والتقدير لشخصكم الكريم وكل عام وأنتم بخير تقبل الله منك وعظم أجرك وجزاك عني كل خير

تم تعديل يوليو 30, 2019 بواسطه محمد صلاح1

[ابو عارف]

وعليكم السلام و رحمة الله و بركاته

16 ساعات مضت, محمد صلاح1 said:

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

عدلت لك كل ما تفضلت و اكثر ان شاء الله

علما بان زر (اضافة/تغير صورة) تم ايقاف تفعيله لحين تضغط على احد زرين اضافة مستخدم أو تغير بيانات مستخدم الحالي ، حتى لايتم اختيار صورة قبل اختيار مستخدم بعد ضغط على احد زرين اضغط على زر و اختر الصورة من جهاز بعد ضغط على صورة سيعرض الصورة في مكانها ، و مسارها في مربع مسار الصورة

BK .accdb

[محمد صلاح1]

2 ساعات مضت, ابو عارف said:

عدلت لك كل ما تفضلت و اكثر ان شاء الله

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

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

تم تعديل يوليو 31, 2019 بواسطه محمد صلاح1

[محمد صلاح1]

ما شاء الله زي الفل أستاذنا الكريم @ابو عارف

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

[ابو عارف]

7 ساعات مضت, محمد صلاح1 said:

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

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

7 ساعات مضت, محمد صلاح1 said:

وكذلك تعديل أخير بعمل تحديث للنموذج فورا الانتهاء من تعديل البيانات بعد الضغط علي زر تعديل البيانات

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

8 ساعات مضت, محمد صلاح1 said:

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

و لك الشكر على دعاء و كلمات طيبة

BK .accdb

[الحلبي]

السادة الافاضل

بعد ادخال مستخدم جديد وكلمة مرور له تظهر هذه الرسالة يرجى تكرما معرفة سبب ظهور تلك الرسالة 

[محمد صلاح1]

أخي وأستاذي الفاضل @ابو عارف بارك الله فيك وجزاك عنا خير الجزاء

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

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

تم تعديل أغسطس 1, 2019 بواسطه محمد صلاح1

[ابو عارف]

3 ساعات مضت, محمد صلاح1 said:

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

اخي محمد جربت اكثر من مرة لا يوجد اي مشكلة يمكن حدوث تلك المشكلة حين تغير صورة تكون مربع يوزر فارغة و الا يعمل حسب المطوب

ولكن كاتت هناك مشكلتان

1)مع تغير اسم المستخدم كانت تدرج صورة جديدة دون حذف صورة القديمة و تم تعديل  

2) اعادة صورة قديمة في نموذج بعد كبس زر حفظ بيانات ولاكن كانت تختفي بعد اعادة فتح النموذج و تم حلها ايضا و اليك المرفق المعدل:

BK .accdb

[محمد صلاح1]

أ @ابو عارف بارك الله فيك ونفعنا بما قدمتم عاجز عن شكرك شكر الله لك وجزاك عنا بالخير الكثير وأعتذر منك أن كنت قد اتعبتك معي

[ابو عارف]

حياك الله اخي انا في خدمة 

[الحلبي]

الاستاذ / @ابو عارف

اقتباس

حياك الله اخي انا في خدمة 

بالنسبة لسؤالي عن الرسالة التي ظهرت لي في المشاركة اعلاه هل لها تفسير عند حضرتك ام لا

[ابو عارف]

في ٢‏/٨‏/٢٠١٩ at 00:56, حلبي said:

بالنسبة لسؤالي عن الرسالة التي ظهرت لي في المشاركة اعلاه هل لها تفسير عند حضرتك ام لا

الاستاذ محمد/ سبب مشكل هو نقص فنكشن بأسم (ErrMsg) لان صاحب موضوع رفع جزء من البرنامج  حتى بعد تخطي خطوة هذا ستواجه مشكلة تالية و هي عدم وجود نموذج لانتقال اليه بعد دخول 

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

 

Function ErrMsg(num As Integer) As Variant
Dim Myarray(1 To 40) As Variant
Myarray(9) = ""
Myarray(23) = "انتباه"
Myarray(32) = "فضلاً يجب أن تقوم بإدخال اسم المستخدم"
Myarray(33) = "فضلاً يجب أن تقوم بإدخال كلمة السر"
Myarray(34) = " يجب ألا تتجاوز كلمة السر خمسون حرف أو رقم"
Myarray(35) = "من حُسن إسلام المرء تركه ما لا يعنيه"
Myarray(36) = "اسم المستخدم أو كلمة السر غير صحيحة ،،، يرجى إعادة المحاولة"
Myarray(37) = "سيتم إغلاق البرنامج الآن ،،، يرجى مراجعة المبرمج"
ErrMsg = Myarray(num)
End Function

و اليك المثال

Stor.accdb

تم تعديل أغسطس 4, 2019 بواسطه ابو عارف
اضافة مثال

[الحلبي]

اقتباس

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

جزاكم الله خيرا وبارك فيكم وكل عام وانتم بخير

الأن تمام