أبو تماضر

السلام عليكم ورحمة الله تحقق من إعدادات اللغة

أخي الكريم في جدول المواد Article _name أضف حقلا معرفا Article_Id اجعل هذا الحقل مفتاحا لربط جدول المواد بجدول الدرجات بحيت يكون لديك جدول واحد للدرجات ، ويتكرر به اسم الطالب بعدد المواد المدرسة ، ولحساب المجاميع والوسيط الحسابي استعن بالاستعلامات أرجو أن أكون واضحا في شرحي والله الموفق

السلام عليكم أكيد أخي أن يحدث معك هذا لآنك اخترت العد التراكمي , والحل طبعا بتجديد أمر الطباعة لكل عميل على حدة , وأكيد أن العملية يدويا جد متعبة ومملة , ولك الحل البرمجي : dim MySQL AS String MySql="SELECT [Table].* From [Table] Where [Table].ID = " Dim R, I AS integer R = Dcount("ID","[Table] For I = 0 TO R-1 MySQL = MySQL & I Me.RecordSource = MySQL docmd.OpenReport [Report],acViewNormal next I على أن [Table] جدول العملاء و "ID" المفتاح الاساسي و [Report] التقرير موضوع السؤال والله الموفق

السلام عليكم ورحمة الله وبعد الأخ أبو عبد الله مع كل الاحترام , قد أخضعت الحل الذي أمددتني به للاختبار ولم يصمد , إذ أرجعت الدالة أخطاء , ولم تكن قادرة على الصمود لا داخل الورقة الواحدة ولا من خلال الأوراق المترابطة أما الدالة RECHERCHEV أو vlookup التي اقترحها الأخ asmo200666 فإنها بالفعل كانت الأمثل في جميع الاختبارات , جزاكما الله معا خير الجزاء وجعلها في ميزان حسناتكما آمين أبو تماضر recherchevaleur.rar

السلام عليكم ورحمة الله أخواي asmo200666 اكسيلجى تحية حب وتقدير لكما كل الشكر على مساعدتكما .. جاري الاختبار وجعلها الله في ميزان حسناتكما أبو تماضر

السلام عليكم ورحمة الله أعزائي مشرفي ورواد هذا المنتدى يشرفني أن ألتمس مساعدتكم في حل هذا المشكل الذي عارضني في دالة البحث عن قيمة محددة في مجال كما هو موضح بملف الأكسل المرفق . من كل قلبي آمل أن أجد لديكم تفسيرا لما يجري مع دعواتي لكم بالخير والسلامة وحسن المآب شكرا أخوكم أبو تماضر recherchevaleur.rar

السلام عليكم أهلا أخ Accessna وشكرا على التنبيه بالفعل تنبيهك لمشاركة الأخ والأستاذ أبو هادي , جعلتني أعيد النظر في بعض العادات التي نمارسها بالمنتدى . فربما بعضنا مقتنع أنه يجب البحث في أرشيف المنتدى قبل طرح أي سؤال لأن ذلك إن لم يفد في شيء فإنه سيفيد حتما في الاطلاع على مختلف المشاركات في الموضوع مما يكون رؤية أكثر عمقا قد تفيد في التطوير بدل السقوط في اجترار المواضيع بالشكل الذي نراه بمنتدياتنا مما يجعل المتصفح لها يمل . المهم أني استفدت من تنبيهك لهذه المشاركة أن الأمر لا يتعلق بالسائل وحده بل وبالمشارك بإجابة فعلينا أن نتحمل عناء البحث عن الأجوبة المتوفرة لنستطيع تطويرها والتقدم بالمنتدى إلى الأمام أرجوكم لا تواخذوني على هذه الدردشة فأنا جد منبهر بالمثال الذكي الذي قدمه أخونا أبو هادي لله دره . أخوكم أبو تماضر

هذه مساهمة في هذا الموضوع سبق نشرها بأحد المنتديات الصديقة آمل أن تثري الموضوع Database4.rar

الأخ الكريم ماجدجلال رمضان مبارك لتحويل التركيز من النموذج الحالي إلى نموذج آخر يفترض أنه محمل (مفتوح) اتبع الخطوات التالية : 1- تأكد من أن النموذج المراد نقل التركيز إليه محمل بالفعل 2- اجعل نقل التركيز نتيجة لحدث ما بالنموذج الحالي ولإنجاز ذلك , سنفترض أن لدينا نموذجان a و b وأن b هو النموذج الحالي سنضع على النموذج b زر الأمر Commande0 , وفي حدث عند النقر تكتب الكود التالي : Private Sub Commande0_Click() Dim msg If EstChargé("a") = True Then msg = MsgBox("النموذج محمل , وسيتم نقل التركيز إليه ", vbDefaultButton1, "تحويل التركيز ") Forms!a.SetFocus Else msg = MsgBox(" يتعذر نقل التركيز لأن النموذج غير محمل , هل تريد تحميله الآن ", vbYesNo, "تحويل التركيز ") If msg = 6 Then Load Forms![a] Else Exit Sub End If End If End Sub و الكود أعلاه في سطره الأول يتحقق من تحميل النموذج المراد نقل التركيز إليه , وعلى النتيجة يبني خياراته . ولذلك سنجتاج إلى الدالة (الوظيفة) "EstChargé" انقل كود هذه (الوظيفة) إلى وحدة نمطية مستقة Function EstChargé(MonFormulaire) Const FORM_DESIGN = 0 Dim I As Integer EstChargé = False For I = 0 To Forms.Count - 1 If Forms(I).FormName = MonFormulaire Then If Forms(I).CurrentView <> FORM_DESIGN Then EstChargé = True Exit Function End If End If Next End Function مبوك أنهيت عملك , الله الموفق

أخي وأستاذي السحيب السلام عليكم ورحمة الله قد كفيت ووفيت وإني لأدعو الله لك بالتوفيق والسداد وجزاك خير الجزاء

السلام عليكم ورحمة الله وبركاته إخواني مشرفي ورواد منتدى الإكسل العام , بعد التحية واجهتني مشكلة في البحث والربط بواسطة الدالة LOOKUP , حيث ترجع نتائج غير مطابقة لمجال البحث , فأرجو الاطلاع على المرفق لتحديد أسباب الخطأ , وألف شكر مسبقا . للتنويه : الخانات المؤطرة بدوائر حمراء تحتوي نتائج بحث غير مطابقة Classeur1.rar

تقبل الله منك , وجعلها في ميزان حسناتك

السلام عليكم ورحمة الله وبركاته،، التحقت للتو بهذا الموضوع الشيق , وقرأت الدعوة للتشارك في مشروعك على النت , ولم ألاحظ أي خطوة إيجابية من الإخوة الأعضاء , لذلك ارتأيت أن أكون عمليا , وأبدأ بجداول الطلاب أرفقها مع هذه المشاركة للتأمل والتعديل والإضافة , راجيا مشاركة كل المهتمين لتطوير الأفكار حول الموضوع , والقي به إلى مستوى احترافي , ولكم مني كل التقدير المرفق على الرابط : http://www.sfhty.com/u/52903200510290132491.zip

السلام عليكم ورحمة الله مشكور أخي أبو هادي ع هالكود الأقوى

مشكور أخي على الرد السريع جاري التجريب

السلام عليكم كلامك صحيح 100% أخي التقني لآن المنطق الرياضي لا يقبل القسمة على الصفر. لكن إن أراد الأخ aboasem33 منع رسالة الخطأ الداخلية لأكسيس , وإظهار الصفر كنتيجة , فبإمكانه إضافة الشرط التالي للكود الذي ينجز عملية الحساب ولنفترض أن X هو المقسوم عليه وأن ResultBox هي أداة النص في النموذج If X = 0 then ResultBox = 0

مشكور أخي Force المثال شغال تمام الله يكثر خيرك لكن إن أردت أن أجعل مصدر بيانات لنموذج في القاعدة المفتوحة من جدول أو استعلام بقاعدة خارجية , هل من طريقة ؟ لم تفلح محاولاتي

المرجو التوضيح أكثر