(تمت الاجابة) اظهار فورم تنبيه عند فتح الملف بشرط

[أيهاب ممدوح]

اخواني

لدي ملف به تواريخ بدايه الايجار ولدي نهايه الايجار كل ما اريده رساله تنبيه عند فتح الملف قبل حلول نهايه الايجار بشهر 30 يوم

شكرا

مرفق

New Microsoft Excel Worksheet.rar

[أيهاب ممدوح]

السلام عليكم اخواني الاعزاء

[أيهاب ممدوح]

للرفع

[عبدالله المجرب]

السلام عليكم

اخي ايهاب

انا ارى ان انسب برنامج لما تطلبه هو هذا

http://www.officena.net/ib/index.php?showtopic=31695

[الجزيرة]

أخي العزيز / ايهاب

شاهد الرابط

http://www.officena.net/ib/index.php?showtopic=31712&hl=&fromsearch=1

[أيهاب ممدوح]

اخي في الله \الجزيرة

شكرا علي مجهودك ولكن الملف به مشاكل مثل التاريخ الهجري والميلادي

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

شكرا

[أيهاب ممدوح]

اخواتي الاعزاء

ارجوا جعل الفورم في هذا الملف يظهر بمجرد فتح الملف وبه بيانات الوثائق المنتهيه

مرفق صورة لتوضيح المطلوب

مرفق الملف الايجارات.rar

شكرا

[أيهاب ممدوح]

السلام عليكم

[عبدالله المجرب]

اخي ايهاب

في حدث فتح الملف ضع هذا الكود

Private Sub Workbook_Open()

Application.ScreenUpdating = False

  With SEARCH_4_DOC_SPECIAL

.Label1.ForeColor = &HFF&

.ListBox1.ForeColor = &HFF&

.Label1.Caption = "بيانات الوثائق المنتهية الصلاحية"

.TextBox1.Text = "إنتهت الصلاحية من"

.Show

End With

Application.ScreenUpdating = True

End Sub

[أيهاب ممدوح]

شكرا جزيلا اخي ابو احمد

[abouelhassan]

بارك الله فيك استاذنا

ما شاء الله عليك

احترام ودعاء م القلب

[احمد فضيله]

اخي الحبيب الاستاذ / عبد الله المجرب

جزاك اله كل خير