كيف اضيف صورة لمستخدم جديد وتظهر عند شاشة الدخول

[محمد صلاح1]

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

علي ان تحفظ الصور التي يتم أختيارها من قبل المستخدمين لأنفسهم في مجلد باسم مناسب يتم إنشاءه عند إدارج أول صورة داخل الملف الموجود به قاعدة البيانات

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

والشكر موصول لكل مشارك بعلم ومتعامل بحلم

صورة المستخدم.accdbFetching info...

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

[محمد صلاح1]

للرفع

[ابو البشر]

  في 15‏/7‏/2019 at 09:32, محمد صلاح1 said:

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

علي ان تحفظ الصور التي يتم أختيارها من قبل المستخدمين لأنفسهم في مجلد باسم مناسب يتم إنشاءه عند إدارج أول صورة داخل الملف الموجود به قاعدة البيانات

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

والشكر موصول لكل مشارك بعلم ومتعامل بحلم

صورة المستخدم.accdb 1.13 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 9 downloads

Expand  

البرنامج المرفق لا يضيف مستخدم جديد ؟؟؟؟

[محمد صلاح1]

أخي الكريم لا ادري أين المشكلة في الكود

[محمد صلاح1]

أ @ابو البشر

عذراً علي الخلط غير المقصود الذي حدث في اكواد النسخة السابقة

إليك وإلي الأخوة الذين الرغبين بالمشاركة والنفع بالمرفق نسخة جديدة معدلة

تم فيها إضافة اسم مستخدم جديد / محمد صلاح وكلمة المرور / 1

صورة المستخدم1.accdbFetching info...

[محمد صلاح1]

للرفع

[محمد صلاح1]

للرفع والمساعدة

[محمد صلاح1]

للرفع

[qassim-t]

افتح المرفق ووافني بالنتيجة

picture-of-user-with-image1.rarFetching info...

[محمد صلاح1]

  في 17‏/7‏/2019 at 21:49, qassim-t said:

افتح المرفق ووافني بالنتيجة

Expand  

أ @qassim-t

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

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

[ابوآمنة]

 

شاهد الموضوع تم إضافة صورة للمستخدم

[Elsayed Bn Gemy]

مرفقك فكرنى بمرفق قديم لى يااااااااااه هههههههههههه ايام
عمتا قمت بتعديل بسيط على مرفقك ستلاحظه
الصور يجب ان تكون فى نفس مسار قاعدة البيانات
ويجب ان تكون امتدادها jpg
اسماء الصور هى اكواد المستخدمين المستخدمة فى حقل SN فى جدول user  

ادرجت حدث فى كومبوكس الاسم فى حدث بعد التحديث  يجلب رقم المستخدم

 

صورة المستخدم.rarFetching info...

[محمد صلاح1]

  في 18‏/7‏/2019 at 08:57, ابوآمنة said:

شاهد الموضوع تم إضافة صورة للمستخدم

Expand  

شكراً للإرشاد - عمل جميل - سوف اطالعة لأري مدي مناسبته لعملي

  في 18‏/7‏/2019 at 09:03, Elsayed Bn Gemy said:

مرفقك فكرنى بمرفق قديم لى

Expand  

أسعدني مروركم ومشاركتكم الكريمة كما يشرفنا الاقتباس من أفكارك الجميلة والإبداعية أ @Elsayed Bn Gemy

ولكن أسمح لي بتوضيح المطلوب كما يظهر بالصورة المرفقة وأكرر شكري لكم وبانتظار المزيد منكم  

 

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

[محمد صلاح1]

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

* عندإنهاء إدخال بيانات مستخدم جديد في نموذج Users وعند الضغط علي زر إضافة الموجود تحت فريم اظهار الصورة بالنموذج أريد عمل التالي:

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

2- إنشاء أكواد لتفعيل زري تعديل صورة بأخري أو حذف صورة.

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

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

[Elsayed Bn Gemy]

 

  في 18‏/7‏/2019 at 09:48, محمد صلاح1 said:

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

Expand  

المرفق الذى ارسلته لك  يقوم بعمل هذه الاضافة

انظر الى نموذج Step3

[محمد صلاح1]

  في 18‏/7‏/2019 at 14:27, Elsayed Bn Gemy said:

انظر الى نموذج Step3

Expand  

جميل وأعلم ذلك أخي الكريم ولكن أين بقية الخطوات اعتقد أنها مترابطة ومتصلة ببعضها

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

[Elsayed Bn Gemy]

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

[qassim-t]

  في 18‏/7‏/2019 at 06:21, محمد صلاح1 said:

أ @qassim-t

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

Expand  

المرفق الذي ارفقته فيه اضافة تموذج جديد لاضافة الصورة فقط ولم اجري اي تعديل..وقد استفدت منه من بعض المواقع الاجنبية عسى ان يفيدك

بالتوفيق ان شاء الله

[Elsayed Bn Gemy]

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

