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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 2 91 21-10-16, 01:31 PM
آخر رد: Microformt
  اريد تغيير قاعدة البينات من اكسس الى سيكوال هل يكفي اغير كود الاتصال sendbad100 3 101 17-10-16, 05:00 PM
آخر رد: sendbad100
  'نرجو التعديل على المرفق gadr 2 71 14-10-16, 03:41 AM
آخر رد: gadr
  اريد تعديل هذا الكود للبحث لاى كلمه فى النص رجل الكهرباء 2 120 03-10-16, 02:19 AM
آخر رد: رجل الكهرباء
  عندما اضغط على Try it يعرض لي التاريخ الموجود في الفورم اريد ان يعرض التاريخ في text abazrmhamed 3 128 19-09-16, 12:30 AM
آخر رد: Amir_alzubidy
  لو سمحتم اريد كود ترتيب ليست تصاعديا samira20 6 152 14-09-16, 06:02 PM
آخر رد: samira20
  ارجو المساعدة اريد افضل نسخة للفجول بيسك 6 تكون كاملة mhareek 5 291 30-08-16, 12:38 AM
آخر رد: إبراهيم خشافه
  اريد كود لتغيير التاريخ فقط للوندوز من الفجوال بيسك 6 scsi7000 2 114 25-08-16, 01:53 PM
آخر رد: scsi7000
  اريد برنامج لتعلم الحروف الانجليزية عبدالله الجذيلات 0 112 04-08-16, 03:01 PM
آخر رد: عبدالله الجذيلات
  [كود] ارجو التعديل على كود الترتيب التصاعدي فاضل الحمود 1 133 13-07-16, 02:01 AM
آخر رد: فاضل الحمود

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


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