mostapha20 قام بنشر سبتمبر 7, 2015 مشاركة قام بنشر سبتمبر 7, 2015 (معدل) sssss - Copie.rarالسلام عليكم ورحمة الله وبركاته الاساتذة الافاضل بارك الله في جهودكم واساله سبحانه وتعالى ان يفيض عليكم من فضله خيرا وبركه طلب ممكن تصحيح الكود الموجود في الفورم كي يتم ادخال البينات ليس بالترتيب بل كما في الصورة و شكرا تم تعديل سبتمبر 7, 2015 بواسطه mostapha20 خطا في الصورة رابط هذا التعليق شارك More sharing options...
مختار البركاني قام بنشر سبتمبر 7, 2015 مشاركة قام بنشر سبتمبر 7, 2015 اين الملف اخي الكريم . رابط هذا التعليق شارك More sharing options...
mostapha20 قام بنشر سبتمبر 7, 2015 الكاتب مشاركة قام بنشر سبتمبر 7, 2015 تم اضافة الملف اخي مختار البركاني رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر سبتمبر 7, 2015 مشاركة قام بنشر سبتمبر 7, 2015 السلام عليكم و رحمة الله و بركاته جرّب أخي مصطفى 20 هذا الملف .. ربما يكون ما تريده .. خالص تحياتي sssss - 2.rar 2 رابط هذا التعليق شارك More sharing options...
mostapha20 قام بنشر سبتمبر 7, 2015 الكاتب مشاركة قام بنشر سبتمبر 7, 2015 اولا متشكر على زر اللدي اضفة لاكن انا ما اريده هو طريقة ما كي يتم تعديال البيانات دون تغير مكانها رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر سبتمبر 7, 2015 مشاركة قام بنشر سبتمبر 7, 2015 و أنا بدوري متشكر على الرد .. فقط ألفت انتباهك أخي مصطفى 20 أنّك طلبت تصحيح إدخال البيانات و ليس التعديل ..وهناك فرق كبير بين المصطلحيْن رابط هذا التعليق شارك More sharing options...
mostapha20 قام بنشر سبتمبر 8, 2015 الكاتب مشاركة قام بنشر سبتمبر 8, 2015 نعم اخي لدي مشكل في اللغة العربية هههه رابط هذا التعليق شارك More sharing options...
mostapha20 قام بنشر سبتمبر 9, 2015 الكاتب مشاركة قام بنشر سبتمبر 9, 2015 ممكن الحل يا اخوان رابط هذا التعليق شارك More sharing options...
أسامة البراوى قام بنشر سبتمبر 9, 2015 مشاركة قام بنشر سبتمبر 9, 2015 السلام عليكم جرب استبدال كود زر التعديل بالكود التالى Dim i As Integer LR = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To LR If Sheet1.Cells(i, 1) = Val(TextBox2) Then Sheet1.Cells(i, 2) = Me.Controls("TextBox3") Sheet1.Cells(i, 4) = Me.Controls("TextBox4") Sheet1.Cells(i, 9) = Me.Controls("TextBox5") Sheet1.Cells(i, 7) = Me.Controls("TextBox6") End If Next ListBox1.Clear TextBox1_Change Me.CommandButton1.Visible = False 1 رابط هذا التعليق شارك More sharing options...
mostapha20 قام بنشر سبتمبر 9, 2015 الكاتب مشاركة قام بنشر سبتمبر 9, 2015 جزاك الله خيرا والله يرحم ليك اللوليدين أسامة البراوى رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر سبتمبر 10, 2015 مشاركة قام بنشر سبتمبر 10, 2015 السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا أسامة البراوى .. جزاك الله خيرا و زادك من علمه و فضله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.