تعديل كود حذف سجل

**abouelhassan** · يوليو 22, 2021

السلام عليكم ورحمة الله اخوانى الافاضل عيدكم مبارك ان شاء الله

1.png.020f5abeff3978448127dd2da474448a.png

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

المشكلة التى احتاج تعديلها هى عند الضغط على الحذف مثلا الذى بجانبه التاريخ29/07/2021 يقوم بحذف السجل الاول

احتاج تعديل الكود لكى يحذف السطر الذى اضغط على علامة الحذف التى بجانبه

ام الان اذا ضغط على حذف اى سطر يحذف اول سطر

Private Sub DELL_ROW_Click()
On Error Resume Next
If IsNull(Select3) Then
        a2.Visible = True
MsgBox "يجب تمكين الحذف ", vbCritical + vbMsgBoxRight, "تنبيه"
Exit Sub
End If
If Not IsNull(Select3) Then
        a2.Visible = False
End If

DoCmd.SetWarnings False
    DoCmd.Requery
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End Sub

بارك الله فيكم اخوانى الافاضل

احترامى

تم تعديل يوليو 22, 2021 بواسطه abouelhassan

**ابوخليل** · يوليو 22, 2021

هذا السطر هو سبب المشكلة

DoCmd.RunCommand acCmdSelectRecord

قم بحجبه او حذفه

**abouelhassan** · يوليو 22, 2021

بارك الله فيك حبيبى استاذى الغالى اخى فى الله ابوخليل

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

كل عام وحضرتك بخير والاسرة الكريمة

Hawiii · يوليو 22, 2021

45 دقائق مضت, abouelhassan said:
DoCmd.Requery

هذا الأمر سوف ينقلك دائما لأول سجل ، جرب أن تتخلص منه.

**مسفر** · يوليو 22, 2021

جرب هذا

If MsgBox("انت على وشك حذف سجل ", vbYesNo, "رسالة تحذيرية") = vbYes Then
     DoCmd.SetWarnings False
     DoCmd.RunCommand acCmdDeleteRecord
  Else
End If

**abouelhassan** · يوليو 22, 2021

بارك الله فيك استاذى Hawiii

حذفت الامر ولا يزال الوضع كم هو

بارك الله فيك اخى الكريم

**abouelhassan** · يوليو 22, 2021

استاذى الحبيب مسفر بارك الله فيك

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

اريد ان عندما اضغط على الحذف يحذف السطر المختار على طول دون ان اقف على السطر المراد حذفه

احترامى الشديد لك اخى

تم تعديل يوليو 22, 2021 بواسطه abouelhassan

**مسفر** · يوليو 22, 2021

لا يحتاج الوقوف على السطر

يعمل لدي بدون الوقوف على السطر

هل النموذج الذي تقصد الحذف منه نموذج فرعي ؟

**abouelhassan** · يوليو 22, 2021

استاذى الحبيب .

هو فورم يقوم باستدعاء البيانات من جدول وأقوم بالتعديل فيه بس انا مش عارف هو فرعى ولا لا بارك الله فيك اخي الكريم

تم تعديل يوليو 22, 2021 بواسطه abouelhassan

**مسفر** · يوليو 22, 2021

لو ترفق مثال عشان أقدر اشوف وضعه

يكون أفضل عشان أقدر اشوف المشكلة وين بالضبط

**محمد أبوعبدالله** · يوليو 22, 2021

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

جرب التعديل التالي

Private Sub DELL_ROW_Click()
On Error Resume Next
If IsNull(Select3) Then
        a2.Visible = True
MsgBox "يجب تمكين الحذف ", vbCritical + vbMsgBoxRight, "تنبيه"
Exit Sub
End If
If Not IsNull(Select3) Then
        a2.Visible = False
End If

DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
	DoCmd.Requery
DoCmd.SetWarnings True
End Sub

تحياتي

Hawiii · يوليو 22, 2021

