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

السلام عليكم الملف بعد التعديل فاتورة ديناميكية 5.rar

في موضوع لاخي الكريم // مؤمن جمعة (عمل لوحه UserForm بترحيل بيانات) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=49583&hl= وطلبه لتصميم برنامج لمتابعة حركة السيارات وتسجيل العمليات المتعلقة ونظرا لان عنوان الموضوع لا يدل علي محتواه وبعد اذن ادارة المنتدي طرحت الموضوع بشكل منفصل حتي يكون في متناول الجميع ولسهولة البحث بعد ذلك بالمنتدي الكريم ويمكن تعديل القاعدة لتتلائم مع شركات تاجير السيارات واضافة حساب كيلومترات السيارة وتكلفة الايجار علي حسب الحاجة وادعوا الله ان يكون الموضوع فيه الفائدة للسائل او الباحث شرح موجز لوظائف الفورم ولا تنسونا بدعوة بظاهر الغيب بصلاح الحال متابعة السيارات.rar

حاضر ابشر بالخيــر ان شاء الله

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

السلام عليكم ارفق الشيت اخي الكريم وسوف يتم تطبيق الكود علية باذن الله تعالى

شكراً لك "ابو جودى سوف يتم توفيرها ان شاء الله

انا بجد مش قادر افهم طيب وانت جاى من الشغل ان شاء الله حاول توفر نسخة من قاعدة الاكسس وان امكن البرنامج التانى او حتى اسمه ومن يحاول المساعدة يبحث على الانترنت كنت اتمنى تقديم المساعدة ولكن معذرة فهمى تقيل حبتين ومش باعرف اشتغل الا عملى مش باعرف افهم او اشتغل نظرى

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

الله يقدرنا لرد جميلك.

العفو اخي الاستاذ محمد عصام الاخ الاستاذ عبدالله تفضل وبالتوفيق db2016.rar

ما نستغنى عنك يا أبوحنين المهمة التالية:الآن حان وقت وضع بعض القيود.. عاوزين نضع القيود التالية: 1- يمنع إصدار فاتورة جديدة مالم يتم ترحيل الفاتورة. 2- يمنع إضافة صنف إلى الفاتورة بعد ترحيلها. 3- يمنع تكرار الفاتورة. وتقبلوا تحياتي.

تحياتى و ايام مباركه مرفق برنامج مخازن شرح البرنامج فى صفحة التكويد قم بتكويد الحسابات حسب رؤوس الاعمده_و كابس على زر تحديث البيانات صفحة sheet2_و هى صفحة يومية المخزن ( صفحة ادخال البيانات الرئيسيه ) يتم ادخال اسماء الصنف _ الموردين _ العملاء _ عن طريق كابس دبل كليك فى يومية المخزن بنموذج بحث و اضافة لاستاذنا_ عبدالله باقشير و لا انسى لمسة استاذنا / أبو حنــــين بتعديل كود البحث لعدد من الاعمدة صفحة sheet1_و هى صفحة البحث و اظهار الحركة و نفس برنامج البحث لاستاذنا_ أ / ياسر العربى بحث متقدم - سرعة عالية ومرونة باستخدام المصفوفات صفحة للسداد للمورد صفحة للمستلم من العميل صفحات الارصدة_صنف_مورد_عميل ملحوظه لا تغير اسماء الصفحات و لا تنسونا من صالح الدعاء تحياتى برنامج مخازن_2030gadham_دبل كليك.rar

مرحبا استاذنا الغالى ابا جودى ,, لو قمت بتحديث صفحتى قبل اضافة ردى لكنت استفدت من مشاركتك واصلحت التعديل الذى قمت بنشرة قبل اضافتة تسعدنا دائما بمشاركاتك تحياتى ,,

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

مشكور اخى الغالى فكرة جميلة مشكور

بعد اذن الاستاذ عبد الله ,, قمت بتعديل ماذال يحتاج الى اصلاح اتمنى ان يفى بالغرض مع خالص تحياتى Aziz2.rar

وصلت الفكرة استاذنا الغالى وشكرا للتوضيح

السلام عليكم اخي محمد وضعت كود لمنع التكرار ، جربه و اخبرني منع تكرار الصنف في 22الفاتورة.rar

وعليكم السلام If Arr(I, 14) Like "*" & strSearch & "*" Then استخدم السطر التالي بدلاً منه If Arr(I, 14) Like strSearch Then

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

اتمنى ان تكون وجدت ضالتك اعتذر مكنتش فاهم حضرتك فى الاول انظر الاستعلام مصدر بيانات النموذج وانظر الى العلاقة بين الجدولين هذا ما قد قمت بتعديله اجمل التحايا قاعدة بيانات دليل الهاتف (1).zip

لا يسمح لك اكسل يتكرار اسم الصنف لتعبئة الفاتورة: 1-اضفط على الزر Show_ALL 2- قبل الطباعة اضغط على الزر Only Data (لطباعة الخلايا غير الفارغة) Salim facteur.rar

اخي الكريم اضيف الاسماء بالورقة الثانية الى الورقة الاولى وسوف تحصل على النتائج وممكن كذالك تفعيل زر طباعة البيانات

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

