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

[maya8]

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

 

احب اشكر الجميع على هذا المنتدى الرائع الذي فادني كثير في عملي

وانتمى ان اجد جواب لاسئلتي

 

اولا : كيفيه اضافة زر في النموذج بحيث ان هذا الزر يقوم بحذف جميع البيانات في الجدول

بمعنى اصح تفريغ قاعدة البيانات من البيانات لإدخال بيانات جديد

 

ثانيا : انا قمت بعمل قاعدة بيانات للموظفات ولدي جدول بالاجازات

وعند طباعة التقرير يتم طباعة كل الموظفين

اريد طريقة لطابعة كل موظف لوحده

 

وشكرا ,,

[بحار الاكسس]

ممكن حضرتك ترفق الملف للاطلع عليه وتعديله

[عدي99]

هذا الكود لحذف بيانات الجدول بالكامل

حيث G A اسم الجدول

If IsNull(DLookup("[a]", "G_A")) Then
MsgBox "تنبيه", , "لا توجد بيانات للحذف"
Exit Sub
End If

If MsgBox("هل تود حذف جميع البيانات ", vbYesNo, "تنبيه") = vbYes Then
Me.Refresh
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE G_A.* FROM G_A;"
DoCmd.SetWarnings True
Me.Requery
Else
Exit Sub
End If

 

[maya8]

عدي99

تم تجربه الكود وكان هناك خطأ

 

بحار الاكسس

تفضل هذا رابط ملف الاكسس

http://www.up-00.com/?K56s[URL="http://www.up-00.com/"][/URL]

[maya8]

لا يوجد احد يعرف الطريقه ؟؟

[jjafferr]

السلام عليكم اختي

 

1. لا يوجد مرفق في مشاركتك الاخيرة ،

2. لتفريغ بيانات جدول اسمه table1 

DELETE * FROM table1

واذا اردتي تشغيله في الكود

docmd.setwarnings false
  docmd.runsql "DELETE * FROM table1"
docmd.setwarnings true

3. لطباعة موظف واحد في التقرير ، انظري الرابط

 

 

جعفر

[maya8]

jjafferr

طلع بالكود خطا في السطر

docmd.runsql "DELETE * FROM table1"
 

 

هذا هو رابط التحميل

http://www.up-00.com/?K56s

[Shivan Rekany]

عفوا منك استاذ جعفر على المداخلة

8 دقائق مضت, maya8 said:

jjafferr

طلع بالكود خطا في السطر

docmd.runsql "DELETE * FROM table1"
 

 

هذا هو رابط التحميل

http://www.up-00.com/?K56s

كود استاذ جعفر بيشتغل 100 %
لكن اسم جدولك ليس هو ليس مسمية باسم table1
وانتي استخدمتها بقاعدة بياناتك بدون تتغير table1 باسم الجدول اللي في قاعدة بياناتك
واستاذنا الفاضل ابو حسين قلت

. لتفريغ بيانات جدول اسمه table1 

DELETE * FROM table1

شوف استخدم هكذا اي بدل تابل1 باسم جدولك

DoCmd.SetWarnings False
DoCmd.RunSQL " delete * from [إجازات وحدة التوثيق والإحصاء]"
DoCmd.SetWarnings True

 

[jjafferr]

شكرا جزيلا اخي شفان على المداخله والتوضيح 

 

اختي maya8

وكذلك المرفق غير موجود ، فالرابط الذي وضعتيه في مشاركتك لا يعمل

لكي تضعي مرفقك في المشاركة ، فيجب عليكي

1. ضغط ملف الاكسس بصيغة rar او zip ،

2. واما الصور بصيغة jpg او gif او bmp او png فلا تحتاج الى ضغط ،

3. تستطيعين ارفاق مجموعة من الملفات والصور ، بحيث لا يتجاوز مجموع حجمها (الحد الاقصى) ،

4. طريقة ارفاق المرفقات ، وكما هو موضح في اسفل المشاركة (اسحب الملفات الي هنا لارفقاها ، او اختر ملف...)

1. سحب المرفقات الى المنطقة المظلله اسفل المشاركة ،
2. النقر على كلمة "اختر ملف..." (المنطقة المظلله اسفل المشاركة).

 

جعفر

[Shivan Rekany]

منذ ساعه, maya8 said:

jjafferr

طلع بالكود خطا في السطر

docmd.runsql "DELETE * FROM table1"
هذا هو رابط التحميل

http://www.up-00.com/?K56s

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

_Database1+-+نسخة.rar