bodalal قام بنشر أكتوبر 5, 2003 مشاركة قام بنشر أكتوبر 5, 2003 السلام عليكم .. انتهيت من تصميم البرنامج .. بس باقي شغلة وحده بس .. تكفون المساعدة .. عندي حقلين فيهم درجات ( 5 شفوي ) + ( 15 اختبار ) والناتج يطلع في حقل ثالث ... كل شي تمام .. بس عندي حقل رابع .. أبي يطلع فيه مثلاً إذا درجة الطالب أكثر من 17 يكتب في الحقل الرابع " ممتاز " ، وإذا أكثر من 16 " جيد جدا " ... الخ .. أعرف أسويها في الاكسل عدل .. بس حاولت بالآكسس ولا قدرت ... مشكورين على كل حال ... 1 رابط هذا التعليق شارك More sharing options...
فيصل الحربي قام بنشر أكتوبر 5, 2003 مشاركة قام بنشر أكتوبر 5, 2003 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته استخدم امر select case رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أكتوبر 5, 2003 مشاركة قام بنشر أكتوبر 5, 2003 فى هذا الموضوع من هنا فى قسم الاكسيل ( الدرس الرابع ) و الملف المرفق Grades.zip توجد عدة دوال لعمل ذلك و يمكنك تطبيقها علي الاكسس رابط هذا التعليق شارك More sharing options...
bodalal قام بنشر أكتوبر 6, 2003 الكاتب مشاركة قام بنشر أكتوبر 6, 2003 الأخ محمد طاهر .... شفت الدروس .. الله يعطيك ألف عافية .. فعلاً جهد يستحق الشكر والثناء ... بارك الله فيك .. بس :) المشكلة إني محتاج الكود للآكسيس وليس للإكسيل :cry: البرنامج اللي مسويه أنا في Access ... مشكور على كل حال .. رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أكتوبر 6, 2003 مشاركة قام بنشر أكتوبر 6, 2003 أخي الكريم الكود يصلح للاكسس و للاكسيل فقط استبدل mycell باسم مربع النص لديك الذي تريد وضع التصنيف للقيمة فيه أو ب اسم الحقل اذا كان فى استعلام فجرب اي من ال 3 اكواد بحسب ما يناسبك و سيعمل باذن الله و اذا واجهتك مشكلة أخبرني لأضعه فى مثال مع تحياتي رابط هذا التعليق شارك More sharing options...
bodalal قام بنشر أكتوبر 6, 2003 الكاتب مشاركة قام بنشر أكتوبر 6, 2003 مشكور أخي محمد ... راح أجرب الكود وإنشالله أوكي .. أعتقد لازم أكتبه في VBA ؟ مع إني جربت المود التالي : private sub Text1.text_change() if text1.text < 12 then text2.text = "راسب" elsif . . . وهكذا end if لا مشى الحال .. مع ملاحظة إن هذا الكود يمشي بالفيجوال بيسك 6 بس ما يمشي بالآكسس ... VBA عموما مشكور ... رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أكتوبر 6, 2003 مشاركة قام بنشر أكتوبر 6, 2003 مرفق المثال بالاكسس و به 4 طرق واحدة باستخدام IIF و 3 بال VBA مع تحياتي Grades.rar 1 رابط هذا التعليق شارك More sharing options...
bodalal قام بنشر أكتوبر 7, 2003 الكاتب مشاركة قام بنشر أكتوبر 7, 2003 والله ماني عارف شقول لك .. جزاك الله ألف .. قعدت أجرب الكود اللي عطيتنياه أمس .. ولا قدرت أوصل حق حل .. فقلت أكتب لك طلب لو تسويلي مثال عملي .. وفتحت ولقيتك حاط المثال وجاهز ... جزاك الله ألف خير .. ومشكور بس باقي مشكلة وحدة .. إن القيمة في هذي الحال ما راح يتم حفظها ... لأنها غير مرتبطة بحقل من جدول .. وإنما بدل ذلك مصدر عنصر التحكم هو الكود نفسه ... فكيف أعمل لجعل هذا الحقل مرتبط بحقل من جدول باسم التقدير .. وفي نفس الوقت يحتوي على هذه الدالة ؟؟؟ مشكور ... مشكور جداً على المساعدة أخوك محمد رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أكتوبر 7, 2003 مشاركة قام بنشر أكتوبر 7, 2003 و لماذا تريد تخزين معلومة اضافية..؟؟ فالدرجة تكفي ، و تستخدم احدي الطرق لاستنتاج التقدير سواء فى النماذج أو التقارير عموما ، فى شاشة ادخال الدرجات ، فى حدث بعد التحديث لمربع النص الذي ستدخل فيه الدرجة ، ضع الكود التالي Me.grade = GetGrade(Me.number) حيث grade هو اسم مربع النص المرتبط بحقل التقدير فى الجدول و number هو اسم مربع النص الذي ستدخل فيه الدرجة و لا تنسي نقل الكود الخاص بالدالة الي الموديول رابط هذا التعليق شارك More sharing options...
bodalal قام بنشر أكتوبر 7, 2003 الكاتب مشاركة قام بنشر أكتوبر 7, 2003 مشكور يا أخي على سرعة الرد ... بالنسبة لحاجتي للمعلومة الاضافية .. فهي فعلا مهمة .. لأن فكرة البرنامج أن يتم رصد درجات الطلاب بحيث يظهر فيها الدرجة والتقدير ... مشكور على الكود ... وقد خطرت لي فكرة أخرى أردت أن أستشيرك بها .. وهي : إذا وضعت كومبو بكس يحتوي على التقديرات ( ممتاز ، جيد جدا ... الخ ) وكان مرتبط بحقل من الجدول بحيث أتمكن من حفظ البيانات به ... فكيف أجعل الكومبو بكس يتبط بمربع نص مجموع الدرجات بحيث إذا أصبح مجموه الدرجات 50 يختار الاختيار الثالث من الكومبو بكس وهو " جيد " مثلا .. أعتقد أن المسألة تشبه تماما الكود السابق الذي أعطيتني إياه حول قاعد IF ... والقضية كلها تحتاج كود Select case بحيث إذا كان مجموع الدرجات كذا يختار من فهرس الكومبو الخيار كذا ... صح ؟ مشكور مرة أخرى وتسلم على هذا الجهد الرائع ... عسى الله يجعله بميزان حسناتك أخوك محمد رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أكتوبر 7, 2003 مشاركة قام بنشر أكتوبر 7, 2003 بالنسبة لحاجتي للمعلومة الاضافية .. فهي فعلا مهمة .. لأن فكرة البرنامج أن يتم رصد درجات الطلاب بحيث يظهر فيها الدرجة والتقدير ... أخي الكريم أنت فقط تدخل الدرجة ، و التقدير سيظهر فى النموذج أو التقدير كما فى المثال و لن يكون هناك تغيير حال كون مربع النص الذي به الدرجة مرتبط بحقل فى جدول ( الباقي مثل المثال تماما ) رابط هذا التعليق شارك More sharing options...
bodalal قام بنشر أكتوبر 8, 2003 الكاتب مشاركة قام بنشر أكتوبر 8, 2003 مشكور للمرة الألف أخي محمد .. كلامك صحيح ... بس مذا لو أردت تصدير الجدول الذي يحتوي على بينات الطلاب .. هذا معناه أنني سوف أحصل على حقول فارغة عند كل من حقل مجموع الدرجات وحقل التقدير في الجدول .. لأنني وضعت بها كود للجمع أو للتقدير .. والآكسس يعطيني النتائج فقط على الشاشة في النموذج .. ولا يتم حفظ هذه البيانات فعلياً في الحقول ... فهل هناك طريقة لجعل الكود يجمع حقلين ويضع الناتج في حقل ثالث على أن يتم حفظ هذه النتيجة في الحقل فعلاً ... هذا ضروري .. لأنني أريد برنامج متكامل وليس مجرد نتائج على الشاشة ... مشكور ... وأعتذر على طول الموضوع .. دوختك معاي أخوك محمد رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أكتوبر 8, 2003 مشاركة قام بنشر أكتوبر 8, 2003 بالنسبة للتصدير يمكنك استنتاج التقدير فى حقل فى استعلام بنفس الطريقة و تصدير الاستعلام و من وجهة نظري ، عدم تخزين التقدير فى حقل لن ينقص من البرنامج بل يزيده :) ، لانك لن تخزن بيانات لا لزوم لها و عموما لو أردت تخزينه ، فقد تكلمنا عن كيفية تخزينه فى حقل بالكود مع ادخال الدرجة مع تحياتي رابط هذا التعليق شارك More sharing options...
bodalal قام بنشر أكتوبر 9, 2003 الكاتب مشاركة قام بنشر أكتوبر 9, 2003 مشكووووووووووووووووووووووووووووووررررر وعساك على القوة .. كثر الله من أمثالك .. وجزاك كل خير مشكور .. أنهيت التطبيق وصار جاهز خلاص ... والفضل بعد الله يعود لكم وما استفده منكم .. فجزاكم الله ألف خير أخوك محمد رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر أكتوبر 9, 2003 مشاركة قام بنشر أكتوبر 9, 2003 و جزاكم الله خيرا و مبروك و عقبال التطبيقات القادمة :) رابط هذا التعليق شارك More sharing options...
زائر قام بنشر أبريل 7, 2004 مشاركة قام بنشر أبريل 7, 2004 بسم الله الرحمن الرحيم الأخوة الكرام / السلام عليكم و رحمة الله و بركاته و بعد : يسعدني كثيرا الانظمام اليكم في هذا المنتدى الرائع و نرجوا من الله عز وجل ان نُفيد و نستفيد منكم ... سؤالي باختصار شديد : عندي قاعدة بيانات تحتوي على جدولين الجدول الاول : الطلاب ترقيم تلقائي - اسم الطالب - الفصل - التقدير (ممتاز - جيد جدا - جيد - مقبول - ضعيف) *** خانة التقدير : هي عبارة عن خانة اختيار الجدول الثاني : الفصول رقم الفصل - اسم الفصل *** هنا علاقة راس باطراف بين (جدول الطلاب.الفصل) مع (جدول الفصول.الفصل) طريقة عمل البرنامج : هنا نموذج يحتوي على نموذجين فرعيين النموذج1 يحتوي على combobox بداخله اسماء الفصول النموذج2 يحتوي على معلومات الطلاب عند اختيار اسم الفصل من الكومبو بوكس السؤال : س1 / في النموذج 2 عندما اضع تقدير ممتاز للطالب كيف يتم تغيير لون الحقل و نوع الخط في الحقل للطالب فقط الحاصل على تقدير ممتاز ؟ س2 / كيف يمكن اضافة مربع نص يحسب لي الطلاب الحاصلين على تقدير ممتاز ؟ هذا و جزاكم الله خير الجزاء تحياتي رابط هذا التعليق شارك More sharing options...
مصلح الحريصي قام بنشر أبريل 7, 2004 مشاركة قام بنشر أبريل 7, 2004 اخي الكريم طرحك ممتاز وصراحة أعجبت بإسلوبك في الطرح من حيث الوضوح والتفصيل. بالنسبة لما طلبت فأكتب الكود التالي في حدث " في الحالي " الخاص بالنموذج 2 If Txt1 = "ممتاز" Then Me.Txt1.BackColor = RGB(255, 0, 0) Me.Txt1.FontName = "Arabic Transparent" Me.Txt1.FontSize = 12 Me.Txt1.FontBold = True Me.Txt2 = DCount("[اسم_الطالب]", "جدول_الطلاب", "[التقدير]='ممتاز'") Else Me.Txt1.BackColor = RGB(255, 255, 255) Me.Txt1.FontName = Tahoma Me.Txt2 = DCount("[اسم_الطالب]", " جدول_الطلاب") End If سؤال : لماذا وضعت التقدير خانة إختيار مع أن خانة الإختيار لا تأخذ إلا قيمتين فقط بينما التقدير يتكون من خمس حقول ( ممتاز - جيد جدا - جيد - مقبول - ضعيف ) ثم إذا أحببت أن تغير في لون مربع النص وخطه مع كل تقدير استخدم : Select case فيه سهله وممتع هذا مثال مرفق وقد فضلت أن اشرح الموضوع أيضاً للفائدة Database1.rar رابط هذا التعليق شارك More sharing options...
زائر قام بنشر أبريل 8, 2004 مشاركة قام بنشر أبريل 8, 2004 أخي مصلح الحربي ... السلام عليكم و رحمة الله و بركاته شكرا لك اخي الكريم على هذا الرد السريع و الوافي و جزاك الله خير الجزاء ... اذا عدلنا على جدول الطلاب بحيث يكون بدلا عن حقل التقدير حقل ( ناجح ) يحتوي على خانة اختيار (نعم/لا) و المطلوب تغيير لون الخلفية و نوع الخط للطالب الناجح = نعم و الطالب غير الناجح = لا (يبقى كما هو) ... تحياتي رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر أبريل 8, 2004 مشاركة قام بنشر أبريل 8, 2004 المطلوب تغيير لون الخلفية و نوع الخط للطالب الناجح = نعمو الطالب غير الناجح = لا (يبقى كما هو) استخدم التنسيق الشرطي رابط هذا التعليق شارك More sharing options...
زائر قام بنشر أبريل 8, 2004 مشاركة قام بنشر أبريل 8, 2004 استخدم التنسيق الشرطي الاخ امير عاطف ممكن التوضيح اكثر حول استخدام التنسيق الشرطي و لك تحياتي ... اخوكم ... زائر رابط هذا التعليق شارك More sharing options...
مصلح الحريصي قام بنشر أبريل 8, 2004 مشاركة قام بنشر أبريل 8, 2004 (معدل) ا ل ح ر ي ص ي نفس الكود السابق استبدل فقط كلمة " ممتاز " بكلمة " نعم " تم تعديل أبريل 8, 2004 بواسطه مصلح الحريصي رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر أبريل 9, 2004 مشاركة قام بنشر أبريل 9, 2004 نعم الكود السابق يفي بالغرض ايضاً رابط هذا التعليق شارك More sharing options...
زائر قام بنشر أبريل 9, 2004 مشاركة قام بنشر أبريل 9, 2004 عفوا أخي ا ل ح ر ي ص ي و على العموم لك شكري و تقدير انت و الاستاذ المشرف امير عاطف رابط هذا التعليق شارك 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.