الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة إدارج صورة الموظف في النماذج

بدأه aksfl في 10 نوفمبر 2009 · 18 رد · 1,341 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

دخلت موضوع للأخت زهرة الله يسلمها

/index.php?showtopic=170595

وطبقت الموجود

المشكلة أنا عندي أكثر من فورم تظهر به صورة الموظف

كيف يمكنني إدارج صورة الموظف في جميع النماذج

أتمنى الطريقة ياأخوان

#2

لهدرجة مافي حل للموضوع

#3

أخى الكريم

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

ويمكنك أخذ الكود من هذا الموضوع /index.php?showtopic=198566

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

تحياتى

محمد ندا

... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...

#4

والله ماعرفت له ياخوي كيف أضيف الصورة في جميع نماذج الموظف

يعني لما أضغط على سجل الإجازات توجد صورة للموظف لا تظهر وفي أي سجل أخر للموظف أيضا

بأستثناء فورم الأخت زهرة لما أدخل رقم الموظف أرى الصورة أما النماذج لا تظهر الصورة

#5

تكرم يا أخى الكريم بإرفاق مثالك ويتم التعديل عليه إن شاء الله.

تحياتى

محمد ندا

... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...

#6

المثال مرفق كما طلبت

المطلوب :

عند إدخال الصور في الفورم الرئيسي لإدخال الصور frmemp

إظهار الصور في النموذج personal + personal1 عند فتح ملف الموظف

ياليت تكتب لي الطريقة بعد والأكواد التي يتم إضافتها وشاكر لك أخوي

mub.zip

#7

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

أخي الكريم حول القاعدة لـ 2003 وإن شاء الله الأمر بسيط

(`'•.¸(` '•. ¸ * ¸.•'´)¸.•'´)

«´¨`.¸ أبو رهـــــــف ¸.´¨`»

(¸. •'´(¸.•'´ * `'•.¸)`'•.¸ )

¸.•’’ ’’

( `•.¸

`•.¸

#8
أبو رهف كتب:
السلام عليكم ورحمة الله وبركاته ..

أخي الكريم حول القاعدة لـ 2003 وإن شاء الله الأمر بسيط

تفضل أخوي تم التحويل 2003

mub.zip

#9

بســم الله الـرحمــن الرحيــم

اخي السائل

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

المثال المرفق للاخت زهره العبدالله وهذا بحد ذاته لايمكن ان اعدل عليه اواقترب منه احتراماً لها ولعلمها

ولكن عملت لك نموذج يفي بالغرض ان شاء الله

اختكم روان

تم تعديل الخطاء

______________________.rar

تم تعديل هذه المشاركة بواسطة roan27 في 12 نوفمبر 2009 في 00:08

نقول الى الغاليه

أم عهود زهرة الأكسيس بدون منافس

للنجاحات أناس يقدرون معناها ، وللإبداع أناس يحصدونه

لذا نقدّر جهودك وابداعك، فأنتِ أهل للشكر والتقدير ..

فلكِ منا كل الثناء والتقدير

#10
roan27 كتب:
بســم الله الـرحمــن الرحيــم

اخي السائل

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

المثال المرفق للاخت زهره العبدالله وهذا بحد ذاته لايمكن ان اعدل عليه اواقترب منه احتراماً لها ولعلمها

ولكن عملت لك نموذج يفي بالغرض ان شاء الله

اختكم روان

تم تعديل الخطاء

والله ياأختي روان انا ماقلت أريد تعديل على نموذج الأخت زهرة

بالعكس النموذج عجبني كثير للأخت زهرة

المشكلة انا ماعرفت كيف كيف اظهر الصور في باقي النماذج فقط

يعني أريد إظهار صورة الموظف في النماذج الأخرى

ماأريد تعديل على نموذج الأخت زهرة

بل كيف أستطيع أظهر الصور في باقي النماذج فقط

#11

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

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

أخي الكريم لاحظ ملفك بعد التعديل .... آمل أن يكون ما ترغب به ..

ملاحظة : هناك مشكلة بالنموذج الثاني لديك لا اعلم ماهي رفض أن يفتح معي على كلاً لاحظ الطريقة في النموذج الأول ويمكنك أن تطبقها في جميع النماذج ...

بالتوفيق

mub.rar

(`'•.¸(` '•. ¸ * ¸.•'´)¸.•'´)

«´¨`.¸ أبو رهـــــــف ¸.´¨`»

(¸. •'´(¸.•'´ * `'•.¸)`'•.¸ )

¸.•’’ ’’

( `•.¸

`•.¸

#12

الله يعطيك العافيه ياخوي أبو رهف

ضبط الموضوع

أشكركم أخواني ( أبو رهف - الأخت زهرة )

#13

في مشكلة أكتشفتها وهي

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

Private Sub Form_Current()

If IsNull(Me.EmpPIC) Then

Me.PIC.Picture = ""

Else

Me.PIC.Picture = Application.CurrentProject.Path & "\Images\" & EmpPIC & ""

End If

End Sub

تم تعديل هذه المشاركة بواسطة aksfl في 12 نوفمبر 2009 في 11:03

#14
aksfl كتب:
في مشكلة أكتشفتها وهي

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

Private Sub Form_Current()

If IsNull(Me.EmpPIC) Then

Me.PIC.Picture = ""

Else

Me.PIC.Picture = Application.CurrentProject.Path & "\Images\" & EmpPIC & ""

End If

End Sub

أريد أعرف وين الخطا وماهو الكود وفي أي حدث أقوم بوضعه

الكود إلى في الأعلى يعطيني خطا

#15

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

أخي الكريم الخطاء لديك ...

أخي الحدث يوضع في حدث الحالي للفورم ولكن لابد من وجود مربع نص مصدره جدول الصور بنفس الفورم ..

آمل أن تكون الصورة وضحت لك راجع الفورمين لديك ولاحظ الطريقة ...

(`'•.¸(` '•. ¸ * ¸.•'´)¸.•'´)

«´¨`.¸ أبو رهـــــــف ¸.´¨`»

(¸. •'´(¸.•'´ * `'•.¸)`'•.¸ )

¸.•’’ ’’

( `•.¸

`•.¸

#16
أبو رهف كتب:
السلام عليكم ورحمة الله وبركاته ,,,

أخي الكريم الخطاء لديك ...

أخي الحدث يوضع في حدث الحالي للفورم ولكن لابد من وجود مربع نص مصدره جدول الصور بنفس الفورم ..

آمل أن تكون الصورة وضحت لك راجع الفورمين لديك ولاحظ الطريقة ...

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

النماذج إلى تعتمد على أستعلام ماتظهر الصور

اما النماذج العادية تظهر الصور

هل يحتاج أضيف اكواد في سجل لأستعلام حتى تظهر الصور

#17

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

(`'•.¸(` '•. ¸ * ¸.•'´)¸.•'´)

«´¨`.¸ أبو رهـــــــف ¸.´¨`»

(¸. •'´(¸.•'´ * `'•.¸)`'•.¸ )

¸.•’’ ’’

( `•.¸

`•.¸

#18

تسلم أخوي أبو رهف

والأن كل شي أوكيه

أستخدمت طريقه أخرى

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

#19

الله يعطيك العافيه ياخوي أبو رهف

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…