اذا وصل التاريخ ليوم معين

عليكم السلام

ممكن

تسوي استعلام في قاعدة البيانات في حقل تاريخ نهاية الاشتراك

استعلام عن تاريخ نهاية الاشتراك

بيطلع لك جميع التواريخ المطابقة للتاريخ المحدد في الاستعلام وتقدر تنفذ عليهم اي حدث

...

السلام عليكم ورحة الله تعالى وبركاته ....

أخي الكريم يجب عيك عمل على إحدى النماذج

أولا : إما أن تجعل في قاعدة البيانات خاصية أو حقل خاص من نوع " [بولين]" أي الناس التي بتعمل والناس اللي ما بتعمل

أو

ثانيا : وضع جدول خاص بالناس الذين إنتهت إشتراكاتهم حيث يقوم البرناج بحذفهم من القاعدة ثم إضافتهم إلى جدول آخر خاص بهم

على العموم أخي سأعطيك كلا الحالتين أي كود كل حالة والله يكون في عونك

الحاج نقبيل

الحالة 01

عند بداية تشغيل البرنامج أي تستعمل الموديل

public cn as new adodb.connection
public rc as new adodb.roccordset
public ENDate as date
Sub Main
'Write you Connection String Here 
enddate = now()
if rcr.state = 1 then rcr.close
rc.open "Update Tablex Set Active = False Where Datefin =#" & format(endate,"MM/DD/YYYY") & "# ",cn

end sub

هذه الخاصية تعمل أوتوماتكيا لوقف تفعيل الإشتراكات الخاصة بالناس .

الحالة الثانية

public cn as new adodb.connection
public rcr as new adodb.roccordset
public rcw as new adodb.roccordset

public ENDate as date
Sub Main
endate = now()
if rcr.state = 1 then rcr.close
rcr.cursorlocation = adclient
rcr.open "Select * from tablex where datefin= #" & format(endate ,"MM/DD/YYYY") & "# ", cn
 if rcr.eof = true then exit sub : formx.show 
    if rcw.state = 1 then rcw.close
    rcw.open "Select * from expireclient",cn , ADynamic , AOmptimistic
    for Wr = 1 to rcr.roccordcount 
    rcw(fieldname1) = rcr(fieldname1)
    rcw(fieldname2) = rcr(fieldname2)
    '>...The Other Field here  .. .. .. .

    next
   if rcr.state = 1 then rcr.close
rcr.open "Delete  from tablex where datefin= #" & format(endate ,"MM/DD/YYYY") & "# ", cn
   formx.show 
   end sub
'good luck

لا تنسى أن يكون الجدولان متساويان في نوع الحقول ... |||||||||||

أخي لا تنسى وضع

rcr.movenext

في الحلقة for

في الحالة 2

الله يكون في عونك

ياجماعه والله انا شاكر الافضال وربنا يجازيكم خير