ارجو التعديل علي كود حفظ البيانات

[2saad]

اخواني اعضاء المنتدي الكرام

لدي فورم وبه زر لحفظ اليبيانات وعند تسجيل بيان جديد وبالضغط علي زر حفظ البيانات يرحل البيانات في آخر الجدول ولا يرحلها بعد البيانات الموجودة في الجدول

يعني المفروض آخر بيانات في الجدول رقم 61 لما ارحل بيانات جديدة تترحل في آخر الجدول وليس بعد 61

فما الحل ؟

آمحمد.xlsmىسف الملف المرفق

[حسونة حسين]

حول الجدول الي نطاق عادى وسوف يعمل الكود بلا مشاكل

[2saad]

شكرا جزيلا أستاذنا

[Abu_Muhsen]

أو قم بتحديد مجال الجدول بحسب البيانات المسجلة

وعند الإضافة سيتم تمديد المجال

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

@2saad

هل ممكن ان تقول  لي المتغير  i فيما  يستخدم بناء على كودك؟!!!

Private Sub CommandButton2_Click()
Dim add As Integer
i = Application.WorksheetFunction.CountA(Sheet54.Range("c:c"))
add = Sheet54.Range("c1000").End(xlUp).row + 1
Sheet54.Cells(add, 3).Value = Me.TextBox1.Value
Sheet54.Cells(add, 4).Value = Me.TextBox2.Value
Sheet54.Cells(add, 5).Value = Me.TextBox3.Value
Sheet54.Cells(add, 6).Value = Me.TextBox4.Value
Sheet54.Cells(add, 7).Value = Me.TextBox5.Value
Sheet54.Cells(add, 8).Value = Me.TextBox6.Value
Sheet54.Cells(add, 9).Value = Me.TextBox7.Value
Sheet54.Cells(add, 10).Value = Me.TextBox8.Value
Sheet54.Cells(add, 11).Value = Me.TextBox9.Value
Sheet54.Cells(add, 12).Value = Me.TextBox10.Value
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
MsgBox "تم حفظ البيانات بنجاح يا عم سعد", vbInformation, "تنبيه يا عم سعد"

End Sub

 

جرب  هذا  التغيير  ولكن  قبل  كل  شيء اتبع  الخطوات بعناية 

1- احدف  اي  صف  فارغ في  الجدول ( لا تجعل الجدول يحتوي على صفوف فارغة) 

2- لا داعي  للتيكست بوكس  الخاص  بالتسلسل  لانه  الكود  سيقوم بادراج صف ويقوم بترقيمها اتوماتيكيا  حينها  سيصبح عند 9 تيكست بوكس وليس 10 كما  في الكود 

3- تم  التعديل  باضافة اجراءات خاصة بكائن الجدول 

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

Private Sub CommandButton2_Click()
Dim tbl As ListObject
Dim LastRow As Long

Set tbl = Sheet54.ListObjects("Table14")
LastRow = tbl.Range.Rows.Count 

With Sheet54
    tbl.Range(LastRow, "B").Offset(1) = TextBox1.Value
    tbl.Range(LastRow, "C").Offset(1) = TextBox2.Value
    tbl.Range(LastRow, "D").Offset(1) = TextBox3.Value
    tbl.Range(LastRow, "E").Offset(1) = TextBox4.Value
    tbl.Range(LastRow, "F").Offset(1) = TextBox5.Value
    tbl.Range(LastRow, "G").Offset(1) = TextBox6.Value
    tbl.Range(LastRow, "H").Offset(1) = TextBox7.Value
    tbl.Range(LastRow, "I").Offset(1) = TextBox8.Value
    tbl.Range(LastRow, "J").Offset(1) = TextBox9.Value
End With

MsgBox "تم حفظ البيانات بنجاح يا عم سعد", vbInformation, "تنبيه يا عم سعد"
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""

End Sub

 

 

 

[2saad]

شكرا جزيلا أستاذنا

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

في 1‏/9‏/2023 at 14:07, 2saad said:

يعني المفروض آخر بيانات في الجدول رقم 61 لما ارحل بيانات جديدة تترحل في آخر الجدول وليس بعد 61

 

حتى تتم إضافة الجديد بعد المكتوب مباشرة

يجب حذف الصفوف الفارغة بعد المكتوب ولا تقلق سيتم إضافة الجديد بنفس تنسيق الجدول

ولا تحتاج لتغيير في الكود في هذه الحالة

بالتوفيق

[2saad]

شكرا جزيلا علي الاهتمام

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

اقتباس

ولا تحتاج لتغيير في الكود في هذه الحالة

ولكن  في  بعض  الحالات   لا  تعمل  عندما  تكون  بياناتك  عبارة  عن  جدول  وفي  الكود  يتم  الاشارة الى  مدى عادي  لذا  اجد  من  المفيد لتجنب  المشاكل  الاشارة الى كائن الجدول .

 

 

[2saad]

شكرا لحضرتك للتنويه

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

اقتباس

ولكن  في  بعض  الحالات   لا  تعمل

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

بالتوفيق للجميع