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

كيف يمكن اختصار الكود التالي


إذهب إلى أفضل إجابة Solved by علي المصري,

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

كيف يمكن اختصار الكود التالي

باستخدام    for  أو أي دالة اخرى

C1 = [Forms]![TStu2SBehTeam]![C1]
C2 = [Forms]![TStu2SBehTeam]![C2]
C3 = [Forms]![TStu2SBehTeam]![C3]
C4 = [Forms]![TStu2SBehTeam]![C4]
C5 = [Forms]![TStu2SBehTeam]![C5]
C6 = [Forms]![TStu2SBehTeam]![C6]
C7 = [Forms]![TStu2SBehTeam]![C7]
C8 = [Forms]![TStu2SBehTeam]![C8]
C9 = [Forms]![TStu2SBehTeam]![C9]
C10 = [Forms]![TStu2SBehTeam]![C10]
C11 = [Forms]![TStu2SBehTeam]![C11]
C12 = [Forms]![TStu2SBehTeam]![C12]
C13 = [Forms]![TStu2SBehTeam]![C13]
C14 = [Forms]![TStu2SBehTeam]![C14]
C15 = [Forms]![TStu2SBehTeam]![C15]
C16 = [Forms]![TStu2SBehTeam]![C16]
C17 = [Forms]![TStu2SBehTeam]![C17]
C18 = [Forms]![TStu2SBehTeam]![C18]
C19 = [Forms]![TStu2SBehTeam]![C19]
C20 = [Forms]![TStu2SBehTeam]![C20]
C21 = [Forms]![TStu2SBehTeam]![C21]
C22 = [Forms]![TStu2SBehTeam]![C22]
C23 = [Forms]![TStu2SBehTeam]![C23]
C24 = [Forms]![TStu2SBehTeam]![C24]
C25 = [Forms]![TStu2SBehTeam]![C25]
C26 = [Forms]![TStu2SBehTeam]![C26]
C27 = [Forms]![TStu2SBehTeam]![C27]
رابط هذا التعليق
شارك

الاستاذ الفاضل سليم حاصبيا

 

عند تنفذ الامر الخاص بك ظهرت الرسالة التالي

post-29819-0-73345800-1411558045_thumb.j

 

عند الضغط على  Debug تظهر اللون الاصفر على الامرالخاص بك

كما يلي

 

post-29819-0-00892400-1411558093_thumb.j

 

 

فما الحل

 

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

وما زالت المشكلة

 

for i= 1 to 27

[c&i]=[Forms]![TStu2SBehteam]![C&i ]   

next i

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

السلام عليكم

 ارى ان الفكرة تحتاج الى اساسات

فيجب توثيق المعلومة

فمثلا المخالفة التي حدثت من الطالب  ستطير ادراج الرياح بمجرد اغلاق البرنامج

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

هذا الملف فقط للطباعة وليس لتخزين مخالفات الطالب

 

فما الحل يا استاذ ابو خليل

 

هذا الملف لا يهمني كثيرا ولكن اريد ان اتعلم عملية اختصار الاكواد فقط لا غير

 

الغرض هو التعلم

 

شكرا

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

شيء آخر :

هذه البطاقة ( التقرير) ليست للتعبئة  وانما هي نتيجة لبيانات موجودة

اذا يهمنا عرض البيانات الايجابية الفعلية فقط

فمثلا  لو تم اختيار بنود الملاحظة  من منسدلات لاختصرنا الكثير من البيانات المعروضة

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

شكرا استاذ أبو خليل

ولكن هذا النموذج لا بد من تركه كما هو لان ه نموذج خاص بالمجلس وهو نموذج رسمي لابد من الاحتفاظ بكافة تنسيقاته

والمطلوب ممن يقوم بتعبئة هذا النموذج هو عليه الاختيار من بين بنوده المختلفة

 

 

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

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

استاذ علي اذا كنت تريد ان تعرف اختصار عنصر تحكم او مربع نص انظر لهذا الموضوع .

http://access.mvps.org/access/forms/frm0003.htm

 

 

شكرا لاهتمامك

ولكن يبقى الحال كما هو عليه

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

 

السلام عليكم

جرب هذا ان شاء الله ينفع

Sub test()
Dim i As Byte
For i = 1 To 27
Me.Controls("C" & i) = "[Forms]![TStu2SBehTeam]![C" & i & "]"
Next
End Sub

شكرا استاذ شوقي

للأسف لم يتم الحل بعد

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

  • أفضل إجابة

شكرا استاذ ابو خليل لمتابعتك للموضوع ولنصائك المفيدة دائما 

 

بعد محاولا الاساتذة الذين شاركوا في الموضوع 

وبالتجريب 

توصلت إلى التالي منذ قليل

 

الكود يمكن اختصارة كالتالي :

 
Dim i As Integer

For i = 1 To 68

Me.Controls("C" & i) = [Forms]![TStu2SBehTeam].Controls("C" & i)

Next i
 
 

فلله الحمد من قبل ومن بعد

جزاكم الله خير على سعة صدوركم ومحاولاتكم الدؤوبة لمساعدة الغير

 

تم تجربته على اكسس 2013

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

قمة المتعة  ان تتكلل المحاولات بالنجاح 

ومن مخضرم مثلك جمع بين خبرتين اكسل ، واكسس

 

و معذرة استاذ علي ان كانت نقاشاتي بعيدة عن طلبك

ولكن الموضوع يخص مخالفات الطلاب

 

ولاجل ذلك ارفق لك بريمج صغير جاهز  بهذا الخصوص  

وهو حسب نظام التربية والتعليم عندنا

ويخدم بالدرجة الاولى وكيل المدرسة

اتمنى ان تجد منه والاخوة الكرام الفائدة

كلمة مرور التعديل =1

Wakl4.rar

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

طبعا ابو خليل لديه ذلك  :biggrin:

فقط اسمح لي ان اضعها في مشاركة مستقلة

يمكن ان يكون حولها استفسارات ونحو ذلك

 

تفضلوا من هنا http://www.officena.net/ib/index.php?showtopic=55796

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information