اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


abouelhassan

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

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

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

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

احترامى

تم تعديل بواسطه abouelhassan
رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه abouelhassan
رابط هذا التعليق
شارك

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

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

 

 

 

تم تعديل بواسطه abouelhassan
رابط هذا التعليق
شارك

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

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

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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

DATA14.mdb

رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

استاذى Hawiii

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

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

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

 

 

رابط هذا التعليق
شارك

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

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

  • Like 1
  • Haha 1
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

    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

 

رابط هذا التعليق
شارك

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

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

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

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

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

1.png.4cb2abec2886d7d2e3d588613f47fa4b.png

فظهر لى هذا

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

2.png.b0a11e46e0c62ad304bb2cc7b5a76023.png

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

DATA14.mdb

رابط هذا التعليق
شارك

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

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

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

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

1.png.4cb2abec2886d7d2e3d588613f47fa4b.png

فظهر لى هذا

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

2.png.b0a11e46e0c62ad304bb2cc7b5a76023.png

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information