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

[ahmed01111]

السلام عليكم

يعد عرض البيانات المحدده فى الليست بوكس اريد ان اضيف التعديلات بعد الضغط علىه

عملاء ج.rar

[أ / محمد صالح]

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

ومحاولة التعلم والتطبيق من جميع النتائج

وهذه إحدى نتائج البحث

https://www.officena.net/ib/search/?q=فورم بحث وتعديل&quick=1&type=forums_topic&nodes=135&search_and_or=and

كما أن تصميم ملفك مخالف لكل الموضوعات

حيث يفضل أن تكون الاضافة والتعديل والبحث في نموذج واحد

بحيث عن الضغط على العنصر في القائمة يتم نقل جميع معلوماته الي مربعات النص الخاصة بالتعديل او الاضافة

راجع الموضوعات في نتائج البحث وخصوصا شرح عمل نموذج البحث خطوة بخطوة

[ahmed01111]

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

 

[ahmed01111]

شكرا للأهتمام 😡

[عبدالفتاح في بي اكسيل]

هذا  الموضوع  تم  تناوله  كثيرا    لا  اداري  اين  الاختلاف  

لقد  اطلعت  على  ملفك بشكل  سريع  تم  اصلاح   بعض  الاشياء 

جربه

Private Sub CommandButton5_Click()
Dim lr As Long
Dim b As Worksheet
Set b = Worksheets("sheet1")
lr = b.Cells(Rows.Count, 1) _
  .End(xlUp).Row
  
    b.Range("a" & lr).Value = Me.TextBox1.Value
   b.Range("b" & lr).Value = Me.TextBox2.Value
  b.Range("c" & lr).Value = Me.TextBox3.Value
   b.Range("d" & lr).Value = Me.TextBox4.Value
    b.Range("e" & lr).Value = Me.TextBox5.Value
      b.Range("f" & lr).Value = Me.TextBox6.Value
      b.Range("g" & lr).Value = Me.TextBox7.Value
      b.Range("h" & lr).Value = Me.TextBox8.Value
     b.Range("i" & lr).Value = Me.TextBox9.Value
     b.Range("g" & lr).Value = Me.TextBox10.Value
       
  TextBox2.Value = ""
  TextBox3.Value = ""
  ComboBox1.Value = ""
  TextBox5.Value = ""
  TextBox6.Value = ""
  TextBox7.Value = ""
  ComboBox2.Value = ""
  TextBox9.Value = ""
  TextBox10.Value = ""
  End Sub