طريقة تعطيل البرنامج بعد مضئ 3 أيام

[أبو أفنان]

'الشرح

أتبع بالخطوات التالية :

'1- انشئ نموذج وضع الوحدة النمطية كلها قص ولصق فى النموذج وذلك عن طريق ( عرض ثم تعليمات برمجية ) .

الكود حدث عند الفتح

2 احفظ النموذج .

3- انشئ جدول وسمه باسم t1 وضع بداخله حقل تاريخ اسمه date1 ولا تضع فيه أي تاريخ

4 قم بتشغيل النموذج ستجد أنه يفتح عادي بدون مشاكل .

5- اذهب وافتح الجدول ستجد تاريخ اليوم بداخله .

6- غير التاريخ إلى قبل تاريخ اليوم بثلاث أو اربع أيام .

7- قم بتشغيل النموذج مرة أخرى .

ستظهر لك رسائل البرنامج . وستلاحظ أن الجدول قد تم حذفه

8.بإضافة المرجع التالي من قائمة المراجع References :

Microsoft DAO 3.6 Object Library

Private Sub Form_Open(Cancel As Integer)
On Error GoTo MyErr:

Dim MyFirst As Date
Dim MyInDate
Dim MyTableName As String
MyInDate = DFirst("[Date1]", "[T1]")
If Not IsNull(MyInDate) Then
MyFirst = MyInDate
Else
DoCmd.SetWarnings False
DoCmd.RunSQL ("INSERT INTO T1 ( Date1 ) SELECT Date();")
DoCmd.SetWarnings True
MyFirst = Date
End If

If MyFirst <= Date - 3 Then '[color=green] &Ucirc;&iacute;&Ntilde; &Ccedil;&aacute;&Ntilde;&THORN;&atilde; &atilde;&auml; 3 &Ccedil;&aacute;&igrave; &Ccedil;&iacute; &Uacute;&Iuml;&Iuml; &Ecirc;&Ntilde;&iacute;&Iuml;[/color]
MsgBox "&atilde;&Ouml;&igrave; &Uacute;&aacute;&igrave; &Ccedil;&aacute;&Ecirc;&Ocirc;&Ucirc;&iacute;&aacute; 3 &Ccedil;&iacute;&Ccedil;&atilde; &aelig;&Oacute;&iacute;&Ecirc;&atilde; &Ccedil;&iacute;&THORN;&Ccedil;&Yacute;&aring;"
Call TableDelete
Else
If MyFirst > Date Then
MsgBox "&Ecirc;&atilde; &Ccedil;&aacute;&Ecirc;&aacute;&Ccedil;&Uacute;&Egrave; &Egrave;&Ecirc;&Ccedil;&Ntilde;&iacute;&Icirc; &Ccedil;&aacute;&Igrave;&aring;&Ccedil;&Ograve; &aelig;&Oacute;&iacute;&Ecirc;&atilde; &Ccedil;&iacute;&THORN;&Ccedil;&Yacute; &Ecirc;&Ocirc;&Ucirc;&iacute;&aacute;&aring;"
Call TableDelete
End If
End If

Exit Sub



MyErr:
If Err.Number = 3078 Then
MsgBox "&Ecirc;&atilde; &Ecirc;&Uacute;&Oslash;&iacute;&aacute; &Ccedil;&aacute;&Egrave;&Ntilde;&auml;&Ccedil;&atilde;&Igrave;"
   Quit
'&THORN;&atilde;&Ecirc; &Egrave;&Ecirc;&Uacute;&Oslash;&iacute;&aacute; &Ccedil;&aacute;&Ccedil;&atilde;&Ntilde; &Icirc;&Ntilde;&aelig;&Igrave; &aacute;&Ecirc;&Ntilde;&aelig;&Ccedil; &Ccedil;&aacute;&Oslash;&Ntilde;&iacute;&THORN;&Eacute;
'Else
MsgBox Err.Number & vbCrLf & Err.Description
End If

End Sub


Function TableDelete()
On Error Resume Next
 Dim MyDb As Database
 Dim MyTable As TableDef
Dim MyTableCount As Integer

Set MyDb = Application.CurrentDb
MyTableCount = MyDb.TableDefs.Count
For i = MyTableCount - 1 To o Step -1
Set MyTable = MyDb.TableDefs(i)
MyTableName = MyTable.Name
If Left$(MyTableName, 4) <> "Msys" Then MyDb.TableDefs.Delete (MyTableName)
Next
MyDb.Close
End Function

[شيرين2004]

شكرا يا اخي على هذه المعلومات والف الف شكر لك

[الباشق1]

الف شكر لك اخي وقدر لك هذا العمل المفيد للمبرمجين

واشكرك على توضعك

[أبو أفنان]

لكم الشكر