نجوم المشاركات

كل عام وانتم بخير بمناسبة شهر رمضان المبارك أعاده الله علينا وعليكم وعلي الأمة الأسلامية بالخير واليمن والبركات

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة إضافة أعمدة (مادة جديدة) من خلال زر أمر تم ارفاق كود الحل من المبدع / احمدزمان _ سالم شباني _ محمد يحياوي و لا تنسونا من صالح الدعاء تحياتى اضافة عمود_احمد زمان.rar اضافة عمود_محمد يحياوى.rar اضافة عمود_سالم شبانى.rar

اخواني الاكارم البرنامج التالي يخص محلات بيع النظارات و اطباء العينية و هو مأجور و ليس مجاني الأجرة ( دعوة صالحة لي و لمعلمي ( أبو آدم )) :rol: اترككم مع المرفق و انا بانتظار الردود ( في حال وجود خطأ لا سمح الله ) -------------------------------------------------------------------------------------------------------------------------- اعتذر لجميع الاخوة يرجى اضافة المرفق التالي مع المرفق الأول وهو وحدة نمطية لمنع التحرك بين السجلات عن طريق دولاب الفارة فقط استخرج المف المرفق وضعه في فولدر البرنامج MyCustomerData.rar std.rar

السلام عليكم ورحمة الله وبركاته هدفيه للعاملين بالكنترولات المدرسيه ...... _ سجلات اعمال الكنترول كامله ... _ توزيع الملاحظين اليا على اللجان .... مع تحياتى ....

السلام عليكم ورحمة الله تعالى وبركاته الحقيقة بدون ان اطيل عليكم كنت اريد تحزيم قاعدة بيانات لدى وتحويلها الى ملف تنفيذى ولكن لم يعجبنى الشكل المعتاد لتثبيت اى برنامج فاردت ان يكون برنامجى مميزا ففكرت مليها فى تصميم قاعدة بيانات تقوم بتثبيت نفسها داخل الويندوز فاعاننى الله على تصميمها دون الحاجة الى تحزيمها القاعدة الت صممتها بمجرد الفتح تبدا تلقائيا فى عمل تثبيت لها داخل الويندوز كا التالى اللوجو الخاص بى ويمكنك تغييره حسب ذوقك هذا اللوجو به شى مهم جدا وهى وحدة نمطية لتغيير لون البروجرس بار وهذا ايضا اردته ان يكون مختلفا عن الاخرين ناتى بعد ذلك الى نموذج التعريف الخاص بالبرنامج ويمكنك كتابة تعريف بسيط بالبرنامج وذلك لتعريف المستخدم ببرنامجك . لقد تركته فارغا ثم بعد ذلك نموذج الشروط والاتفاقيات الخاصة بك ويجب ان يوافق عليها المستخدم لمتابعت التثبيت . ولقد تركتها فارغه ثم بعد ذلك نموذج اكود التفعيل وذلك للتاكد من المالك او المشترى وبه كود بسيط فقط عند كتابة اربع حروف فى كل مربع نص يقوم بالانتقال الى المربع التالى تلقائيا كود التفعيل هو 1111222233334444 والان مع نموذج مكان التثبيت وبه اكواد مهمه جدا اتمنى ان تستفيدو منها اولا كود مكان تثبيت الويندوز وكود التغيير واختيار مكان اخر غير مكان الويندوز واجهتنى مشاكل كثيرا فى مسالة الصلاحيات الخاصة بالويندوز فاضررت الى انشاء مكان اخر غير Program file اسميته Program RK قد يسال سائل ولماذا RK اجيبه قائلا ملكش دعوه دا كلمة سر ههههههههه هذا هو الفولدر الخاص ببرنامجى وهذه الصورة بعد التنصيب والان مع نموذج التنصيب والشرح بداخله وبيمكنك الوصول اللى برنامجك بسهولة من سطح المكتب او قائمة ابدا وذلك لان البرنامج يقوم بعمل شورتكت لهم تلقائيا على سطح المكتب وقائمة استارت صورة من سطح المكتب وبعد التثبيت يقوم البرنامج بمسح كافة النماذج والجداول المؤقتة كنت قد انشائتها لتساعدنى فقط فى التنصيب ستجد برنامجك بعد التثبيت خالى من نماذج التثبيت هذه اما البرنامج الذى قمت بالتثبيت من خلاله فسيظل كما هو وذلك اذا احتجت الى التثبيت من جديد اتمنى ان ينال اعجابكم نظرا لنفاذ حجم رفع المرفقات سارفعه فى المشاركة التالية ان شاء الله والان مع البرنامج اتمنى ان ينال على اعجابكم . Elsayed Pro.rar

