الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أود معرفة حذف سجل الى اخر سجل

مغلق
بدأه أبو صفاء في 26 فبراير 2005 · 3 رد · 678 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

أرفق لكم قاعدة البيانات هذه

توجد لدي بعض الصعوبة في loop

حيث أريد عند النقر على زر حذف يحذف السجلات حتى النهاية

وجدت كود عن طريق Help وأشتغل لكنه يترك السجل الاخير غير محذوف

ابحث عن مساعده في ذلك 

Private Sub dell_Click()
On Error GoTo Err_dell_Click

Dim I
Me.aw.SetFocus
If IsNull(Me.aw) Then
DoCmd.Beep
Else
    'DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    'DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    'DoCmd.GoToRecord , , acNext
    Do
       ' For
       DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
       DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
       DoCmd.GoToRecord , , acNext
     '  Next I
    Loop
End If



Exit_dell_Click:
    Exit Sub

Err_dell_Click:
    MsgBox Err.Description
    Resume Exit_dell_Click

End Sub

تحياتي

del.zip

===

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

===

المشتاق الى الجنة

أبو صفاء - مسقط

===

#2

ما ادري ليش محد يرد على أسلتي وكانها كارثة

على العموم للعلم وجدت طريقة سهله

Me.aw.SetFocus
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE T1.aw, T1.A, T1.B FROM T1 WHERE (((T1.aw)>[forms]![T1]![aw]-1));"
DoCmd.Requery
DoCmd.SetWarnings True
MsgBox "finsh del", vbCritical, "del"

===

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

===

المشتاق الى الجنة

أبو صفاء - مسقط

===

#3 
db.Execute "DELETE emp_tb.* FROM emp_tb where emp_m>" & Me!emp_m

هذا المثال قد يفيدك

طبعا احجز 

dim db as DataBase

وفي النموذج

form_load

set db=currentdb
#4

لا تزعل علينا أخي ابو صفاء وخلي بالك طويل

واظن اجابة أخي أشرف رائعة وسهلة الإستخدام ومضمونة النتائج بدون أي مضاعفات

سبحان الله MCP,MCSA,MCDBA,MCSE,MCTegyptian in Dammam----------------------------------------------------مواضيعي بالمنتدي أنشأ مشروعك بالفيجوال بيسك 6كتاب أنشأ مشروعك بالفيجوال بيسك كامل pdfكل ما يتعلق بدوال التاريخالمستخدمون والصلاحيات في برنامجك

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…