تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد التعديل على هذا المثال
#1
ا لسلام عليكم ورحمة وبركاته

اريد التعديل على هذا المثال


وشكرا


الملفات المرفقة
.rar   مثال.rar (الحجم : 14.09 ك ب / التحميلات : 97)
الرد }}}
تم الشكر بواسطة:
#2
اولا تضيف عمود جديد تسميه الانتهاء الى جدولك

و في الكوماند1 تضيف قبل الابديت

Dim s, ss As Date
s = Text5.Text
ss = DateAdd("yyyy", 10, s)
rs("الانتهاء") = ss

و في كوماند البحث قبل end sub نكتب
كود :
Dim s, ss As Date
s = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
ss = rs("الانتهاء")
If ss < s Or ss = s Then
Text3.Visible = True
Text3.Text = "انتهت الصلاحية"
End If

و في الفورم لود

Text3.Visible =false
الرد }}}
تم الشكر بواسطة:
#3
براك الله فيك أخي الكريم على المساعدة
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 386 19-11-23, 10:49 PM
آخر رد: Microformt
  اريد تصحيح الخلل abde6726 2 350 04-11-23, 11:11 PM
آخر رد: abde6726
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
  اريد طريقه او مثال ...للطباعة من الجهتين في الاكتيف ريبورت scsi7000 4 433 02-11-23, 11:06 PM
آخر رد: Microformt
  اختصار الكود حسب المثال المرفق abde6726 2 281 29-10-23, 11:00 AM
آخر رد: abde6726
  اختصار الكود حسب المثال المرفق abde6726 0 220 28-10-23, 05:01 PM
آخر رد: abde6726
  اريد طريقة لطباعة مستند مكون من صفحتين علي ورقة وحدة من الجهتين scsi7000 2 371 25-10-23, 07:38 PM
آخر رد: scsi7000
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
Question [vb6.0] اريد إذا كان قيمة المحول صفر يظهر لي رسالة هل يمكن ذلك ؟ Microformt 0 371 20-03-23, 08:33 PM
آخر رد: Microformt

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم