أبوســـارة1973 قام بنشر سبتمبر 3, 2012 قام بنشر سبتمبر 3, 2012 المطلوب هو فورم يقوم بفتح خانات جديدة كلما أدخلت بيانات في الخانة الأخيرة أرفقت مع ملف الأكسيل الذي أريد عمل الفورم فيه ملف آخر من الأكسس وللتوضيح ما أريده هو فورم مثل الفورم التي تختارها من أيقونة إدخال مخالفات جديد Book1.rar برنامج متابعة المعلمين.rar
الـعيدروس قام بنشر سبتمبر 3, 2012 قام بنشر سبتمبر 3, 2012 السلام عليكم الاخ الفاضل أبوســـارة1973 حط مثال يوضح المطلوب في الاكسل
أبوســـارة1973 قام بنشر سبتمبر 3, 2012 الكاتب قام بنشر سبتمبر 3, 2012 المثال مرفق في ملف أكسيل المطلوب : هو فورم على غرار الفورم الموجود في ملف ا لأكسس ( جرب أدخل للملف واختر إدخال مخالفات جديد ) ستظهر لك فورم يقوم إدراج ركورد جديد كلما أدخلت قيمة في آخر ركورد ( تكست بوكس )
أبوســـارة1973 قام بنشر سبتمبر 4, 2012 الكاتب قام بنشر سبتمبر 4, 2012 الأخ عباد : السلام عليكم نعم الموجود فقط زر ليس به أي فورم ، لأن هذا هو طلبي !
أبوســـارة1973 قام بنشر سبتمبر 4, 2012 الكاتب قام بنشر سبتمبر 4, 2012 شاهدوا الصورة في الملف المرفق هذا هو المطلوب ، فورم في الأكسيل مثل هذه الفورم تقوم بفتح ركورد جديد كلما كتبت في آخر ركورد form.rar
عبدالله المجرب قام بنشر سبتمبر 5, 2012 قام بنشر سبتمبر 5, 2012 السلام عليكم هذه محاولة على قد الحال عبدالله المجرب.rar
جمال عبد السميع قام بنشر سبتمبر 5, 2012 قام بنشر سبتمبر 5, 2012 ماشاء الله ( أستاذي عبد الله ) وحشتنا هذه الأعمال وأسمح لتلميذك بهذه الأضافة عبدالله المجرب.rar
أبوســـارة1973 قام بنشر سبتمبر 11, 2012 الكاتب قام بنشر سبتمبر 11, 2012 شكراً أستاذ عبدالله هذا بالضبط طلبي ولكن يحتاج إلى تعديل بسيط : في حالة أنك تريد حذف البيانات من تكست بوكس تم إدخالها مسبقاً فانه لا يتم حدفها من صفحة الأكسيل
عبدالله المجرب قام بنشر سبتمبر 11, 2012 قام بنشر سبتمبر 11, 2012 السلام عليكم استبدل هذا الجزء من الكود 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
عبدالله المجرب قام بنشر سبتمبر 11, 2012 قام بنشر سبتمبر 11, 2012 العفو أخي أبو سارة ولم اقم الا بواجبي حسب الاستطاعة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.