ترحيل بيانات فورم

[عبد الله-بلال]

السلام عليكم يا إخواني ، أشكركم جزيل الشكر على تزويدنا بالمعلومات القيمة في مجال البرمجة أما بعد : أريد أن أقوم بترحيل بيانات من الفورم إلى مكانها المخصص لها في ورقة حجز النقاط ، فينقصني الكود الخاص بهذه العملية بحيث أن الكمبو بوكس بها أسماء التلاميذ الموجودين بورقة حجز التلاميذ و شكرا و الله يجازيكم أحسن الجزاء . إذا أمكن شرح الكود من فضلكم .

تفضل المرفق

نقاط التلاميذ.rar

[عبد الفتاح كيرة]

تفضل مولانا

تم تعديل ديسمبر 25, 2010 بواسطه kemas

[عبد الله-بلال]

السلام عليكم أخي kemas جزاكم الله ، و لكن الرد غير موجود و شكرا.

[عبد الفتاح كيرة]

تفضل مولانا

استخدم الكود التالى مع الزر المسمى " ترحيل "

Private Sub CommandButton1_Click()

Dim myrng As Range

Dim myc As Range

With Sheets("ÍÌÒ ÇáäÞÇØ")

Set myrng = .Range("b9:b100")

For Each myc In myrng

If myc.Value = Me.ComboBox1.Value Then



    For i = 1 To 4

    myc.Offset(0, i + 6).Value = Me.Controls("textbox" & i).Text

    Me.Controls("textbox" & i).Text = ""

    Next i

    myc.Offset(0, 13).Value = Me.Controls("textbox5").Text

    Me.Controls("textbox5").Text = ""

    End If

    Next myc


 End With

End Sub

نقاط التلاميذ-kemas.zip

[عبد الله-بلال]

يا أخي kemas بارك الله فيك و كثر الله من أمثالك الترحيل يعمل بشكل جيد . ينقصني إذا شئت كيفية تحديد لأعلى نقطة في textbox ( يعني في تقويم المستمر لا تتعدى النقطة 20 و في الاختبارات لا تتعدى النقطة 10 ) و كيف أرغمها أن تقبل الأرقام فقط و لكم و لكل الأعضاء و المشرفين و كل من هو قائم على هذا المنتدى الرائع جزيل الشكر و السلام عليكم و رخمة الله و بركاته.

[عبد الفتاح كيرة]

أضف السطور التالية داخل الحلقة

For i = 1 To 4


    If Val(Me.Controls("TextBox" & i).Text) > 10 Then

    TextBox1.Text = ""

    Exit Sub

    myc.Offset(0, i + 6).Value = Me.Controls("textbox" & i).Text

    Me.Controls("textbox" & i).Text = ""

    Next i

ثم لإجبار مربع النص على قبول الأرقام فقط دون الحروف ضع الكود التالى فى حدث keypress لكل مربع نص

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0

End Sub

تم تعديل ديسمبر 26, 2010 بواسطه kemas

[عبد الله-بلال]

السلام عليكم أخي kemas بارك الله فيك ، و لكن الكود لا يعمل بعد إضافة الأسطر التي قلت لي داخل الحلقة لست أدري لماذا؟ و أما الكود الثاني فهو يعمل جيدا ( كود إجبار مربع نص بقبول الأرقام فقط) و شكرا و اسمح لي على الإزعاج .

[عبد الفتاح كيرة]

عفوا خطأ بسيط

If Val(Me.Controls("TextBox" & i).Text) > 10 Then

    TextBox1.Text = ""

    Exit Sub

عدل السطر الثانى إلى

Me.Controls("TextBox" & i).Text = ""

[عبد الله-بلال]

يا أخي kemas أتعبتك معي ... عندما عدلت الكود جاءت نافذة تقول (erreur de compilation ، for sans next )مع العلم أن مربعات نص لا تقبل الحروف و لكن تقبل الأرقام بأي رقم تكتبه فيها و أنا ينقصني تحديد الأرقام ( ت.مستمر لا يتعدى 20 و اختبارات لا تتعدى 10 ) و شكرا جزيلا .

[عبد الفتاح كيرة]

تفضل أخى

الملف بعد التعديل

نقاط التلاميذ-kemas2.zip

[عبد الله-بلال]

اسمح لي على تعبك معي و لكن خلل في الكود لأنه يرحل بيانات مربع نص رقم 1 فقط و جزاك الله الجنة إن شاء و السلام عليكم .

[عبد الفتاح كيرة]

و لا يهمك أخى

تفضل

كان يوجد سطر بيانات فى أعلى الصفحة

نقاط التلاميذ-kemas3.zip

تم تعديل ديسمبر 27, 2010 بواسطه kemas

[عبد الله-بلال]

أخي kemas بارك الله فيك و جزاك الله كل الخير على هذه الإفادة و إذا أحتجت لأحد من الخبراء في هذا المنتدى فإني لا أقصر في طرح الأسئلة للاستفادة فقط لأنني مبتدأ في vba وشكرا جزيلا مرة أخرى و السلام عليكم .

[superadmin]

معلومات رائعة فعلا

جزاكم الله كل خير

[عبد الله-بلال]

بارك الله فيكم أخي supperadmin كما نتمنى من الله عزوجل أن يعلمنا من أساتذتنا الأفاضل و الله لا يضيع أجر المحسنين .