التعديل على قيمة مربع نص

[haniameen]

لدي نموذج لاد خال درجات المواد الدراسية 

يوجد مربع نص tt1  المطلوب أن تتغير  قيمة هذا المربع بناء على شرط معلمة كود المادة 

فمثلا عندما يكون كود المادة = 1 تتغير قيمة هذا المربع النص إلى قيمة الحقل n_ar_1  ويجب التعديل عليه بتغيير الدرجة كما هو متاح في الاستعلام 

      2 عندما يكون كود المادة = 2 تتغير قيمة هذا المربع النص إلى قيمة الحقل n_ma_1  ويجب التعديل عليه بتغيير الدرجة كما هو متاح في الاستعلام 

وهكذا بالنسبة لباقي المواد   ................. وهذا أنا توصلت له 

المشكلة هي عدم القدرة التعديل على القيمة في مربع النص فهو لا يسمح بالتعديل

القدرة على التعديل في قيمة مربع نص.rar

[ابوخليل]

تفضل

التعديل في قيمة مربع نص.rar

[haniameen]

منذ ساعه, ابوخليل said:

تفضل

التعديل في قيمة مربع نص.rar

أخي أبو خليل شكرا على مرورك 

لكن لا أدري ماذا فعلت انت في هذا المرفق ...... فلا يوجد اي تغيير فيما ارفقت ..... والوضع كما هو ولا استطيع التعديل في الدرجات من خلال مربع النص في النموذج

فمثلا عند اختيار كود المادة 1  وكود الصف 3 نجد الطالب ابراهيم جادالكريم احمد جاد المولى  درجة اللغة العربية  20 المطلوب أستطيع أن أغير هذه الدرجة كما أريد فمثلا بدلا من 20 نكتبها 30 

أي يمكن تغيير درجة المادة من خلال النموذج حسب درجة الورقة الامتحانية للطالب حيث أنهذا النموذج هو نموذج ادخال 

.............

أنا توصلت لفكرة لكنها طويلة في المرفق التالي أرجو الاطلاع عليها 

حيث قمت بسحب جميع حقول المواد فوق بعضها واستخدام كود vba  

If Me.code_sub = 1 Then
Me.N_Ar_1.Visible = True
Me.N_Ma_1.Visible = False

ولكن هذه الفكرة يعيبها طول كود vba  في حدث الحالي للنموذج 

ولكن أنا أثق تما ما أنه توجد فكرة لديك بطريقة أفضل من هذه 

نهائي ادخال الدرجات .rar

[ابوخليل]

حبيبنا المعذرة  كنت ارفقت لك مثالك الاصلي

تفضل التعديل

db1.rar

[haniameen]

3 ساعات مضت, ابوخليل said:

حبيبنا المعذرة  كنت ارفقت لك مثالك الاصلي

تفضل التعديل

db1.rar

جاري التحميل والدراسة والفهم والرد 

وشكرا على مرورك الكريم اخي ابو خليل

[haniameen]

10 ساعات مضت, ابوخليل said:

حبيبنا المعذرة  كنت ارفقت لك مثالك الاصلي

تفضل التعديل

db1.rar

الصراحة أخي ابو خليل مش عارف اقولك ايه ؟ 

دائما تأتي بما هو صعب  سهلا 

البساطة في الكود والعظمة في المجهود 

شكرا أخي ابو خليل 

بس اطلب منك توضيح معنى 

ControlSource   بالنسبة لمربع النص tt1  

[Shivan Rekany]

استأذن من استاذنا ابوخليل

3 ساعات مضت, haniameen said:

بس اطلب منك توضيح معنى 

ControlSource   بالنسبة لمربع النص tt1  

هو مصدر المربع النصي
مثلا استاذنا استخدمت هذا الكود

If [code_sub] = 1 Then TT1.ControlSource = "N_Ar_1"
If [code_sub] = 2 Then TT1.ControlSource = "N_Ma_1"
If [code_sub] = 3 Then TT1.ControlSource = "N_En_1"

اذا كان مربع Code_sub بيكون يساوي 1 حينئذ مصدر المربع باسم TT1 بيكون N_Ar_1

اذا كان مربع Code_sub بيكون يساوي 1 حينئذ مصدر المربع باسم TT1 بيكون N_Mr_1

اذا كان مربع Code_sub بيكون يساوي 1 حينئذ مصدر المربع باسم TT1 بيكون N_Er_1

الى اخره

[haniameen]

1 ساعه مضت, Shivan Rekany said:

استأذن من استاذنا ابوخليل

هو مصدر المربع النصي
مثلا استاذنا استخدمت هذا الكود

If [code_sub] = 1 Then TT1.ControlSource = "N_Ar_1"
If [code_sub] = 2 Then TT1.ControlSource = "N_Ma_1"
If [code_sub] = 3 Then TT1.ControlSource = "N_En_1"

اذا كان مربع Code_sub بيكون يساوي 1 حينئذ مصدر المربع باسم TT1 بيكون N_Ar_1

اذا كان مربع Code_sub بيكون يساوي 1 حينئذ مصدر المربع باسم TT1 بيكون N_Mr_1

اذا كان مربع Code_sub بيكون يساوي 1 حينئذ مصدر المربع باسم TT1 بيكون N_Er_1

الى اخره

جزاك الله خيرا أخي shivan 

وصلت الفكرة وشكرا على مرورك واهتمامك منذ بداية الموضوع

وهذا ما عهدناه فيكم رواد هذا المنتدى

بس هناك طلب صغير هو انت اسمك بالعربي ايه ؟

[Shivan Rekany]

13 ساعات مضت, haniameen said:

بس هناك طلب صغير هو انت اسمك بالعربي ايه ؟

ههههههه سؤال صعب 
انا اسمي شفان باللغة الكردية اي بالعربي يعني ( راعي ) 
كلكم راعي وكلكم مسؤل عن رعيته 

تم تعديل ديسمبر 9, 2017 بواسطه Shivan Rekany

[haniameen]

9 ساعات مضت, Shivan Rekany said:

ههههههه سؤال صعب 
انا اسمي شفان باللغة الكردية اي بالعربي يعني ( راعي ) 
كلكم راعي وكلكم مسؤل عن رعيته 

الصراحة أول مرة اسمع بهذا الاسم الجميل ..... تسلم أخي