تقييم الموضوع :
  • 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
براك الله فيك أخي الكريم على المساعدة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود انشاء مجلد باسم عام جديد suliman alahdl 10 258 01-05-17, 12:18 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] مساعدة في تعديل هاذا المثال Abdellah 5 176 20-04-17, 05:38 PM
آخر رد: Abdellah
Question [سؤال] اريد اكواد حل المعادلات من جميع الدرجات لو سمحتو طارق++ 9 5,824 07-04-17, 01:06 PM
آخر رد: الخير طهوري
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 3 302 01-04-17, 02:18 AM
آخر رد: awidan76
  اريد كود لمنع التهنيج عند العمليات الطويله Etos 1 77 27-03-17, 07:32 PM
آخر رد: v_2017_6
  اريد تفعيل الماوس في الفكس جرايد كنونو 5 375 21-03-17, 11:37 AM
آخر رد: كنونو
  [vb6.0] ارجوا التعديل على المشروع المرفق عبدالقادرعواد 12 269 06-03-17, 01:58 AM
آخر رد: عبدالقادرعواد
Photo اريد مساعدة في جمع خليتين في عمود واحد يحملان نفس التاريخ عمر سالم 10 417 02-02-17, 01:58 AM
آخر رد: السيد الغالي
  اريد مجموعة سعر الكمية امباعة بتاريخ محدد في هذا الكود عمر سالم 5 256 31-01-17, 01:18 PM
آخر رد: ahmedabdelaliem
  اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية allobaed 6 276 26-01-17, 11:55 AM
آخر رد: allobaed

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


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