بسم الله ما شاء الله الله يعطيك العافية أستاذ ياسر نفعك الله بعلمك وزادك بسطة في العلم وحسن العمل واصلح لك النية والذرية ورزقك من حيث لا تعلم هذا هو المطلوب بورك فيك

السلام عليكم اليك ما طلبت اخي الكريم لكن عندي ملاحظة صغيرة وهي ان الزر العادي يفي بالغرض الذي تريده حسب ما فهمت من طلبك ايضا يفضل ان تكون المسميات باللغة الانكليزية لسهولة البرمجة Aziz2.rar

فرضنا عندك ليبل باسم ليبل2 Private Sub Form_Load() Me.TimerInterval = 1000 Me.Label2.Caption = Time() End Sub Private Sub Form_Timer() Me.Label2.Caption = Time If Me.Label2.Caption = "02:10:00 م" Then MsgBox "اكتب ما تريد ان يظهر" End If End Sub وخذ هذا المثال بسيط عملت قبل قليل يظهر الرسالة كل يوم في نفس الوقت المحدد.rar

بسم الله الرحمن الرحيم رد على المشاركه مرفق ملف برنامج تكاليف سريع السلام عليكم Cost_01.rar

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الغالي؟ لقيت نفسي نفسي (نفسي الأولى غير التانية ..) نفسي الأولى يعني أنا - وأعوذ بالله من كلمة أنا - ، ونفسي التانية يعني حاجة أتمنى أعملها .. المهم لقيت نفسي أعمل حاجة مختلفة .. بشكل مختلف .. بأسلوب مختلف يكون فيه عنصر التشويق والإثارة والبساطة مجتمعين في نفس الوقت. كتير مننا أول ما يسمع كلمة البرمجة والأكواد يتخض وكأن الموضوع مستحيل ...أبدا كل الحكاية إننا بنبدأ غلط مش بناخد الخطوات الصحيحة لتعلم البرمجة. لو عايز تتعلم البرمجة ونفسك بجد تبدأ تتمكن فيها خليك معايا ، هنقضيها رغي شوية وهزار شويتين ، وجد مش كتير ... ايه رأيكم؟ نبدأ على بركة الله .. أول حاجة بعد ما تنصب الأوفيس وتفتح الإكسيل تلاقي اللي انت عايزه مش موجود طيب نظهره إزاي ؟؟ ببساطة فيه زر أوفيس فوق شمال هتضغط عليه وتضغط Excel Options هتلاقي نافذة فيها خيار اسمه Show Developer tab in the Ribbon يعني إظهار التبويب ، وهتلاقي جنبه مربع تحط فيه علامة صح مبروك الخطوة الأولى واحد هيقولي عندك اقف أول خطوة فشلت فيها ..هقوله ربنا ما يحرمنا من الفشل لأن الفشل أول طريق النجاح .. هقولك لو ملقتش اللي بحكي عليه يبقا اصدار الأوفيس مختلف أنا شغال على 2007 ، وحضرتك على 2010 أو 2013 (بالنسبة ل 2003 والله ما أنا معبره كفاية عليه لحد كدا) ... بالنسبة لـ 2010 و 2013 بيكون من قائمة File ثم Options ثم من القايمة الشمال فيه Customize Ribbon وفي الناحية اليمين هتلاقي قائمة بالتبويبات وجنب كل تبويب علامة صح اللي يعجبك علم عليه صح واللي ميعجبكش ارميه في الزبالة... المهم هتلاقي التبويب اللي هيفتح لنا الباب لعالم البرمجة .. دا كان المفتاح للدخول نخش لتاني حاجة المفتاح عشان يفتح معاك لازم تحط عليه شوية زيت ، يعني لازم تضبط إعدادات الماكرو عشان الأكواد تشتغل معاك تمام من التبويب الجديد انقر على Macor Security هيفتح معاك نافذة بتختار منها آخر خيار Enable all macros وبتعلم علامة صح على الخيار اللي جنبه مربع Trust access to VBA الحمد لله خلصنا من النقطة الأولى والتانية ... ننتقل لنقطة جديدة : هيظهر التبويب في الآخر .. جمد قلبك واشرب ديو وافتح الباب لمحرر الأكواد اضغط على Visual Basic من التبويب المذكور أو لو بتحب تتعامل مع الكيبورد اضغط Alt + F11 كدا الباب الحمد لله فتح .. لو أول مرة تدخل على محرر الأكواد متتخضش واحدة واحدة هبندا نتعلم كل اللي موجود .. المهم محدش يستعجلني عشان أنا مستعجل النافذة دي اسمها نافذة المشروع Project window يعني الإكسيل بيتعامل مع المصنف إنه مشروع .. والمشروع مكون من 3 شيتات اللي بنسميهم أوراق العمل Sheet1 و Sheet2 و Sheet3 بس في 2013 الحمد لله بيكون الوضع الافتراضي شيت واحد بس (أصلي بتخنق من حتة 3 شيتات ع الفاضي بحس إن الملف كبير ع الفاضي وكل اللي يلزمني للعمل بشكل مبدئي هو شيت ولما أحب أضيف جديد مش هيكون أمر صعب) المهم مع أوراك العمل بنلاقي الكائن المسمى بالمصنف WorkBook ودا اللي بيحوي التعابين كلها أقصد الأكواد .. طيب محدش سألني ايه المنطقة الرمادي دي ومالها ضلمة ليه كدا؟ أنا أقولك عشان إنت تنورها .. اضغط دبل كليك على Sheet1 مثلا في نافذة المشروع هتلاقيها نورت والحمد لله استعداد لبداية الاحتفال بس فيه نقطة الأكواد لو اتكتبت هنا هتأثر على الورقة دي بس ... في الحتة اللي نورت الصق الكود اللي جاي ده وأفضل تكتبه بايدك عشان أنا شايف ايدك بتترعش وخايف .. قلت لك جمد قلبك الموضوع بسيط نبدأ بكود كدا سهل ولذيذ Sub Hello_Officena() MsgBox "Hello Officena!" End Sub أول كلمة Sub يعني ابدأ صب اللي عندك .. لا غلط .. معناها إجراء فرعي Subroutine يعني بينفذ مهمة محددة. وفي آخر الكود End Sub عشان القفلة (لو فاكرين شعبان عبد الرحيم بيقول ايه في الآخر بس خلاص دي القفلة بتاعته) هنا بقا دي القفلة بتاعت الإجراء الفرعي.. طيب ايه Hello_Officena دا اسم الإجراء ودا له قواعد أول حاجة مينفعش يبدأ برقم 77Hello_Officena ولا ينفع يكون فيه مسافة زي كدا Hello Officena بس ممكن لو حبينا بدل المسافة بحط Underscore اللي هي بتيجي بـ Shift + العلامة اللي على يمين الصفر اللي في الأرقام اللي فوق مش الأرقام اللي ف لوحة الأرقام .. وبردو فيه حاجات محرمة في اسم الإجراء زي علامة # أو $ أو % أو & أو % أو النقطة أو الفاصلة أو أو .. بقولكم ايه كفاية كلام عن اسم الإجراء .. لو كان فيه حاجة غلط في الاسم هيطلع لك رسالة خطأ تعرف إن فيه حاجة مش مظبوطة!! طيب السطر اللي في النص دا هو دا الكود .. الإجراء أو المهمة المراد تنفيذها .. بتبدأ بكلمة MsgBox ودي اختصار للكلمة Message Box أي صندوق الاسم ..... والله انا سرحت بس مش همسح اللي بكتبه خلي الكلام يكون تلقائي .. ودي بنكتب وراها الرسالة اللي عايزين نظهرها .. وطبعا فيه مسافة بعد الكلمة والكلام اللي هو الرسالة دا نص فنحطه بين أقواس تنصيص " " .. واحد برق لي عينه بيقولي بتتعمل إزاي دي قول لأقتلك .. هقوله حاضر يا باشا هقولك دي بتيجي إزاي .. اضغط على Shift وبعدين حرف الطاء بس خلاص .. طبعا أقواس التنصيص في أول النص وفي آخره مهو لازم القفلة. نجرب نشغل الكود إزاي .. فيه أكتر من طريقة يا إما تضغط على مثلث لونه أخضر فوق في شريط الأدوات الموجود في محرر الأكواد .. مش عاجبك شكل المثلث الأخضر خلاص روح لقائمة Run واضغط أول أمر .. لو انت تلميذ ذكي هتعرف الطريقة التالتة من التانية .. هسيبكم تقولوها إنتو ..مش عارفين !! طيب هقول أنا وخلاص اضغط على F5 من لوحة المفاتيح بس بشرط يكون مؤشر الماوس واقف في الكود.. لما نشغل الكود دا اللي هيظهر لي وبكدا أكون وصلتكم وفتحت لكم الباب .. لو عايزين نكمل قولوا كمل مش عايزين .. يبقا كفاية لحد كدا ويا كود ما يقربش منك حد .. ونعمل بالمثل الفلاحي اللي بيقول : ابعد عن الكود وادعي عليه! والسلام عليكم سبحانك اللهم وبحمدك .. نشهد أن لا إله إلا أنت ..نستغفرك ونتوب إليك كان معكم على الهواء مباشرة أخوكم أبو البراء من ملعب أوفيسنا .. إلى اللقاء مع مباراة جديدة وأهداف جديدة وشيقة دمتم بود ====================================== ====================================== السلام عليكم نرجوا وضع ردود الشكر والاعجاب على الرابط ادناه هنا ====================================== ======================================

بالنسبة لمعادلة الاحتساب تكون كالتالي : الحالة الاولى: السنوات من 2 الى 5 سنوات او اقل : مجموع الايام =عدد السنوات *15 /3 الاشهر : مجموع الايام =عدد الاشهر* 15 /12/3 الايام : مجموع الايام = عدد الايام * 15 / 30 / 12 / 3 بجمع النواتج ينتج س ايام ويتم احتسابها على اساس المرتب هذا بالنسبة للحالة الاولى عندما تكون مدة الخدمة اقل من خمس سنوات واكثر من سنتين ارجو المساعدة