عمل شاشة دخول

[2saad]

إخواني الأعزاء أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته

كل عام وأنتم بخير يغفر الله لنا ولكم في هذا الشهر المعظم

عندي ملف به جدول وفورم دخول للبرنامج ( login )

أنا عايز لما اختار اسم الميتخدم من الكمبوبكس يجلب الاسم كاملا وصورة المستخدم

انا اشتغلت عليه ولكن لم أفلح

saad.accdb

[Foksh]

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

ابسط طريقة هي استخدام الدالة Dlookup بشرط رقم الموظف الفريد .

 

لم اطلع على الملف ، هي مجرد فكرة.

[kkhalifa1960]

تفضل استاذ @2saad طلبك حسب مافهمت . ووافني بالرد .

Saad.rar

[Foksh]

1 ساعه مضت, Foksh said:

ابسط طريقة هي استخدام الدالة Dlookup بشرط رقم الموظف الفريد .

تنفيذاً لما ذكرته لك :-

قمت بتغيير عنصر الصورة القديم الى عنصر صورة غير منضم فقط . والحدث في بعد التحديث للكومبوبوكس :-

Private Sub cmbUser_AfterUpdate()
On Error GoTo Err_Handler

    Me.txtFullName = DLookup("fullname", "tblUsers", "username = '" & Me.cmbUser.Column(1) & "'")
    Me.imgPhoto.Picture = DLookup("Photo", "tblUsers", "username = '" & Me.cmbUser.Column(1) & "'")

Exit Sub

Err_Handler:
    MsgBox "حدث خطأ : الصورة غير موجودة في المجلد", vbCritical + vbMsgBoxRight, "خطأ"
    Me.imgPhoto.Picture = ""
End Sub

أما فكرة الأستاذ خليفة 

فهي جميلة لأنها تقوم ببناء المسار الكامل للصورة أولاً .

ثانياً أسهل لإضافة حقول أخرى في المستقبل ، لو حبيت تطور الفكرة . ثالثاً تتعامل مع جميع الإحتمالات . وانا افترضت أن مسار الصور في الحقول ثابت وغير قابل للعبث

 

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

 

saad1.zip

تم تعديل منذ 2 ساعات بواسطه Foksh
تنسيق الرد

[2saad]

شكرا لكما وبارك الله فيكما وأكثر الله من أمثالكما وزادكما الله من علمه

[2saad]

لو سمحت استاذي الفضل خليفة أنا مش عارف اتعامل مع اضافة الصور

ممكن شرح بسيط 

[kkhalifa1960]

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

                                                                  

Saad.rar

تم تعديل منذ 15 دقائق بواسطه kkhalifa1960