السلام عليكم ورحمة الله وبركاتة بصفتك المدير المالى او رئيس الحسابات تمت دعواتك الى اجتماع هام لعرض معدل التغير بالنمو او الانخفاض فى المصروفات او الايرادات او العملاء......الخ ولذلك فقد اعددت لك هذا المخطط باستخدام فن المخططات بالاكسيل زكاة العلم نشره لاتنسونا بصالح دعاؤكم chart3.rar

السلام عليكم ورحمة الله وبركاته 3D - Chart الجدول يتم زيادته تلقائيا ويتم زيادة الرسم البيانى ايضا يمكن تغيير وظيفة الجدول ليعرض تقرير عن المصروفات او المبيعات او الموظفين ..الخ زكاة العلم نشره تحميل الملف chart111.rar

الامر يسير لكن لا يوجد تقارير في مثالك الطريقة ضع ثلاثة ازرار كل تقرير له زر اختر الزر من صندوق الادوات وتبع المعالج اختر طباعة تقرير ثم اختر التقرير المطلوب والمعاينة مثل ذلك

السلام عليكم جرب هذا Rs.FindFirst ("[t_name ] ='" & F_name & "' Or [t_mobile]='" & F_mobile & "'") و اذا كان تنسيق عمود تلفون رقما Rs.FindFirst ("[t_name ] ='" & F_name & "' Or [t_mobile]=" & F_mobile)

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

الف مبروك يستاهل كل خير

مرحبا جرب اخي المرفق Book1.rar

اخي الكريم تامر ادعم موضوعك بملف مرفق وتوضيح المطلوب حتى تجد العون والمساعدة من اخوانك بالمنتدى تقبل تحياتي

اخى الكريم جرب هذا Dim Rs_search As String Rs_search = "[t_name ] =" & F_name Rs_search = Rs_search & " Or "[t_mobile] =" & F_mobile Rs.FindFirst (Rs_search)

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة الترحيل من التاكست بوكس الى نطاق محدد تم ارفاق كود الحل من المبدع / ياسر خليل أبو البراء و لا تنسونا من صالح الدعاء تحياتى UserForm TextBox Input YasserKhalil (1).rar

بارك الله فيك أخي العزيز جلال الجمال وجزيت خيراً تقبل تحياتي

جزاك الله خيرا تحياتى

ما شاء الله تحياتى

الف شكر اخي الفاضل جزاك الله خيرا هذا هو المطلوب

إذا كان الراتب 500 ومدة العمل 3 سنوات و4 أشهر و5 أيام كما في المثال المرفق فأن المكافأة = 500 * 3 + 1 = 1500 راتب عن الثلاث سنوات الاولى 500 * 2 *12/4 = 333.333 راتبين عن الاشهر لان تجاوز الثلاث سنوات 500 * 2 * 365/5 = 13.698 راتبين عن الايام لان تجاوز الثلاث سنوات إجمالي المكافأة = 1500 + 333.333 + 13.698 = 1847.031 حساب المكافأة.rar

بارك الله فيك أخي محمد الريفي تمت دعوتك من قبلنا بصفتك رئيس مجلس الادارة ......! هههههه تقبل تحياتي ومروري ترقبو أول يوم من أيام رمضان الكريم برنامجي البسيط والمتواضع في الحسابات المالية العامة عبارة : عن واجهة قيود محاسبية وايصالات قبض ودفع وكشوفات حساب وقوائم مالية والمخططات البيانية وأشياء جديد لم تعرض في الموقع من قبل

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

جزاكم الله خيرا أخي محمد الريفي

للرفع ...

أخي الحبيب محمد الريفي بارك الله فيك وجزاك الله كل خير على هذه الهدايا الثمينة والمتميزة تقبل الله منا ومنكم صالح الأعمال

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة ابقاء الفورم ظاهر في جميع الأوراق تم ارفاق كود الحل من المبدع / زياد علي و لا تنسونا من صالح الدعاء تحياتى فورم ظاهر للتنقل بين الصفحات.rar

الف مبروك و مزيد من الرقى و التقدم

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: السلام عليكم ورحمة الله وبركاته إخوتي الكرام.. في حديث قدسي عن أبي ذر الغفاري - رضي الله عنه - عن النبي - صلى الله عليه وسلم - فيما يرويه عن ربه عز وجل أنه قال : ( يا عبادي إني حرمت الظلم على نفسي وجعلته بينكم محرما فلا تظالموا ، يا عبادي ، كلكم ضال إلا من هديته ، فاستهدوني أهدكم ، يا عبادي كلكم جائع إلا من أطعمته ، فاستطعموني أطعمكم ، يا عبادي كلكم عار إلا من كسوته ، فاستكسوني أكسكم ، يا عبادي ، إنكم تخطئون بالليل والنهار ، وأنا أغفر الذنوب جميعا ، فاستغفروني أغفر لكم ، يا عبادي ، إنكم لن تبلغوا ضري فتضروني ، ولن تبلغوا نفعي فتنفعوني ، يا عبادي ، لو أن أولكم وآخركم وإنسكم وجنكم كانوا على أتقى قلب رجل واحد منكم ما زاد ذلك في ملكي شيئا ، يا عبادي لو أن أولكم وآخركم وإنسكم وجنكم كانوا على أفجر قلب رجل واحد ما نقص ذلك من ملكي شيئا ، يا عبادي لو أن أولكم وآخركم وإنسكم وجنكم قاموا في صعيد واحد فسألوني فأعطيت كل إنسان مسألته ما نقص ذلك مما عندي إلا كما ينقص المخيط إذا أدخل البحر ، يا عبادي إنما هي أعمالكم أحصيها لكم ثم أوفيكم إياها ، فمن وجد خيرا فليحمد الله ، ومن وجد غير ذلك فلا يلومن إلا نفسه ) أخرجه مسلم في صحيحه. لقد قرأت الموضوع الذي تهجم به الأخ العرب نت على مشرفي المنتدى الكريم لسبب في نفسه وقد كان في بداية مشاركاته التي كنت أرجو ان تكون تحية وسلاماً لا ذماً ولا قدحاً ...ولعله نسي أن المسلم أخو المسلم لا يظلمه ولا يحقره ...كان الأجدر به أن يوجه سهام غضبه على وجه الخصوص إن كان لديه سبب لا أن يطلق عنان سهامه وجام غضبه على الكل ..ولكن بالمقابل كان الأجدر بإخوتي أن يمتصوا غضبه ويعلموا منه أسباب تهجمه لا أن يواجهوا كلامه بحدّة مما يزيد ناره أواراً.... في الحقيقة : ما رأيت منهم على العموم إلا الأخوة والمحبة والإيثار وبذل العلم وتبسيطه حتى للمبتدئين أمثالي.فإن كان هناك منهم من يكتم علماً فإن العالم واسع ووسائل التواصل الاجتماعي كثيرة يستطيع أن يجد كل منا ضالته دون هذا السخط على الناس ...لافضل لنا على أحد ... ولذلك فإنني أربأ بإخوتي عن كل كلام ينال منهم وأطلب منهم أن يكون لديهم خفض جناح لإخوانهم فما كتبه أخونا قد يكون له دافع ما ..نعذره عليه وهذا ما أرجوكم كما أطلب من أخي الصقر أن لا يتسرع بقراراته التي قد تضر بإخوته إن هو حرمهم نعمة وجوده بينهم ومتابعة أعمالهم وتطوير عمل المنتدى الكريم والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين...

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة ماكـرو إدراج الصفـوف ونسـخ المعـادلات تم ارفاق كود الحل من المبدع / أبو تامر تحياتى ماكـرو إدراج الصفـوف ونسـخ المعـادلات.rar

