علي المصري قام بنشر سبتمبر 22, 2014 مشاركة قام بنشر سبتمبر 22, 2014 كيف يمكن اختصار الكود التالي باستخدام 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] رابط هذا التعليق شارك More sharing options...
.Azhar قام بنشر سبتمبر 22, 2014 مشاركة قام بنشر سبتمبر 22, 2014 السلام عليكم استاذ علي استخدم هذا الكود لكن ما هو الحدث لهذه العناصر . Dim i As Integer For i = C1 To C27 Me("TStu2SBehTeam" & i).Value Next i رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر سبتمبر 23, 2014 الكاتب مشاركة قام بنشر سبتمبر 23, 2014 on load جربت ولم يفلح رسلة خطا في السطرالثاني رابط هذا التعليق شارك More sharing options...
.Azhar قام بنشر سبتمبر 23, 2014 مشاركة قام بنشر سبتمبر 23, 2014 مساء الخير استاذ علي تقصد بأي سطر الخطأ وما هي رقم رسالة الخطأ ثانيا هل من الممكن ان توضح لي ماهي C1 الاولى وليست البين قوسين . رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر سبتمبر 23, 2014 الكاتب مشاركة قام بنشر سبتمبر 23, 2014 C1 وغيرها ما هي إلا خانة اختيار Checkbox موجود في تقرير مرتبط ب CheckBox في نموذج TStu2SBehTeam D2.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 23, 2014 مشاركة قام بنشر سبتمبر 23, 2014 اخي علي اكتب هذه العبارة for i= 1 to 27 [c&i]=[formes]![TStu2SBehteam]![C&i ] next i رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر سبتمبر 24, 2014 الكاتب مشاركة قام بنشر سبتمبر 24, 2014 الاستاذ الفاضل سليم حاصبيا عند تنفذ الامر الخاص بك ظهرت الرسالة التالي عند الضغط على Debug تظهر اللون الاصفر على الامرالخاص بك كما يلي فما الحل وجدت حرف زيادة في الامر فحذفته وما زالت المشكلة for i= 1 to 27 [c&i]=[Forms]![TStu2SBehteam]![C&i ] next i رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 24, 2014 مشاركة قام بنشر سبتمبر 24, 2014 استاذ علي جرب ان تستعمل المزدوجات كالتالي [c" &i"] رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر سبتمبر 24, 2014 الكاتب مشاركة قام بنشر سبتمبر 24, 2014 للأسف نفس المشكلة رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 24, 2014 مشاركة قام بنشر سبتمبر 24, 2014 السلام عليكم ارى ان الفكرة تحتاج الى اساسات فيجب توثيق المعلومة فمثلا المخالفة التي حدثت من الطالب ستطير ادراج الرياح بمجرد اغلاق البرنامج رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر سبتمبر 24, 2014 الكاتب مشاركة قام بنشر سبتمبر 24, 2014 هذا الملف فقط للطباعة وليس لتخزين مخالفات الطالب فما الحل يا استاذ ابو خليل هذا الملف لا يهمني كثيرا ولكن اريد ان اتعلم عملية اختصار الاكواد فقط لا غير الغرض هو التعلم شكرا رابط هذا التعليق شارك More sharing options...
.Azhar قام بنشر سبتمبر 24, 2014 مشاركة قام بنشر سبتمبر 24, 2014 استاذ علي اذا كنت تريد ان تعرف اختصار عنصر تحكم او مربع نص انظر لهذا الموضوع . http://access.mvps.org/access/forms/frm0003.htm رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 24, 2014 مشاركة قام بنشر سبتمبر 24, 2014 شيء آخر : هذه البطاقة ( التقرير) ليست للتعبئة وانما هي نتيجة لبيانات موجودة اذا يهمنا عرض البيانات الايجابية الفعلية فقط فمثلا لو تم اختيار بنود الملاحظة من منسدلات لاختصرنا الكثير من البيانات المعروضة رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر سبتمبر 26, 2014 الكاتب مشاركة قام بنشر سبتمبر 26, 2014 شكرا استاذ أبو خليل ولكن هذا النموذج لا بد من تركه كما هو لان ه نموذج خاص بالمجلس وهو نموذج رسمي لابد من الاحتفاظ بكافة تنسيقاته والمطلوب ممن يقوم بتعبئة هذا النموذج هو عليه الاختيار من بين بنوده المختلفة جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر سبتمبر 26, 2014 الكاتب مشاركة قام بنشر سبتمبر 26, 2014 استاذ علي اذا كنت تريد ان تعرف اختصار عنصر تحكم او مربع نص انظر لهذا الموضوع . http://access.mvps.org/access/forms/frm0003.htm شكرا لاهتمامك ولكن يبقى الحال كما هو عليه رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر سبتمبر 26, 2014 مشاركة قام بنشر سبتمبر 26, 2014 السلام عليكم جرب هذا ان شاء الله ينفع Sub test() Dim i As Byte For i = 1 To 27 Me.Controls("C" & i) = "[Forms]![TStu2SBehTeam]![C" & i & "]" Next End Sub رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر سبتمبر 26, 2014 الكاتب مشاركة قام بنشر سبتمبر 26, 2014 السلام عليكم جرب هذا ان شاء الله ينفع Sub test() Dim i As Byte For i = 1 To 27 Me.Controls("C" & i) = "[Forms]![TStu2SBehTeam]![C" & i & "]" Next End Sub شكرا استاذ شوقي للأسف لم يتم الحل بعد رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 26, 2014 مشاركة قام بنشر سبتمبر 26, 2014 لماذا لا تضع جدولا بهذه الخانات ؟ حينها لست بحاجة الى اي كود لانه سيكون مصدرا للنموذج وللتقرير رابط هذا التعليق شارك More sharing options...
أفضل إجابة علي المصري قام بنشر سبتمبر 26, 2014 الكاتب أفضل إجابة مشاركة قام بنشر سبتمبر 26, 2014 شكرا استاذ ابو خليل لمتابعتك للموضوع ولنصائك المفيدة دائما بعد محاولا الاساتذة الذين شاركوا في الموضوع وبالتجريب توصلت إلى التالي منذ قليل الكود يمكن اختصارة كالتالي : Dim i As Integer For i = 1 To 68 Me.Controls("C" & i) = [Forms]![TStu2SBehTeam].Controls("C" & i) Next i فلله الحمد من قبل ومن بعد جزاكم الله خير على سعة صدوركم ومحاولاتكم الدؤوبة لمساعدة الغير تم تجربته على اكسس 2013 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 26, 2014 مشاركة قام بنشر سبتمبر 26, 2014 قمة المتعة ان تتكلل المحاولات بالنجاح ومن مخضرم مثلك جمع بين خبرتين اكسل ، واكسس و معذرة استاذ علي ان كانت نقاشاتي بعيدة عن طلبك ولكن الموضوع يخص مخالفات الطلاب ولاجل ذلك ارفق لك بريمج صغير جاهز بهذا الخصوص وهو حسب نظام التربية والتعليم عندنا ويخدم بالدرجة الاولى وكيل المدرسة اتمنى ان تجد منه والاخوة الكرام الفائدة كلمة مرور التعديل =1 Wakl4.rar 1 رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر سبتمبر 26, 2014 الكاتب مشاركة قام بنشر سبتمبر 26, 2014 برنامج ممتاز استا ابو خليل هل لديك نسخة قابلة للتعديل اي استطيع فتحها بالأكسيس ومن ثم التعديل رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 26, 2014 مشاركة قام بنشر سبتمبر 26, 2014 طبعا ابو خليل لديه ذلك فقط اسمح لي ان اضعها في مشاركة مستقلة يمكن ان يكون حولها استفسارات ونحو ذلك تفضلوا من هنا http://www.officena.net/ib/index.php?showtopic=55796 2 رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر سبتمبر 26, 2014 الكاتب مشاركة قام بنشر سبتمبر 26, 2014 واحنا لا نستطيع الاستغناء عن أبو خليل هههه شكرا جزيلا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان