haniameen قام بنشر ديسمبر 7, 2017 مشاركة قام بنشر ديسمبر 7, 2017 لدي نموذج لاد خال درجات المواد الدراسية يوجد مربع نص tt1 المطلوب أن تتغير قيمة هذا المربع بناء على شرط معلمة كود المادة فمثلا عندما يكون كود المادة = 1 تتغير قيمة هذا المربع النص إلى قيمة الحقل n_ar_1 ويجب التعديل عليه بتغيير الدرجة كما هو متاح في الاستعلام 2 عندما يكون كود المادة = 2 تتغير قيمة هذا المربع النص إلى قيمة الحقل n_ma_1 ويجب التعديل عليه بتغيير الدرجة كما هو متاح في الاستعلام وهكذا بالنسبة لباقي المواد ................. وهذا أنا توصلت له المشكلة هي عدم القدرة التعديل على القيمة في مربع النص فهو لا يسمح بالتعديل القدرة على التعديل في قيمة مربع نص.rar رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 8, 2017 مشاركة قام بنشر ديسمبر 8, 2017 تفضل التعديل في قيمة مربع نص.rar 2 رابط هذا التعليق شارك More sharing options...
haniameen قام بنشر ديسمبر 8, 2017 الكاتب مشاركة قام بنشر ديسمبر 8, 2017 منذ ساعه, ابوخليل 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 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 8, 2017 مشاركة قام بنشر ديسمبر 8, 2017 حبيبنا المعذرة كنت ارفقت لك مثالك الاصلي تفضل التعديل db1.rar 2 رابط هذا التعليق شارك More sharing options...
haniameen قام بنشر ديسمبر 8, 2017 الكاتب مشاركة قام بنشر ديسمبر 8, 2017 3 ساعات مضت, ابوخليل said: حبيبنا المعذرة كنت ارفقت لك مثالك الاصلي تفضل التعديل db1.rar جاري التحميل والدراسة والفهم والرد وشكرا على مرورك الكريم اخي ابو خليل رابط هذا التعليق شارك More sharing options...
haniameen قام بنشر ديسمبر 8, 2017 الكاتب مشاركة قام بنشر ديسمبر 8, 2017 10 ساعات مضت, ابوخليل said: حبيبنا المعذرة كنت ارفقت لك مثالك الاصلي تفضل التعديل db1.rar الصراحة أخي ابو خليل مش عارف اقولك ايه ؟ دائما تأتي بما هو صعب سهلا البساطة في الكود والعظمة في المجهود شكرا أخي ابو خليل بس اطلب منك توضيح معنى ControlSource بالنسبة لمربع النص tt1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 8, 2017 مشاركة قام بنشر ديسمبر 8, 2017 استأذن من استاذنا ابوخليل 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 الى اخره 1 1 رابط هذا التعليق شارك More sharing options...
haniameen قام بنشر ديسمبر 8, 2017 الكاتب مشاركة قام بنشر ديسمبر 8, 2017 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 وصلت الفكرة وشكرا على مرورك واهتمامك منذ بداية الموضوع وهذا ما عهدناه فيكم رواد هذا المنتدى بس هناك طلب صغير هو انت اسمك بالعربي ايه ؟ 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر ديسمبر 9, 2017 مشاركة قام بنشر ديسمبر 9, 2017 (معدل) 13 ساعات مضت, haniameen said: بس هناك طلب صغير هو انت اسمك بالعربي ايه ؟ ههههههه سؤال صعب انا اسمي شفان باللغة الكردية اي بالعربي يعني ( راعي ) كلكم راعي وكلكم مسؤل عن رعيته تم تعديل ديسمبر 9, 2017 بواسطه Shivan Rekany 1 رابط هذا التعليق شارك More sharing options...
haniameen قام بنشر ديسمبر 9, 2017 الكاتب مشاركة قام بنشر ديسمبر 9, 2017 9 ساعات مضت, Shivan Rekany said: ههههههه سؤال صعب انا اسمي شفان باللغة الكردية اي بالعربي يعني ( راعي ) كلكم راعي وكلكم مسؤل عن رعيته الصراحة أول مرة اسمع بهذا الاسم الجميل ..... تسلم أخي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.