1 ساعه مضت, abouelhassan said:

Private Sub DELL_ROW_Click()
  On Error Resume Next

  If IsNull(Select3) Then
    a2.Visible = True
    MsgBox "يجب تمكين الحذف ", vbCritical + vbMsgBoxRight, "تنبيه"
    Exit Sub
  End If

  If Not IsNull(Select3) Then
    a2.Visible = False
  End If

  DoCmd.SetWarnings False
  
  DoCmd.RunCommand acCmdSelectRecord
  DoCmd.RunCommand acCmdDeleteRecord

  DoCmd.SetWarnings True
End Sub

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

**abouelhassan** · يوليو 22, 2021

استاذى الحبيب محمد أبوعبدالله

اشكرك من كل قلبى

لا زال عند الضغط على حذف يحذف اول سجل

ها هى قاعدة البيانات للاطلاع اخوانى

الفورم اسمه SERSH نختار منه اطهار الكل

بارك الله فيكم

DATA14.mdb

Hawiii · يوليو 22, 2021

Private Sub DELL_ROW_Click()
  On Error Resume Next

  If IsNull(Select3) Then
    a2.Visible = True
    MsgBox "íÌÈ Êãßíä ÇáÍÐÝ ", vbCritical + vbMsgBoxRight, "ÊäÈíå"
    Exit Sub
  End If
  
  If Not IsNull(Select3) Then
    a2.Visible = False
  End If

  If MsgBox("ÇäÊ Úáì æÔß ÍÐÝ ÓÌá ", vbYesNo, "ÑÓÇáÉ ÊÍÐíÑíÉ") = vbYes Then
    DoCmd.SetWarnings False
  
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
  
    DoCmd.SetWarnings True
  End If
End Sub

هذا عمل عندي بشكل صحيح

**ابوخليل** · يوليو 22, 2021

منذ ساعه, Hawiii said:

هذا الأمر سوف ينقلك دائما لأول سجل ، جرب أن تتخلص منه.

نعم ,, ينقل المؤشر لبداية السجلات

عذرا لم انتبه لوجوده

**abouelhassan** · يوليو 22, 2021

استاذى Hawiii

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

حتى اننى قمت بالوقوف على السجل الاخير ايضا تم حذف اول سجل

بارك الله فيك اخيك الكريم

Hawiii · يوليو 22, 2021

أخي أبو الحسن
لا تزعل مني ، من مثالك الذي أنزلناه لم أرى فيه الكود كما اقترحته عليك أنا!!
وهذا يثبت أنك تستعجل في تطبيق التعليمات/النصائح وينتج عنه أخطاء ، تحتاج تركيز أكبر وحاول هذه المرة تعد الأسطر للتتأكد أنك استخدمت الكود بحذافيره

غير كذا يمكن الأكسس عندك "ملبوس"

**abouelhassan** · يوليو 22, 2021

بارك الله فيك استاذى

ها هو الكود الذى استخدمه اخى

Private Sub DELL_ROW_Click()
On Error Resume Next
If IsNull(Select3) Then
        a2.Visible = True
MsgBox "íÌÈ Êãßíä ÇáÍÐÝ ", vbCritical + vbMsgBoxRight, "ÊäÈíå"
Exit Sub
End If
If Not IsNull(Select3) Then
        a2.Visible = False
End If

'DoCmd.SetWarnings False
'    DoCmd.Requery
'    DoCmd.RunCommand acCmdSelectRecord
'    DoCmd.RunCommand acCmdDeleteRecord
'DoCmd.SetWarnings True
If MsgBox("ÇäÊ Úáì æÔß ÍÐÝ ÓÌá ", vbYesNo, "ÑÓÇáÉ ÊÍÐíÑíÉ") = vbYes Then
     DoCmd.SetWarnings False
     DoCmd.RunCommand acCmdDeleteRecord
  Else
End If
End Sub

