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

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


mostapha20

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

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

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

طلب

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

Untitled-1.jpg

تم تعديل بواسطه mostapha20
خطا في الصورة
رابط هذا التعليق
شارك

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

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

خالص تحياتي

 

sssss - 2.rar

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

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

 

1.png

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

السلام عليكم

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

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

 

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information