Dim des, fileto As String
Set BnGemy = CreateObject("Scripting.FileSystemObject")
des = CurrentProject.Path & "\" & "User Photo"
If Len(Dir(des, vbDirectory)) = 0 Then
MkDir Path:=des
End If

حيث ان des  هو المسار الخاص بالمجلد
 

 

ثانيا كود اختيار الصورة من نوع jpg
 

Dim x As Object
Set x = Application.FileDialog(3)
With x
If Not IsNull(Attach) = True Then
.InitialFileName = Attach
Else
.InitialFileName = ""
End If
.AllowMultiSelect = False
.Filters.Clear
.Filters.add "All jpg", "*.jpg"
 If .Show = True Then
 fileto = Trim(.SelectedItems(1))
 End If
 End With
 Set x = Nothing
end if

 

 

حيث ان fileto  هو مسار الصورة المختارة

 

ثالثا كود  نسخ الصورة من  مسارها المحدد الى مجلد User Photo  بنفس كود العميل  SN   حيث سيتم تسميتها بهذا الاسم تلقائيا

اضف هذا الكود الى وحدة نمطية جديدة

Option Compare Database
Private Declare Function CopyFileA Lib "kernel32" (ByVal ExistingFileName As String, _
            ByVal NewFileName As String, ByVal FailIfExists As Long) As Long
Public Function Copy(FileSrc As String, FileDst As String, Optional NoOverWrite As Boolean = True) As Boolean
    Dim Flag As Long
    Dim Name As String
    Name = Right(FileSrc, Len(FileSrc) - InStrRev(FileSrc, "\"))
    If CopyFileA(FileSrc, FileDst & Name, NoOverWrite) Then
       Copy = True
    Else
        Copy = False
    End If
End Function
 

 

 وهذا كود النسخ 

 Copy fileto, des & "\" & SN, True

 

حيث ان fileto  كما قلنا سابقا هو مسار الصورة المختارة
 و SN  هو كود العميل فى جدول Users  والذى سيتم تسميت الصورة به

لم يتبقى الى كود الحذف

Kill PhotoUser

PhotoUser  هو مسار  الصورة المراد حذفها

اعتذر لك لعدم تقديم مرفق لك والله مشغول فعلا ادعو الله لى

شكرا لك
 

[qassim-t]

  في 18‏/7‏/2019 at 15:01, Elsayed Bn Gemy said:

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

Expand  

استاذنا العزيز والقدير جمال.. في برنامج الخليل المحاسبي ادخال الصورة بنفس الصفحة

فهل هذا يسبب مشاكل مستقبلا؟

تقديري واحترامي لك

[محمد صلاح1]

بداية أعتذر عن التأخير في التعليق والرد نظراً لأنقطاع الكهرباء والانترنت منذ الأمس

ثانياً كل الشكر للأخوة المشاركين وأخص بالذكر الاستاذ @Elsayed Bn Gemy علي اهتمامه وكرمه بالاعتناء بالنفع والمتابعة رغم مشاغلة اعانه الله وتقبل منه

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

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

[محمد صلاح1]

طيب يا جماعة إذا كان أ @Elsayed Bn Gemy مشغول

فهل ممكن أحد من الأخوة ممن لديه علم او فكرة أين توضع هذه الاكواد التي تفضل بها الأخ السيد في أي أحداث أو أزرار النماذجين Step3  و  Users

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

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

[محمد صلاح1]

للرفع

[محمد صلاح1]

  في 18‏/7‏/2019 at 15:15, Elsayed Bn Gemy said:

اولا كود انشاء مجلد جديد   فى نفس مسار قاعدة البيانات

Expand  

في أي النموذجين اضعه وتحت أي زر او حدث حدث

  في 18‏/7‏/2019 at 15:15, Elsayed Bn Gemy said:

ثانيا كود اختيار الصورة من نوع jpg

Expand  

في أي النموذجين اضعه وتحت أي زر او حدث حدث

  في 18‏/7‏/2019 at 15:15, Elsayed Bn Gemy said:

ثالثا كود  نسخ الصورة من  مسارها المحدد الى مجلد User Photo  بنفس كود العميل  SN   حيث سيتم تسميتها بهذا الاسم تلقائيا

اضف هذا الكود الى وحدة نمطية جديدة

Expand  

في أي النموذجين اضعه وتحت أي زر او حدث حدث وكيف وأين استدعي الوحدة النمطية

  في 18‏/7‏/2019 at 15:15, Elsayed Bn Gemy said:

وهذا كود النسخ 

Expand  

في أي النموذجين اضعه وتحت أي زر او حدث حدث

  في 18‏/7‏/2019 at 15:15, Elsayed Bn Gemy said:

لم يتبقى الى كود الحذف

Expand  

في أي النموذجين اضعه وتحت أي زر او حدث حدث

وعلي هذا لن يكون هناك حقل في جدول Users لتخرين مسار الصورة أليس كذلك أم لا؟

ارجو المساعدة

[ابوآمنة]

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

 

UsersAdd.rarFetching info...

تم تعديل يوليو 20, 2019 بواسطه ابوآمنة