كود يحذف القاعده

هل من مجيب اخواني الكيرام

الا يوجد اجابه اخواني الكيرام

اخي الكريم

حدد المطلوب : حذف القاعده بكاملها ام حذف محتويات الجدول .؟

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

بعد إذن أخي مستر عربي ..

أخي الكريم إذا كنت تريد حذف بيانات الجدول في تاريخ محدد فقم بوضع هذا الكود في حدث عند فتح النموذج أو تحميل النموذج ..

Dim ZX As String
ZX = Format(Date, "dd/mm/yyyy")
If ZX = "19/12/2009" Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE 1.* FROM 1;"
DoCmd.SetWarnings True
End If

شرح الكود السطر الأول هو متغير وسميناه هنا ZX

السطر الثاني قيمة المتغير وهي تاريخ اليوم حسب تاريخ الجهاز ..

السطر الثالث وهو الشرط أي اشترطنا تساوى تاريخ الجهاز مع التاريخ المحدد والذي حددناه هنا بـ 19/12/2009 ...

السطر الرابع لإغلاق رسائل التحذير بالاكسس

السطر الخامس هو كود حذف بيانات الجدول والذي اسمه حسب ملفك 1 ..

السطر السادس هو تمكين رسائل الاكسس مرة اخرى ..

الجملة الاخيرة هي أنتهى الأمر

آمل أن يكون هذا ما ترغب به وقد أفدتك ..

ربي يعطيك العافهي

هل من الممكن ان تضيف هذا الكود في هذا المثال

حين فتح المثال تخرج لك صفحه وبها زر فتح

اريد حين ان يظغط على هذا ازر ( فتح ) يتم مسح محتويات القاعده الموجوده والتي اسمها ( 1 )

ويفتح النموذج واسم النموذج ( oo )

هل من الممكن مساعدتي في هذا اشي

1.zip

نعم أخي ممكن ..

لاحظ ملفك بعد ادخال الكود عليه وفي حالة رغبتك با ستبعاد شرط التاريخ فقط ضع الكود التالي بدلاً عن السابق :

Private Sub أمر1_Click()
On Error GoTo Err_أمر1_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE 1.* FROM 1;"
    DoCmd.SetWarnings True
    stDocName = "oo"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_أمر1_Click:
    Exit Sub
Err_أمر1_Click:
    MsgBox Err.Description
    Resume Exit_أمر1_Click
End Sub

آمل أن أكون أفدتك ...

1.rar

ربي يعطيك العافيه

ولكن لم تنفع اتجربه معي

لان المثال الذي تم التطبيق عليه

قديم

واسم قاعدة البينات و الفور بالغه العربيه و بنفس الاسم

وحين تغير الاسم هم لم تنجع العمليه معي