يوسف أحمد

اخي الفاضل / بو دبي وعليكم السلام ورحمة الله وبركاته اليك المرفق بعد التعديل ______________.rar

وهذ المثال باستخدام الدالة Nz للتعامل مع القيم الخالية دون وضع القيمة الافتراضية صفر لجميع الحقول بالنموذج ارجو ان تفي الامثلة بما تبحث عنه abc.rar

اخي الفاضل / NABEELKO لقد تم التعديل على المرفق وبإمكانك رؤية مصدر عنصر التحكم لحقل الارباح بالنموذج وقد قمت بضبط القيمة الافتراضية لجميع الحقول على صفر حتى تحصل على النتيجة وقمت بغيير اسماء مربعات النصوص بالنموذج ليسهل كتابة المعادلة ارجو ان يكون هو الحل واليك المرفق بعد التعديل abc.rar

بارك الله فيك اخي NABEELKO يعطيك العافية اشكر كل من تفضلوا بالمرور على المشاركة واتمنى من الله عز وجل التوفيق للجميع

استاذي العزيز rudwan لم انتبه إلى إضافتي إلى الأعضاء المميزين إلا الآن الف شكر لكم على هذا المقام الذي وضعتموني به والذي لا أستحقه فما انا إلا تلميذ في هذا الصرح الشامخ وارجو من الله ان اكون عند حسن ضنكم بي وهذا شرف لي وامانة سوف احاول بكل ما املك ان ارعاها واعمل جاهداً لأواكب هذا الموضع وبكل امانة هذا التقدير منكم ليس بغريب على كبار امثالكم رفعوا شأن هذا المنتدى إلى أعلى المراتب اخيراً لك ولكل القائمين على هذا المنتدى الغالي مني كل الشكر والتقدير تلميذكم / Yousef

اخي السائل ضع هذا الكود بحدث عند التنشيط للنموذج الرئيسي Me.نموذج فرعي بيانات شركة.Requery واليك ملفك بعد التعديل aq.zip

استاذنا rudwan مرورك شرف كبير لي وشكرك لي تاج على رأسي وحافز لي لتحصيل العلم وتقديم ما استطيع لكل من يحتاج المساعدة بهذا المنتدى الكبير بوجودكم استاذي العزيز بصراحة لا أملك ما اعبر به لأفي بما تفضلت به علي ولكنني ادعو لك المولى عز وجل ان يبارك لك في عمرك ومالك وولدك وان يديم عليك الصحة والعافية وان يرزقك الجنة انه ولي ذلك والقادر عليه. لك مني اخلص تحية استاذنا ومشرفنا الغالي rudwan تلميذك / Yousef

بارك الله فيك اخي الكريم واليك هذا الرابط وهو شرح مميز للاستاذ خضر الرجبي ستجد به الفائدة بإذن الله تعالى وبالتوفيق اخي NABEELKO http://www.officena.net/ib/index.php?showtopic=8487

واجهتني مشكلة قبل ذلك في تشغيل الماكرو عندما حاولت تشغيل قاعدة البيانات من اصدار اقدم إلى اصدار احدث حاول ان تنشئ قاعدة البيانات على نفس الاصدار لديك وتعمل الماكرو ايضاً على نفس الاصدار لأنك ستواجه مشكلة بالماكرو عند تشغيل قاعدة بيانات على اصدار احدث. ارجو ان يكون هو الحل وبالتوفيق اخي الكريم

شكرا لك اخي الكريم Me.f5.Form.RecordSource = "SELECT qryff.* FROM qryff" _ & " WHERE (((qryff.مؤلفون) Like '" & MyStr & "' & '*')) " هذا هو الجزء من الكود حيث علامة _ هي عبارة عن اكمال لسطر الكود f5 هو النموذج الفرعي و qryff هو الاستعلام الذي هو مصدر للنموذج الفرعي f5 مؤلفون هو حقل بالاستعلام qryff والكود معناه بأن مصدر سجلات النموذج الفرعي f5 = اختيار جميع الحقول من الاستعلام qryff عندما يكون حقل مؤلفون بالاستعلام يعادل او يشبه mystr وهو متغيرنصي قيمته هو القيمة المختارة من aa وهو اسم مربع التحرير والسرد ربما لا يكون شرحاً احترافياً ولكن ارجو ان يوضح لك الكائنات والحقول حتى تتمكن من تطبيق ذلك وكما اخبرتك بأنني قمت بالتعديل على ملفك السابق واذا واجهتك مشكلة في التطبيق ارجو توضيح النقطة المراد ايضاحها او ارفاق آخر تعديل لك ليتم العمل عليه اتمنى لك التوفيق

اخي / ahmedamer2005 هل تقصد بأن الماكرو المسمى msgbox لا يعمل لديك عند الضغط عليه اذا كان كذلك فأنه يعمل عندما قمت انا بتشغيله ارجو التوضيح مع ملاحظة أن الكلمة msgbox هي كلمة محجوزة بالنظام حاول تغييرها

