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

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


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

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information