اضافة بيانات في فورم

[mostapha20]

 sssss - Copie.rarالسلام عليكم ورحمة الله وبركاته

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

طلب

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

تم تعديل سبتمبر 7, 2015 بواسطه mostapha20
خطا في الصورة

[مختار البركاني]

اين الملف اخي الكريم .

 

[mostapha20]

تم اضافة الملف اخي

مختار البركاني

[عبد العزيز البسكري]

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

جرّب أخي مصطفى 20 هذا الملف .. ربما يكون ما تريده ..

خالص تحياتي

 

sssss - 2.rar

[mostapha20]

اولا متشكر على زر اللدي اضفة لاكن انا ما اريده هو طريقة ما كي يتم تعديال البيانات دون تغير مكانها

[عبد العزيز البسكري]

و أنا بدوري متشكر على الرد .. فقط ألفت انتباهك أخي مصطفى 20 أنّك طلبت تصحيح إدخال البيانات و ليس التعديل ..وهناك فرق كبير بين المصطلحيْن

 

[mostapha20]

نعم اخي لدي مشكل في اللغة العربية هههه

[mostapha20]

ممكن الحل يا اخوان

[أسامة البراوى]

السلام عليكم

جرب استبدال كود زر التعديل بالكود التالى

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

 

[mostapha20]

جزاك الله خيرا والله يرحم ليك اللوليدين أسامة البراوى

[محمد عبدالسلام]

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

بارك الله فيك أستاذنا أسامة البراوى .. جزاك الله خيرا و زادك من علمه و فضله