رجاء المساعدة فى عمل فورم استعلام

[حسام عبدالمحسن]

الاخوة الكرام رجاء المساعدة فى عمل فورم للاستعلام

اريد عمل فورم للاستعلام بدلا من العمل على ورقة العمل

حيث المطلوب هو حساب تاريخ انتهاء وتاريخ تجديد القرار ......عند ادخال تاريخ القرار يقوم بحساب تاريخ انتهاء القرار...ويقوم بحساب تاريخ التجديد

حيث يتم الحساب  بزيادة 180 يوم على التاريخ الذى تم ادخاله وبعدها يتم انتهاء القرار مثال 2016/1/1 +180 يوم  ينتهى فى 2016/6/29

ويتم حساب انتهاء اقرار بخصم 15 يوم من تاريخ الانتهاء مثال... تاريخ الانتهاء 2016/6/31 يخم 15 يوم يبقى تاريخ التجديد  2016/6/14

ومرفق شيت يوضح ذلك وشكرا وجزاكم الله كل خيرا

استعلام.rar

[أبو حنــــين]

السلام عليكم

أكتب التاريخ في مربع النص الأول و أضغط على أنتر

الملف في الاسفل :    

 

الكود : 

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If Not IsDate(TextBox1) = True Then
    TextBox1 = "": TextBox2 = "": TextBox3 = ""
    Else
    TextBox1.Value = Format(TextBox1, "dd-mm-yyyy")
    TextBox2.Value = Format(DateAdd("d", 180, CDate(TextBox1.Value)), "dd-mm-yyyy")
    TextBox3.Value = Format(DateAdd("d", 165, CDate(TextBox1.Value)), "dd-mm-yyyy")
    End If
    
End Sub

 

استعلام.rar

تم تعديل سبتمبر 6, 2016 بواسطه أبو حنــــين

[حسام عبدالمحسن]

اخى الكريم جزاك الله كل خير هل من الممكن ان يعمل الفورم تلقائى عند فتح الملف بدلا من الضغط على ايقونة تاريخ   وعمل زر لمسح خانه ادخال التاريخ

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

 

تم تعديل سبتمبر 6, 2016 بواسطه حسام عبدالمحسن

[أبو حنــــين]

السلام عليكم

عندما تفتح البرنامج تظهر لك الفورم فقط

تكتب التاريخ في مربع النص الاول و تضغط أنتر للحصول على النتيجة

ثم تضغط على أنتر مرة اخرى لاجراء عملية أخرى و هكذا : أنتر ثم أنتر ثم . . . . . 

اذا اردت الدخول لملف الاكسل اضغط مرتين على التسمية : تاريخ القرار

 

2استعلام.rar

[حسام عبدالمحسن]

استاذى العزيز / ابو حنين

شكرا جداا بارك الله فيك الملف يعمل جيدا والحمد لله

اسال الله العلى العظيم ان يجعل هذة الاعمال فى ميزان حسناتك

[حسام عبدالمحسن]

الاخ الكريم ابوحنين

هل بالامكان اضافة خانة جديدة للاستعلام بالاسم حيث سيتم اضافة اسماء بشيت الاكسيل واريد عمل خانه للاستعلام بالاسم

 

 

[حسام عبدالمحسن]

للرفع

[أبو حنــــين]

السلام عليكم

ارسل البيانات التي يفترض وجودها في ملف الاكسيل ( رؤوس الاعمدة مثل الاسم ، العنوان ، تاريخ الميلاد . . . . .. . . . )

[حسام عبدالمحسن]

اخى تم ارفاق ورقة عمل بالملف بها رؤوس الاعمدة المطلوبة

رقم الحاسب

رقم القرار

تاريخ القرار

الاسم

المدة

اجمالى

المنصرف

المتبقى

حيث اريد هذة الرؤوس فقط بفورم الاستعلام ولا داعى لاضافة باقى رؤوس الاعمدة

مرفق الملف وبة ورقة 2016 وهي المطلوب عمل استعلام منها

 

2استعلام.rar

[حسام عبدالمحسن]

للرفع

[حسام عبدالمحسن]

للرفع

[أبو حنــــين]

4 ساعات مضت, حسام عبدالمحسن said:

للرفع

السلام عليكم

تمت الاجابة