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

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


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

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

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

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

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

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

السلام عليكم

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

بارك الله فيك

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

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

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

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

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

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

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

السلام عليكم

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

بارك الله فيك

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

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

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

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

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

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

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

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

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

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

تقبل تحياتي

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

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

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

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

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

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

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

أ:ضاحى غريب

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

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

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

 

أخي يوسف 

بارك الله فيك 

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

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

y9zo.png

 

 

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

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

5yz7.png

 

مع تحياتي

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

السلام عليكم

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

بارك الله فيك

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

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

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

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