الإخوة الكرام
السلام عليكم ورحمة الله وبركاته
أدرجت في النموذج مكان لصورة الموظف .
بحيث أن أضع صورة للموظف بالضغط على زر استعراض .
وفي عرض التصميم للنموذج صورة نقطية للـ ImageFrame ( الرجاء إدراج صورة جديدة ) .
أريد هذه الصورة ( الرجاء إدراج صورة جديدة ) تكون في مكان الموظف الذي لم يتم إدراج صورة له .
وهذه الصورة توضح المطلوب
أخي الكريم أبو يوسف
بارك الله فيك وحفظك من كل مكروه
لكن ألا يوجد كود ليملء imageFrame بنفس الصورة التي ادرجت اثناء تصميم النموذج .
يعني بدون تحديد مكان مسار الصورة .
لأنني سوف أعطي هذا البرنامج لأكثر من شخص وليس من المعقول أن أقول له ضع الصورة في المسار كذا أو كذا .
لذلك هل من حل يبسط العملية علي ويكون هناك كود يقوم بعرض الصورة التي في imageFrame تلقائياً . بدون تحديد مسار للصورة .
وفقكم الله ورعاكم .
تقبل فائق تقديري واحترامي .
دمت في حفظ الرحمن .
اعمل طريقة المبتدئين ، اسهل وناجحة باذن الله ، ضع الصورة مستقلة فوق حقل الصورة واجعلها مخفية في حالة وجود صورة في الحقل وتظهر اذا كان الحقل بدون صورة فوق هذا الحقل وكأنها بداخله.
سهلة وعلى الطلب ، وطبعا الكود سهل جدا فقط كود Visible = False أو Visible = True وانتهت المشكلة.
وهذا المثال المطلوب بهذه الطريقة: EMP9.rar
تم تعديل هذه المشاركة بواسطة superhot3000 في 8 أغسطس 2011 في 21:21
أخي الغالي بارك الله فيك وحفظك
ممكن ترفق لي مثال فضلاً لا أمراً .
بالرغم أنني لا أفضل هذه الطريقة ولكن كما يقال ( آخر العلاج الكي ) .
دمت في حفظ الرحمن .
عزيزي...
الفكرة تماما موجودة في قاعدة نورثوبند النموذجية المدرجة تحديدا مع اكسس 2003...وهي رائعة وسهلة، واستعملتها في اكثر من برنامج
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
superhot3000 كتب:اعمل طريقة المبتدئين ، اسهل وناجحة باذن الله ، ضع الصورة مستقلة فوق حقل الصورة واجعلها مخفية في حالة وجود صورة في الحقل وتظهر اذا كان الحقل بدون صورة فوق هذا الحقل وكأنها بداخله.
سهلة وعلى الطلب ، وطبعا الكود سهل جدا فقط كود Visible = False أو Visible = True وانتهت المشكلة.
وهذا المثال المطلوب بهذه الطريقة: EMP9.rar
أخي الكريم قمت بعمل المطلوب
ولكن المشكلة هناك وميض للصورة ( يتم تحديث الصورة مع التايمر حق الوقت )
كيف أتخلص من الوميض . لأن هناك فاصل زمني . لابد منه .
ولهذا يتم تحديث الصورة كل بعد جزء من الثانية . كيف حل هذه المشكلة .
تقبل تقديري واحترامي .
دمت في حفظ الرحمن .
أبو عبير 2005 كتب:أخي الكريم قمت بعمل المطلوب
ولكن المشكلة هناك وميض للصورة ( يتم تحديث الصورة مع التايمر حق الوقت )
كيف أتخلص من الوميض . لأن هناك فاصل زمني . لابد منه .
ولهذا يتم تحديث الصورة كل بعد جزء من الثانية . كيف حل هذه المشكلة .
تقبل تقديري واحترامي .
دمت في حفظ الرحمن .
عدل الفاصل الزمني للتايمر وزيد القيمة حتى يبطيء ، فبدل 100 خليها 1000 لأنها بالميلي ثانية يعني 1000 = ثانية واحدة حتى يخف التأثير ولا تلاحظه العين.
أخي الكريم بارك الله فيك .
أنا بحاجة إلى 400 ملي بالثانية لو زادت كان حست كل برنامجي .
فهل من حل آخر .
أبو عبير 2005 كتب:أخي الكريم بارك الله فيك .
أنا بحاجة إلى 400 ملي بالثانية لو زادت كان حست كل برنامجي .
فهل من حل آخر .
ما هي فائدة التايمر غير قراءة الوقت في النموذج ؟ 
أخي الكريم بارك الله فيك
عندي نص متحرك
ومعلومات في أعلى النموذج
كلها تتأثر بالتايمر . :haha:
هي تجربة قد تعطي نتيجة جيدة 
بدل شكل الكود في التايمر والغي Me! واجعل اسم الحقل أو العنوان مباشر مثلا الكود:
Me![Clock].Caption = Time
غيره الى الشكل التالي:
[Clock].Caption = Time
تفضل أخي الغالي
Private Sub Form_Timer()
Me![clock].Caption = Time
Me![date1].Caption = Format(Date, "yyyy-mm-dd")
Calendar = vbCalHijri
Me![date2].Caption = Format(Date, "yyyy-mm-dd")
Calendar = vbCalGreg
Me.Caption = Mid(Me.Caption, 2, _
(Len(Me.Caption) - 1)) & Left(Me.Caption, 1)
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
(Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)
SysCmd acSysCmdSetStatus, txtScrollStatus
txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1)
End Sub
تفضل أخي الغالي
Private Sub Form_Timer()
Me![clock].Caption = Time
Me![date1].Caption = Format(Date, "yyyy-mm-dd")
Calendar = vbCalHijri
Me![date2].Caption = Format(Date, "yyyy-mm-dd")
Calendar = vbCalGreg
Me.Caption = Mid(Me.Caption, 2, _
(Len(Me.Caption) - 1)) & Left(Me.Caption, 1)
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
(Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)
SysCmd acSysCmdSetStatus, txtScrollStatus
txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1)
End Sub
نصيحة صغيرة ولك حرية الاختيار (هذه الزحمة غير مفيدة) ، تستطيع التغلب على 85% من هذه المشكلة وقد تكون 99.99% عندما يكون الكود المناسب في المكان المناسب.
برأيي الشخصي ، أكواد التاريخ لا داعي لأن تكون في التايمر ولو نقلت إلى مكان آخر تقل الزحمة في التايمر ، شيء آخر ، اعمل دالة تقرأ التاريخ الهجري وتعامل مع القيمة مباشرة بدلا من اطالة الامر لقراءة التاريخ.
وعندي لك اقتراح ، لماذا لا تستخدم شريط الحالة فهو لا يحتاج إلى تايمر لقراءة الوقت والتاريخ فهو جاهز ، ولكن عليك اختيار التاريخ الافتراضي هجري أم ميلادي لأن الاخر سيحتاج تحديث وسيحتاج إلى التايمر ، ولكن هكذا سيقل كود التايمر إلى ثلث الموجود فلن تحتاج لقراءة الوقت أو التاريخ الافتراضي لقاعدة البيانات.
وبالنسبة لشريط الحالة هذا موضوع عملته مختصر عنه تستطيع اختباره وتجربته. (شريط الحالة Status Bar)
تمنياتي لك بالتوفيق
تم تعديل هذه المشاركة بواسطة superhot3000 في 9 أغسطس 2011 في 12:58
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…