اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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

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