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

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


وشكرا


الملفات المرفقة
.rar   مثال.rar (الحجم : 14.09 ك ب / التحميلات : 82)
الرد }}}}
تم الشكر بواسطة:
#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
براك الله فيك أخي الكريم على المساعدة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : عدم ظهور التنبيهات فوريا و التعديل الخاطيء عبد العزيز البسكري 6 149 02-10-17, 09:19 PM
آخر رد: عبد العزيز البسكري
  اريد كتابة هذا الكود الى لغة الفيجول 6 bidaya 3 83 30-09-17, 08:27 PM
آخر رد: bidaya
  تصحيح كود التعديل حافظ حافظ 3 115 27-09-17, 09:50 PM
آخر رد: حافظ حافظ
  امل ان اجد احد فيكم من اعضاء المنتدى الكريم يقوم بالعديل لي علا المثال المرفق wolf1120 9 274 21-09-17, 02:06 PM
آخر رد: wolf1120
  من يقدر استبدال قاعد بيانات المثال المرفق ب (sqlite) scsi7000 1 74 19-09-17, 01:06 PM
آخر رد: Amir_alzubidy
  لديا قيمة في تاكست بوكس اريد تحويلها wolf1120 2 88 14-09-17, 07:20 PM
آخر رد: wolf1120
  اريد طريقه يبين لي ان البرنامج متصل بقاعدة البيانات او غير متصل scsi7000 1 104 05-08-17, 05:09 PM
آخر رد: Amir_alzubidy
  اريد مثال او طريقه لعمل جدول خفارات الموظف الكتروني scsi7000 1 100 02-08-17, 12:33 AM
آخر رد: Ahmed_Mansoor
  اريد احدث تاريخ يظهر في (text1.txt) scsi7000 4 162 01-08-17, 07:17 PM
آخر رد: scsi7000
  اريد كود انشاء مجلد باسم عام جديد suliman alahdl 10 426 01-05-17, 12:18 AM
آخر رد: Ahmed_Mansoor

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


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