السلام عليكم اليوم اضع لكم شرح حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 بداية الشرح اولا سنقوم بعمل مشروع جديد ليظهر معنا فورم واحد وهو المطلوب لكي يتم ربط الاكسيل مع الفيجوال لابد من وجود مرجع يعتمد عليه البرنامج للتعامل مع الاكسيل وهذه صور من دروس سابقة لمعرفة كيفية اضافة مرجع لبرنامج الاكسيل داخل المشروع الخاص بنا صور من درس سابق لربط الفيجوال بالاكسيل بعد ان قمنا باضافة المرجع الخاص بالاكسيل نأتي لمشروعنا دا شكل الفورم وكوده هتضيف صورة او ليبل حسب ما تشوفه مناسب ليك ودا بدون اي اكواد عادي نأتي للكود نضع في الحدث load الكود التالي Private Sub Form_Load() Dim Start, Finsh Form1.Show Start = Timer Finsh = Start + 5 Do Until Finsh <= Timer DoEvents Loop Unload Me Excel.Workbooks.Open App.Path + "\yasser.xlsm" Excel.Application.Visible = True End Sub الكود عبارة عن اعلان عن متغيرين بداية ونهاية البداية تساوي التايمر النهاية تساوي التايمر + اي وقت تضيفه لفترة عرض الفورم كشاشة افتتاحية وبعد كدا ندخل في حلقة تكرارية حتى تكون النهاية اقل من او تساوي الوقت وبعد تحقق الشرط يتم غلق الفورم وفتح ملف الاكسيل وعرضه في الوضع المرئي وبكدا يكون انتهينا من الدرس الكل مستغرب فيين كود تفعيل الماكرو اقوله مفيش ليه اقوله لان تشغيل ملف الاكسيل عن طريق ملف تنفيذي يجبر وحدات الماكرو على العمل حتى وان كانت غير مفعله الفكرة موجودة من زمان بس محدش كان واخد باله منها لاننا كنا بنقوم بربط ملف عادي وليس به اي وحدات ماكرو وطبعا نقوم بتحويل الملف لملف تنفيذي بعد الانتهاء بالنسبة لمن لديه اي صعوبات في التعامل مع الفيجوال6 يتابع الدروس من اولها حتى يتثنى له انهاء هذا العمل اما بخصوص من لديه الرغبة في وضع هذه الشاشة الافتتاحية ولا يريد ان يشغل باله اقوله ايضا سأقوم بعمل ملف به خيارات لضبطه كما تحتاج للردود او الاستفسار يرجى الدخول على هذا الرابط مرفق السورس كود للبرنامج لمن لا يريد وجع دماغه تقبلو تحياتي ياسر العربي يتبع vb6 &vba.rar

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

على حد علمى أنه لا يمكن اجبار التقرير على حجز موقع فارغ لصف غير موجود ولكن هناك حيلة أخرى غير المقترحة بالمثال السابق مع الاستغناء عن وجود جدول الارقام ولكن الأمر يعتمد على توضيح سبب بدأ الترقيم برقم 5 لديك لمن حجزت الأرقام الأولى مثلا وهل أعتبر أن الأرقام الأولى بيانات محذوفة مثلا

لم تأخذ نسخة احتياطية من قبل؟

السلام عليكم ورحمة الله وبركاته إخواني الأحباب في المنتدى المحبب إلى قلوبنا .. أقدم لكم اليوم شرح فيديو ، لكيفية عمل تصفية متقدمة Advanced Filter بالأكواد .. . والشرح مقدم في عدد 2 فيديو .. الأول لكيفية إدراج موديول وكتابة الأسطر الخاصة بتنفيذ التصفية المتقدمة ، والفيديو الثاني لكيفية تنفيذ الكود بدون أزرار بمجرد التغير في ورقة العمل أو التغير في شروط التصفية .. رابط الفيديو الأول : التصفية المتقدمة بالأكواد رابط الفيديو الثاني ومرفق لكم ملفين ..الملف الأول Advanced Filter VBA خاص بالفيديو الأول ، والملف المسمى Advanced Filter Worksheet_Change خاص بالفيديو الثاني أرجو أن ينال الدرس إعجابكم ، وتستفيدوا منه ولا أنتظر منكم سوى دعوة بظهر الغيب ، وادعوا الله لي أن يجعل أعمالنا صالحة ولوجهه خالصة ، وأن يجعل أعمالنا في ميزان حسناتنا يوم القيامة ، إنه ولي ذلك والقادر عليه كان معكم أخوكم أبو البراء من منتدى أوفيسنا (دي القفلة بتاعتي لو تلاحظوا .. مش شعبان عبد الرحيم بس اللي عنده القفلة !) حمل الملف من هنا

