اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by Elsayed Bn Gemy,

الردود الموصى بها

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

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

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

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

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

تم تعديل بواسطه محمد صلاح1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

أ @ابو البشر

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

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

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

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

رابط هذا التعليق
شارك

8 ساعات مضت, qassim-t said:

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

أ @qassim-t

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

تم تعديل بواسطه محمد صلاح1
رابط هذا التعليق
شارك

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

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

 

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

  • Like 1
رابط هذا التعليق
شارك

34 دقائق مضت, ابوآمنة said:

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

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

28 دقائق مضت, Elsayed Bn Gemy said:

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

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

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

 

إضافة صورة.jpg

تم تعديل بواسطه محمد صلاح1
رابط هذا التعليق
شارك

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

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

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

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

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

تم تعديل بواسطه محمد صلاح1
رابط هذا التعليق
شارك

 

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

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

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

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

رابط هذا التعليق
شارك

3 دقائق مضت, Elsayed Bn Gemy said:

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

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

تم تعديل بواسطه محمد صلاح1
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

8 hours ago, محمد صلاح1 said:

أ @qassim-t

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

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

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

رابط هذا التعليق
شارك

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

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  هو مسار  الصورة المراد حذفها

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

شكرا لك
 

  • Like 1
رابط هذا التعليق
شارك

10 minutes ago, Elsayed Bn Gemy said:

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه محمد صلاح1
رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه محمد صلاح1
رابط هذا التعليق
شارك

في ١٨‏/٧‏/٢٠١٩ at 17:15, Elsayed Bn Gemy said:

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

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

في ١٨‏/٧‏/٢٠١٩ at 17:15, Elsayed Bn Gemy said:

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

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

في ١٨‏/٧‏/٢٠١٩ at 17:15, Elsayed Bn Gemy said:

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

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

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

في ١٨‏/٧‏/٢٠١٩ at 17:15, Elsayed Bn Gemy said:

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

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

في ١٨‏/٧‏/٢٠١٩ at 17:15, Elsayed Bn Gemy said:

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information