تعديل على زر تعديل بفورم

[يوسف السيد]

السلام عليكم :

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

وكذلك عند الاختيار للتعديل من الكمبوبوكس احيانا لا يتم عرض كل البيانات

تعديلاااااات.rar

[ضاحي الغريب]

أخي الكريم // يوسف 

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

جرب المرفق بعد التعديل

تقبل تحياتي

يوسف السيد.rar

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ضاحي الغريب

بارك الله فيك

دائما انت الارووع

وعلي فكرة كنت اجهز للرد علي الملف وعدت مرة اخري للمنتدي

فوجدت ردك الاكثر من راائع 

ولا يوجد رد بعده بكل تأكيد

تقبل خالص تحياتي

جزاك الله خيرا

[ضاحي الغريب]

السلام عليكم

الاخ الحبيب / ضاحي الغريب

بارك الله فيك

دائما انت الارووع

وعلي فكرة كنت اجهز للرد علي الملف وعدت مرة اخري للمنتدي

فوجدت ردك الاكثر من راائع 

ولا يوجد رد بعده بكل تأكيد

تقبل خالص تحياتي

جزاك الله خيرا

أخي الحبيب ابوسما

انت دائما سباق للخيرات

بارك الله فيك وجزاك خيرا

واكيد ملف كان اروع واجمل بجمال روحكم وشخصيتكم

تقبل تحياتي

[يوسف السيد]

اخوانى الافاضل :

أ:ضاحى غريب .. ردك حقا كثر من رائع

أ:حماده عمر .. لؤلؤة المنتدى

شكراااااااااااااااااااا جزيلا وجزاكم الله خيرا .

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

[يوسف السيد]

أ:ضاحى غريب

وجدت هذه التسمية بين الاكواد Set SH = Sheet2
علما بانه لايوجد سوى ورقة واحده اسمها data
ارجو  التوضيح .. وعذرا ان كنت اثقل عليك
 

[ضاحي الغريب]

أ:ضاحى غريب

وجدت هذه التسمية بين الاكواد Set SH = Sheet2

علما بانه لايوجد سوى ورقة واحده اسمها data

ارجو  التوضيح .. وعذرا ان كنت اثقل عليك

 

أخي يوسف 

بارك الله فيك 

Sheet2هو اسم الورقة DATA الثابت واستخدامه افضل من استخدام اسم الورقة لان ه اذا قمت بتغيير اسم الورقة لن يتاثر عمل الكود

وهتلاقيه في محرر الاكواد

 

 

وفضلا قم بتعديل كود الحذف لانه يحتوي علي خطأ الي الكود التالي

Private Sub CommandButton3_Click()
Rows(ComboBox1.ListIndex + 4 & ":" & ComboBox1.ListIndex + 4).Select
    Selection.Delete Shift:=xlUp
          MsgBox "Êã ÍÐÝ ÇáÓÌá ÈäÌÇÍ", vbInformation + vbMsgBoxRight, "ÍÐÝ"
Clear_Form
End Sub

 

مع تحياتي

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ضاحي الغريب

بارك الله فيك

واكرمك الله في الدارين

تقبل خالص تحياتي

[يوسف السيد]

شكرا أ:ضاحى .. حقا بارك الله لك وجزاك خيرا
أ:حمادة عمر .. شرفنى مرورك الكريم