بارك الله فيك اخى الكريم

Hawiii · يوليو 22, 2021

حياك الله أخي ، سامحني ، فعلا هناك مشكلة مع أنك ألصقت كود خاطئ لا يشابه ما اقترحته عليك.

عموما ما اكتشفته أن عند الضغط على زر الحذف فأنت لا زلت لم تختر السجل لأنه منفصل غير مرتبط بالسجل ، وهنا لابد من اختيار السجل أولا ثم الضغط على الزر.
لا أعلم من نصحك بهذه الطريقة؟!! ، سأحاول أعمل تحايل ربما تنجح مع أن أنصحت أن تترك هذا الزر وتعمل بالشكل النموذجي للأكسس.

Hawiii · يوليو 22, 2021

جرب الآن ، منظر الحقل مو حلو كالسابق ، ولكن هذا اللي أقدر عليه.

DATA14_Hawiii_1.mdb

**د.كاف يار** · يوليو 22, 2021

اتفضل يا بوالحسن

    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord

On Error Resume Next
If IsNull(Select3) Then
        a2.Visible = True
MsgBox "يجب تمكين الحذف ", vbCritical + vbMsgBoxRight, "تنبيه"
Exit Sub
End If
If Not IsNull(Select3) Then
        a2.Visible = False
End If

DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
	DoCmd.Requery
DoCmd.SetWarnings True

**abouelhassan** · يوليو 22, 2021

بارك الله فيك اخى استاذ Hawiii حبيبى اشكرك

استاذى الكريم جدااااد.كاف يار اسعد الله اوقاتك

بعد ان اضفت الكود فتحت الفورم اخترت اظهار الكل

امامنا 3 مبالغ 100-200-15200

اخترت حذف 15200 التى بالاسف عن طريق لبضغط عى علامة الحذف الحمراء

1.png.4cb2abec2886d7d2e3d588613f47fa4b.png

فظهر لى هذا

اتحذف السطر الاول المبلغ 100 وتكرر السطر الذى ضغطت على علام الحذف التى امامه

2.png.b0a11e46e0c62ad304bb2cc7b5a76023.png

بارك الله فيك وبك استاذى الحبيب

DATA14.mdb

**د.كاف يار** · يوليو 22, 2021

اتفضل التعديل يابو الحسن

DATA14 (11111).accdb

**مسفر** · يوليو 22, 2021

وهذا يابو الحسن محاولة مني جرب لعل وعسى

DATA14.rar

**abouelhassan** · يوليو 22, 2021

استاذى الكريم جدااااد.كاف يار اسعد الله اوقاتك

بعد ان اضفت الكود فتحت الفورم اخترت اظهار الكل

امامنا 3 مبالغ 100-200-15200

اخترت حذف 15200 التى بالاسف عن طريق لبضغط عى علامة الحذف الحمراء

1.png.4cb2abec2886d7d2e3d588613f47fa4b.png

فظهر لى هذا

اتحذف السطر الاول المبلغ 100 وتكرر السطر الذى ضغطت على علام الحذف التى امامه

2.png.b0a11e46e0c62ad304bb2cc7b5a76023.png

حبيبى استاذى الكريم الغالى د.كاف يار

نفس النتيجة التى بالاعلى كل ما اختار احذف يتكرر السطر

ربنا يكرمك يارب ويزيدك من فضله

بارك الله فيك وبك استاذى الحبيب

تسجيل الدخول

تعديل كود حذف سجل

الردود الموصى بها

abouelhassan

ابوخليل

abouelhassan

Hawiii

مسفر

abouelhassan

abouelhassan

مسفر

abouelhassan

مسفر

محمد أبوعبدالله

Hawiii

abouelhassan

Hawiii

ابوخليل

abouelhassan

Hawiii

abouelhassan

Hawiii

Hawiii

د.كاف يار

abouelhassan

د.كاف يار

مسفر

abouelhassan

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information