اضافة صورة في مربع المرفقات عند النقر على زر

[pingo22]

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

اعمل على برنامج الغرض منه عرض بعض الطلبات على المدير ويحتوي البرنامج على الرأي

والمطلوب عند تصفح المدير للبرنامج والموافقة على رأي موضوع محدد بعد النقر على زر موافق تظهر الصورة المرفقة مع البرنامج في مربع ال attachment 

مرفق نسخة من البرنامج والصورة المطلوب ارفاقها

Documents.rar

[عمر ضاحى]

منذ ساعه, pingo22 said:

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

اعمل على برنامج الغرض منه عرض بعض الطلبات على المدير ويحتوي البرنامج على الرأي

والمطلوب عند تصفح المدير للبرنامج والموافقة على رأي موضوع محدد بعد النقر على زر موافق تظهر الصورة المرفقة مع البرنامج في مربع ال attachment 

مرفق نسخة من البرنامج والصورة المطلوب ارفاقها

Documents.rar 159.33 kB · 3 downloads

هل هذا المطلوب ؟

 

 

 

ملاحظه :

قمت بتغير نوع البيانات (القرار) من مرفق الى نعم/لا

 

Documents.rar

[pingo22]

اخي العزيز عمر ضاحي اشكرك جداا على اهتمامك وتعبك

احب اوضح لحضرتك حاجه اول ما فتحت البرنامج صورة "علامة موافق" ظهرت مع فتح البرنامج ثم في صفحة ال VB اظهر ان هناك خطأ كما موضح بالصورتين المرفقين

هو كان المطلوب عند الضغط على الزر تظهر صورة "علامة موافق" داخل مربع المرفق

[عمر ضاحى]

29 دقائق مضت, pingo22 said:

اخي العزيز عمر ضاحي اشكرك جداا على اهتمامك وتعبك

احب اوضح لحضرتك حاجه اول ما فتحت البرنامج صورة "علامة موافق" ظهرت مع فتح البرنامج ثم في صفحة ال VB اظهر ان هناك خطأ كما موضح بالصورتين المرفقين

هو كان المطلوب عند الضغط على الزر تظهر صورة "علامة موافق" داخل مربع المرفق

الملف يعمل جيدا معي 

لكن جرب هذا التعديل 

Documents.rar

تم تعديل سبتمبر 11, 2022 بواسطه عمر ضاحى

[pingo22]

أستاذ عمر الحمد لله بعد اعادة المحاولة اشتغل بشكل جيد

انا متشكر لحضرتك جدااااا وزادك الله من العلم أشكرك

[عمر ضاحى]

الشكر لله 

واشكر اساتذتى الكرام حفظهم الله لهم الفضل بعد الله فى تعليمي لهم جزيل الشكر

[Moosak]

كل الشكر لك أخي @عمر ضاحى 🙂 

وأستغل هذه المناسبة الجميلة لعرض طريقة جديدة تعلمتها لكتابة الأكواد مع قيم True & False .. 

جرب كتابة الأكواد بهذه الطريقة :

Private Sub Command31_Click()
Me.ApprovedOK = Not ApprovedOK
Me.imgApproved.Visible = ApprovedOK
End Sub

Private Sub Form_AfterUpdate()
Me.imgApproved.Visible = ApprovedOK
End Sub

Private Sub Form_Current()
Me.imgApproved.Visible = ApprovedOK
End Sub

والنتيجة نفسها طبعا .. مع زيادة إمكانية التراجع عن الموافقة 🙂 

 

[pingo22]

اخي الكريم Moosak خالص تحياتي وشكري على المجهود فعلا خير الناس أنفعهم للناس وانتم من خير الناس