اذهب الي المحتوي
أوفيسنا

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


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

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

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

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

Book1.rar

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

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

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

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

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

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

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

form.rar

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

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

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

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

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

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

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

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

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

السلام عليكم

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


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

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

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

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



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

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

Important Information