الملف فى المرفقات بالتوفيق ان شاء الله الملاحظين.rar

السلام عليكم أخي رضا .. هذه محاولة قديمة لنفس المشروع ، لم ألاقي تشجيعا أو اقتراحا لتطويره وتركته بعد أو محاولة كما هو . ولكني أتذكر أني قمت بتنقيحه في أحد برامجي حيث يحتوي على أخطاء عدة ، ولكن أين هو الآن ؟ لا أتذكر بالضبط ولكني سأبحث عنه السبت القادم إن شاء الله تعالى . تحياتي . hmd_Finder.zip

إخواني السلام عليكم ورحمة الله أشكركم على كلامك الطيب ،، وعلى هذه الروح الطيبة أخي ابن مسقط ما تأخرت ولا شيء لسه الموضع جديد ويحتاج لعمل أكثر وأشكرك على هذا الإطراء مع العلم أنني لا شيء بالنسبة لمن هم مثلك فجزاك الله خيراً على ما تقدمه لنا دائماً فهذا المنتدى مليء بالعباقره فعلاً . دعوة للمطورين إخواني وجدت عيباً آخر في هذا النموذج ولكن هذه المره لم أستطيع معالجته وهذا العيب هو أننا إذا اخترانا جدولاَ ثم اخترنا حقوله ثم اخترنا حقل الشرط فإذا كان حقل الشرط باللغة العربية والاسم مزودج أو أكثر من كلمة لا تظهر محتويات هذا الحقل في حقل المعلمات بمعنى أنه لا يستطيع التعامل مع الحقول ذات الأسماء العربية المركبه أو الأكثر من كلمة وهناك نقطة أخرى إذا استطعنا معالجتها سنحصل على نموذج لبناء التقارير والاستعلامات من أفضل ما يكون يغنينا عن كل التقارير التي من الممكن أن نحتاجها وهي أننا نريد إضافة شروط أكثر لبناء التقرير على غرار نموذج البحث المتعدد والذي أرفقته مع نموذج صانع التقارير مره أخرى بصيغة وين زيب من أجل أخونا ابن الفقير ونموذج البحث المتعدد هذا نموذج ممتاز وأكيد أن الجميع رآه من قبل فإذا استطعنا إضافة مستويات بحث وشروط على أكثر من حقل فستكون نتيجة هذا النموذج ممتازة وهذه دعوة لمحبي التطوير للقيام بهذه المهمه .... فمن سيكون المتبرع جزاه الله خيراً ؟؟ وما نريده هو تطوير نموذج صانع التقارير ليحتوي على شروط أكثر لعملية التصفيه والفرز على غرار الباحث المتعدد الذي أرفقته report_bild2000A.zip

أشكرك أخي امير وإليك تعديل آخر على النموذج قمت به حالاً 1- إمكانية إضافة عنوان للتقرير اخيارياً ... 2- زيادة عدد حقول التقرير إلى 8 حقول 3- تحويل التقرير من اليمين إلى اليسار مع خالص تحياتي رضاعقيل report_bild2000A.rar

هنا مرفق القاعدة بعد التعديل وبها التالي 1- معربه ما عدا التوضيح فهو يحتاج إلى مترجم 2- تم أخذ الاستعلامات في الاعتبار 3- تم أخذ الجداول بأي اسم كانت في الاعتبار 4- تم أخذ الجداول المرتبطة في الاعتبار 5- تم زيادة حقول التقرير حقل أي أصبح العدد 7 حقول وقابله للزيادة مع تعديل في التقرير 6- قاعدة البيانات تعمل على أكسس 2000 فقط قم باستيراد جميع كائنات هذه القاعدة إلى برنامجك وابدأ بتشغيل النموذج وستجد ما يرضيك بإذن الله . مرفق القاعدة وأتمنى أن ينال الموضوع رضاكم ..... مع خالص تحياتي رضا عقيل