اخي / NABEELKO اعتذر عن التأخير فقد احتجت الى عمل بعض التعديلات والاضافات لتحقيق ما تريد ولا تزال هناك امور خاصة بالتصميم تركتها لك لتقوم بعملها ولكنني قمت بعمل المطلوب وللمعلومية فقد استعنت بما هو موجود بالمنتدى لعمل نموذجي البحث مع اضافة علاقات لتؤدي غرض البحث بالنماذج الفرعية النموذج الرئيسي عند الفتح هو الذي تحتاجه لإدخال بياناتك بناءاً على العلاقات. اخي هناك امر مهم جداً لا بد ان اوضحه لك فقواعد البيانات للمكتبات تحتاج الى الجداول الآتية جدول الكتب وجدول المؤلف وجدول الناشر وهناك جدول مهم جداً وهو جدول الربط بين جدول الكتب وجدول المؤلف فدائما ما يكون للمؤلف اكثر من كتاب وللكتاب اكثر من مؤلف . ذلك للمعلومية ولتوجيهك اذا اردت ان تقوم بذلك مستقبلاً عموما لقد قمت بعمل ما طلبته وارجو ان يفي بما تبحث عنه اخوك / Yousef maktabah.rar

مشكور اخي مزلزل الله يعطيك العافية

شكراً لك اخي الكريم قمت بعمل قاعدة بيانات جديدة بنفس الاسم وقمت باستيراد جميع كائنات قاعدة البيانات القديمة اليها وهذا افضل حل في حال وجود مشكلة من هذا النوع وقد كانت هناك مشكلة ايضاً بمصدر البيانات لكل من الحقول الآتية التصنيف والمؤلفين ومن خصائص الجدول t data book قمت بتغيير مصدر الصف ليظهر الاستعلام الخاص بهما بشكل صحيح حيث كان مربع السرد والتحرير الخاص بهما لا يعمل بالشكل المطلوب لعدم ظهور حقول الجداول المذكورة كما هو مبين بقاعدة البيانات التي ارفقتها انت في مشاركتك. ارجو ان يكون ذلك واضحاً وانا تحت امرك اخي الكريم لك مني اخلص تحية اخوك / Yousef

اخي / NABEELKO اليك المرفق بعد التعديل maktabah.rar

شكراً لك اخي محمد علي شكراً لك اخي Harv بارك الله فيكما وجزاكما خيراً اخوكم / Yousef

اخواني رواد المنتدى بعث لي احد الاخوان ببرنامج لتخطيط الميزانية وفي الحقيقة لا أعرف مصدره ولكنني احببت ان اطرحه بهذا المنتدى للفائدة ولوجود عمالقة في هذا المجال مع العلم بأني لست محترفاً بالأكسل ولكن ارجو ان يستفيد الجميع من هذا البرنامج ولكم مني اخلص تحية اخوكم / Yousef _______________.rar

وعليكم السلام ورحمة الله وبركاته شكراً لك مشرفنا العزيز التقني على مرورك وجزاك الله خير واكثر من امثالك

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

اخي / r3d وعليكم السلام ورحمة الله وبركاته اولا يتم تحويل نوع بيانات الحقل الى نص حتى تتمكن من ظهور النص بالحقل والا سوف يحدث خطأ في حدث الحالي للنموذج يتم وضع الكود التالي على اعتبار ان حقل الاسم اسمه b وحقل الجوال2 اسمه a Me.a.SetFocus If Me.a.Text = "" Then Me.a.Text = "لايوجد" End If Me.b.SetFocus اليك ملفك بعد التعديل test.rar

اخي / chnbl بإمكانك عمل ذلك عن طريق استعلام تحديث لقد قمت بعمل هذا الاستعلام وبإمكانك رؤية جملة sql الخاصة بذلك من شبكة الاستعلام والتي تظهر كما بالاسفل UPDATE جدول1 SET جدول1.ترحيل = "ترحيل"; وهذا الاستعلام هو الذي يقوم بتحديث البيانات بالحقل الى القيمة التي تضعها بالمعيار ارجو ان يكون هو ما تبحث عنه اليك المرفق db166.rar

اخي الغالي ماجد جلال شكراً لك وبارك الله فيك ورضي عنك وارضاك شرف لي خدمة اخواني

اخي / ماجد جلال يمكن عمل اجراء بالامر الذي تريده ومن ثم تقوم بإستدعاء هذا الاجراء لكل حدث نقر لجميع الازراز لديك تم عمل اجراء لفتح النموذج frm2 وتم تسميته r وتم استدعاؤه لحدث النقر لزري الامر على النموذج frm1 ارجو ان يكون هو ما تبحث عنه db1.rar

اخي / noursh اذا تم عمل حقول مستقلة للاسم بدلا من حقل واحد سوف تسهل الطريقة ولكن المشكلة الوحيدة التي سوف تواجهنا هي اذا كان احد الحقول به اسم مركب عموماً لقد قمت بتفصيل الاسم الى ثلاثة حقول ومن ثم جمع هذه الحقول الثلاثة لتفادي الفراغات باستعلام ومن ثم عمل القرير وقد نجحت العملية ولكن كما ذكرت لك بقيت المشكلة الوحيدة هي في حالة وجود اسم مركب بين هذه الحقول هذا ما استطعت عمله والمثل يقول اعطي حبيبك موجودك شكراً لك db1.rar

اخي / noursh شكراً لك على التنويه بخصوص الفراغات والتي لم اجد لها حل ولكن بخصوص الاستعلام يمكن الاستغناء عنه وبالامكان تقسيم الاحرف مباشرة بالتقرير كما بالمرفق ارجو ان نجد حل لموضوع الفراغات db1.rar