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

[علي المصري]

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

باستخدام    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]

[.Azhar]

السلام عليكم استاذ علي

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

Dim i As Integer
For i = C1 To C27
Me("TStu2SBehTeam" & i).Value
Next i 

[علي المصري]

on load

 

جربت ولم يفلح

رسلة خطا في السطرالثاني

[.Azhar]

مساء الخير استاذ علي

تقصد بأي سطر الخطأ وما هي رقم رسالة الخطأ

ثانيا هل من الممكن ان توضح لي ماهي C1 الاولى وليست البين قوسين .

[علي المصري]

C1 وغيرها

ما هي إلا خانة اختيار

Checkbox

موجود في تقرير

مرتبط ب CheckBox  في نموذج  TStu2SBehTeam

 

 

D2.rar

[سليم حاصبيا]

اخي علي اكتب هذه العبارة

 

 

 

 

for i= 1 to 27

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

next i

 

[علي المصري]

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

 

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

 

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

كما يلي

 

 

 

فما الحل

 

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

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

 

for i= 1 to 27

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

next i

[سليم حاصبيا]

 استاذ علي

جرب ان تستعمل المزدوجات كالتالي

[c" &i"]  

[علي المصري]

للأسف نفس المشكلة

[ابوخليل]

السلام عليكم

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

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

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

[علي المصري]

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

 

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

 

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

 

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

 

شكرا

[.Azhar]

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

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

[ابوخليل]

شيء آخر :

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

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

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

[علي المصري]

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

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

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

 

 

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

[علي المصري]

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

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

[علي المصري]

 

السلام عليكم

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

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

[علي المصري]

برنامج ممتاز استا ابو خليل

هل لديك نسخة قابلة للتعديل 

اي استطيع فتحها بالأكسيس ومن ثم التعديل

[ابوخليل]

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

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

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

 

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

[علي المصري]

واحنا لا نستطيع الاستغناء عن أبو خليل

 

هههه

شكرا جزيلا