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

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


وشكرا


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تفعيل الماوس في الفكس جرايد كنونو 4 241 19-02-17, 02:39 PM
آخر رد: عبد العزيز البسكري
Photo اريد مساعدة في جمع خليتين في عمود واحد يحملان نفس التاريخ عمر سالم 10 182 02-02-17, 01:58 AM
آخر رد: السيد الغالي
  اريد مجموعة سعر الكمية امباعة بتاريخ محدد في هذا الكود عمر سالم 5 132 31-01-17, 01:18 PM
آخر رد: ahmedabdelaliem
  اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية allobaed 6 149 26-01-17, 11:55 AM
آخر رد: allobaed
  [مثال] طلب مساعدة في هاذا المثال listView Abdellah 3 136 22-01-17, 02:19 PM
آخر رد: Abdellah
  لو سمحتوا انا اريد عند كتابة تاريخ الميلادي يظهر لى فى تكس تاريخ المعاش على سن 60 رجل الكهرباء 3 189 17-12-16, 08:54 PM
آخر رد: رجل الكهرباء
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 2 188 21-10-16, 01:31 PM
آخر رد: Microformt
  اريد تغيير قاعدة البينات من اكسس الى سيكوال هل يكفي اغير كود الاتصال sendbad100 3 194 17-10-16, 05:00 PM
آخر رد: sendbad100
  'نرجو التعديل على المرفق gadr 2 136 14-10-16, 03:41 AM
آخر رد: gadr
  اريد تعديل هذا الكود للبحث لاى كلمه فى النص رجل الكهرباء 2 207 03-10-16, 02:19 AM
آخر رد: رجل الكهرباء

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


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