مطلوب عمل فورم يفتح تكست بوكس جديد

[أبوســـارة1973]

المطلوب هو فورم يقوم بفتح خانات جديدة كلما أدخلت بيانات في الخانة الأخيرة

أرفقت مع ملف الأكسيل الذي أريد عمل الفورم فيه ملف آخر من الأكسس

وللتوضيح ما أريده هو فورم مثل الفورم التي تختارها من أيقونة إدخال مخالفات جديد

Book1.rar

برنامج متابعة المعلمين.rar

[أبوســـارة1973]

up

[الـعيدروس]

السلام عليكم

الاخ الفاضل أبوســـارة1973

حط مثال يوضح المطلوب في الاكسل

[أبوســـارة1973]

المثال مرفق في ملف أكسيل

المطلوب : هو فورم على غرار الفورم الموجود في ملف ا لأكسس ( جرب أدخل للملف واختر إدخال مخالفات جديد ) ستظهر لك فورم يقوم إدراج ركورد جديد كلما أدخلت قيمة في آخر ركورد ( تكست بوكس )

[الـعيدروس]

الاكسل زر فقط ليس به اي فورم

[أبوســـارة1973]

الأخ عباد :

السلام عليكم

نعم الموجود فقط زر ليس به أي فورم ، لأن هذا هو طلبي !

[أبوســـارة1973]

شاهدوا الصورة في الملف المرفق

هذا هو المطلوب ، فورم في الأكسيل مثل هذه الفورم تقوم بفتح ركورد جديد كلما كتبت في آخر ركورد

form.rar

[أبوســـارة1973]

up

[عبدالله المجرب]

السلام عليكم

هذه محاولة على قد الحال

عبدالله المجرب.rar

[جمال عبد السميع]

ماشاء الله ( أستاذي عبد الله ) وحشتنا هذه الأعمال

وأسمح لتلميذك بهذه الأضافة

عبدالله المجرب.rar

[أبوســـارة1973]

شكراً أستاذ عبدالله

هذا بالضبط طلبي ولكن يحتاج إلى تعديل بسيط :

في حالة أنك تريد حذف البيانات من تكست بوكس تم إدخالها مسبقاً فانه لا يتم حدفها من صفحة الأكسيل

[عبدالله المجرب]

السلام عليكم

استبدل هذا الجزء من الكود

Private Sub Abu_Ahmed_AfterUpdate()

If LR = T Then Cells(LR + 1, 13).Value = Me.Controls("TextBox" & T).Value

End Sub

بهذا

Private Sub Abu_Ahmed_AfterUpdate()

If LR = T Then Cells(LR + 1, 13).Value = Me.Controls("TextBox" & T).Value

If LR = T + 1 Then Cells(LR, 13).Value = Me.Controls("TextBox" & T).Value

End Sub

[أبوســـارة1973]

شكرا

[عبدالله المجرب]

العفو أخي أبو سارة ولم اقم الا بواجبي حسب الاستطاعة