ضاحي الغريب

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

أخي الكريم / بالمرفقات الفورم لضيق الوقت تم الانتهاء من كود البحث برقم الجلوس والاسم في الترم الاول وبرقم الجلوس والاسم بالترم الثاني قم بتجربته جيدا لانني لم اقم بالتجربة في حالة وجود اخطاء او ملاحظات لا تتردد في سردها تقبل تحياتي فورم ادخال.rar

أخي الكريم / عبدالعزيز راشد وبعد اذن اخي الحبيب استاذي / احمد زمان (باركـ الله فيه وجزاه خيرا) بالنسبة لوضع باس ورد علي محرر الفيجوال VBA اتبع مافي الصورة التالية وبالنسبة لطباعة الصفحة بدون الانتقال وبدون معاينة (طباعة مباشرة ) اولا قم بتعريف اسم لنطاق الطباعة وليكن مثلا (Print_Aria) وضع الكود التالي في موديل وخصص له اختصار في الصفحة التي تريدها Sub Print_Out() With [Print_Aria] .PrintOut End With End Sub

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

أخي الحبيب / أحمد فؤاد عمل جميل ومتعوب فيه بارك الله فيك وجزاك خيرا وذكر اسمي تشريف لي مع اساتذتي وجعلنا الله عند حسن ظنكم تقبل تحياتي

أخي الحبيب ومعلمنا الجليل صاحب الروائع الاستاذ // عبدالله باقشير مرورك تكريم وشرف عظيم ورايك ليس بمجرد رأي إنما { شهادة خبورية} من جامعة خبور خير >>> جمعيا نعتز بها <<< واكيد الانسان الرائع يري الروعة والجمال فيما حوله باركـ الله فيكـ وجزاكـ خيرا عما تقدمه لنا من علم ودعم متواصلين. تقبل تحياتي واحترامي

أخي الكريم // أحمد فؤاد بارك الله فيك وجزاك خيرا بالنسبة للتاريخ الهجري جاري المعالجة حتي نصل لادق النتائج وان كانت هناك اية مقترحات تفضل بعرضها حتي ناخذها بالحسبان وبالنسبة لمعادلات الحساب الخاصة باليوم والشهر والسنة حسب التاريخ الهجري مارايك بالمعادلات التالية =DATEDIF(B8*365/354;F8*365/354;"ym") =DATEDIF(B8*365/354;F8*365/354;"md") =DATEDIF(B8*365/354;F8*365/354;"y")

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

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

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

الفورم تم انشاءه عن باستخدام MultiPage هتلاقي فـورم الايصال في Page3 عربي page4 انجليزي

أخي الحبيب // احمد غانم بارك الله فيك علي دعائك الطيب وجزاك خيرا تقبل تحياتي

؟؟ معلش برجاء التوضيح مافهمت عليك تحية طيبة اخي الكريم ممكن فقط الترحيل كل صنف في مكانة بالجدول ...اي المبلغ ينتقل تلقائي الى مكانة في الجدول المخصص ماهي الطريقة.(الكود المستخدم للترحيل)......وعند التحويل على الايصال ..هل توجد زر الخروج ؟؟ لك مني اطيب تحية واحترام أخي الكريم قمت لك بشرح الكود المستخدم في الادخال علي الكود نفسه تفضل عسي يكون هو المقصود بطلبك Private Sub CommandButton1_Click() ' شيت الادخال رقم 1 Set Sh1 = sheet1 ' شرط اذا كان رقم الفاتورة فارغ لايقم بالترحيل If InvNo_A = "" Then MsgBox "!يجب إدخال رقم الفاتورة اولا ً", vbExclamation, "إختيار خاطئ" Exit Sub End If ' شرط اذا كانت الكمية رقم ا فارغة لايقم بالترحيل If Me.C1 = "" Or Me.QuA1 = "" Then MsgBox "أكمل بيانات الفاتورة أولا": Exit Sub End If ' عدد الصفوف في ورقة الادخال لبداية الادخال ff = 4 Do Until Sh1.Cells(ff, "a").Value = "" ff = ff + 1 Loop ' التسلسل Sh1.Cells(ff, 1).Value = SN_Ar.Text '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' التاريخ Sh1.Cells(ff, 2).Value = Date_A.Text ' رقم الفاتورة Sh1.Cells(ff, 3).Value = InvNo_A.Text 'بيانات العميل Sh1.Cells(ff, 4).Value = Cus_A.Text Sh1.Cells(ff, 5).Value = Addr_A.Text Sh1.Cells(ff, 6).Value = City_A.Text Sh1.Cells(ff, 7).Value = Tel_A.Text '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' رقم العميل Sh1.Cells(ff, 8).Value = CusNo_A.Text ' الرصيد Sh1.Cells(ff, 9).Value = Balnce_A.Text Me.PAY1.Text = ComboBox12.Value ' طريقة السداد Sh1.Cells(ff, 10).Value = PAY1.Text Sh1.Cells(ff, 11).Value = Ac_a.Text Sh1.Cells(ff, 12).Value = PatDateA.Text Sh1.Cells(ff, 13).Value = TermA.Text ' بيانات الفاتورة بالترتيب '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' كود الصنف Sh1.Cells(ff, 18).Value = C1.Text Sh1.Cells(ff, 23).Value = C2.Text Sh1.Cells(ff, 28).Value = C3.Text Sh1.Cells(ff, 33).Value = C4.Text Sh1.Cells(ff, 38).Value = C5.Text Sh1.Cells(ff, 43).Value = C6.Text Sh1.Cells(ff, 48).Value = C7.Text Sh1.Cells(ff, 53).Value = C8.Text Sh1.Cells(ff, 58).Value = C9.Text Sh1.Cells(ff, 63).Value = C10.Text ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' الكمية Sh1.Cells(ff, 19).Value = QuA1.Text Sh1.Cells(ff, 24).Value = QuA2.Text Sh1.Cells(ff, 29).Value = QuA3.Text Sh1.Cells(ff, 34).Value = QuA4.Text Sh1.Cells(ff, 39).Value = QuA5.Text Sh1.Cells(ff, 44).Value = QuA6.Text Sh1.Cells(ff, 49).Value = QuA7.Text Sh1.Cells(ff, 54).Value = QuA8.Text Sh1.Cells(ff, 59).Value = QuA9.Text Sh1.Cells(ff, 64).Value = QuA10.Text ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''البيان Sh1.Cells(ff, 20).Value = DesA1.Text Sh1.Cells(ff, 25).Value = DesA2.Text Sh1.Cells(ff, 30).Value = DesA3.Text Sh1.Cells(ff, 35).Value = DesA4.Text Sh1.Cells(ff, 40).Value = DesA5.Text Sh1.Cells(ff, 45).Value = DesA6.Text Sh1.Cells(ff, 50).Value = DesA7.Text Sh1.Cells(ff, 55).Value = DesA8.Text Sh1.Cells(ff, 60).Value = DesA9.Text Sh1.Cells(ff, 65).Value = DesA10.Text ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''سعر الوحدة Sh1.Cells(ff, 21).Value = UnP1.Text Sh1.Cells(ff, 26).Value = UnP2.Text Sh1.Cells(ff, 31).Value = UnP3.Text Sh1.Cells(ff, 36).Value = UnP4.Text Sh1.Cells(ff, 41).Value = UnP5.Text Sh1.Cells(ff, 46).Value = UnP6.Text Sh1.Cells(ff, 51).Value = UnP7.Text Sh1.Cells(ff, 56).Value = UnP8.Text Sh1.Cells(ff, 61).Value = UnP9.Text Sh1.Cells(ff, 66).Value = UnP10.Text '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''الاجمالي Sh1.Cells(ff, 22).Value = Total1.Text Sh1.Cells(ff, 27).Value = Total2.Text Sh1.Cells(ff, 32).Value = Total3.Text Sh1.Cells(ff, 37).Value = Total4.Text Sh1.Cells(ff, 42).Value = Total5.Text Sh1.Cells(ff, 47).Value = Total6.Text Sh1.Cells(ff, 52).Value = Total7Text Sh1.Cells(ff, 57).Value = Total8.Text Sh1.Cells(ff, 62).Value = Total9.Text Sh1.Cells(ff, 67).Value = Total10.Text ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' المبلغ الاجمالي Sh1.Cells(ff, 14).Value = Total_A.Value ' الخصم بالنسبة Sh1.Cells(ff, 15).Value = Dis_A.Value ' الخصم بالمبلغ Sh1.Cells(ff, 16).Value = Dis_AmA.Value ' صافي الفاتورة Sh1.Cells(ff, 17).Value = NetAm_A.Value ' الاسطر التالية لمسح الفورم بعد الادخال Date_A = "" InvNo_A = "" Cus_A = "" Addr_A = "" City_A = "" Tel_A = "" CusNo_A = "" Balnce_A = "" Ac_a = "" PAY1 = "" PatDateA = "" TermA = "" C1 = "" C2 = "" C3 = "" C4 = "" C5 = "" C6 = "" C8 = "" C9 = "" C10 = "" QuA1 = "" QuA2 = "" QuA3 = "" QuA4 = "" QuA5 = "" QuA6 = "" QuA7 = "" QuA8 = "" QuA9 = "" QuA10 = "" DesA1 = "" DesA2 = "" DesA3 = "" DesA4 = "" DesA5 = "" DesA6 = "" DesA7 = "" DesA8 = "" DesA9 = "" DesA10 = "" UnP1 = "" UnP2 = "" UnP3 = "" UnP4 = "" UnP5 = "" UnP6 = "" UnP7 = "" UnP8 = "" UnP9 = "" UnP10 = "" Total1 = "" Total2 = "" Total3 = "" Total4 = "" Total5 = "" Total6 = "" Total7 = "" Total8 = "" Total9 = "" Total10 = "" Total_A = "" Dis_A = "" Dis_AmA = "" NetAm_A = "" ' السطر التالي حتي يقف مؤشر الماوس علي اسم العميل Cus_A.SetFocus ' الترقيم التلقائي للتسلسل MM = 4 Do Until Sh1.Cells(MM, "a").Text = "" MM = MM + 1 Loop Me.SN_Ar.Value = MM + 1 - 4 CheckBox4.Value = True End Sub

؟؟ معلش برجاء التوضيح مافهمت عليك

اخي الحبيب / ابوعبدالله لتغيير الشعار اتبع كما بالصورة التالية وهذا شعار الشبكة السعودية التطبيق بالمرفقات

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

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

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

أخي الكـريم // "إنسان" بارك الله لك وجزاك خيرا وادعوا الله ان اكون عند حسن ظنكم في تقبل تحياتي

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

وَقُلِ اعْمَلُوا فَسَيَرَى اللَّهُ عَمَلَكُمْ وَرَسُولُهُ وَالْمُؤْمِنُونَ وَسَتُرَدُّونَ إِلَى عَالِمِ الْغَيْبِ وَالشَّهَادَةِ فَيُنَبِّئُكُمْ بِمَا كُنْتُمْ تَعْمَلُونَ أخى العزيز المحترم /ضاحي جزاكم الله خيرا فأنتم لاتبخلون بتقديم كل مالديكم من فكر رزقكم الله تعالى من فضله اللهم تقبل صالح الاعمال أخي الحبيب الأستاذ// سعيد بيرم (ابوسلمي ) الغالي لا اجد كلمات توفيك حقك فانت انسان خلوق بارك الله لك في علمك وعملك وأولادك ورزقك. وجزاك الله خيرا وادعوا الله ان اكون عند حسن ظنكم في تحياتي لسلمي وعبدالرحمن

أخواني واخواتي أعضاء صرحنا العظيم اوفيسنا **************** وجد ان موضوع مستحقات نهاية الخدمة بالاخص في السعودية يشغل بال الكثيرون من المهتمين بالمجال نظرا لما فيه من حقوق واعباء ففكرت في عمل النموذج حتي لا تضيع الحقوق علي اصحابها نتيجة خطأ في تطبيق قاعدة في قانون العمل او لائحة الشركة راعيت في النموذج قوانين مكتب العمل التي نظمت حقوق العامل عند نهاية العقد او الاستغناء عنه او الاستقالة بحالتها المختلفة 1- اذا كانت فترة العامل اقل من سنتين 2- اذا كانت فترة العامل مابين السنتين والخمس سنوات 3- اذا كانت فترة العامل مابين 5 :10 سنوات 4- اذا كانت فترة العامل اكبر من عشر سنوات وكذلك في الادخال بما يتناسب مع سياسة الشركة اوعقد العامل مثال علي ذلك بدل السكن ( بعض الشركات لاتدخله) ضمن راتب المكافأة وشركات اخري تحسبه بما يقابل راتب شهرين عن سنة واخري تحسبه بما يقابل ثلاثة شهور وكذلك راعيت بدل الاجازة السنوية (30 يوم عن كل سنة لكامل الفترة ) او( 21 يوم للخمس سنوات الاولي ومازاد عنها 30 يوم ) طرق ادخال التاريخ عن طريق الفورم لعدم الاخطاء استخدام التقويم الميلادي او الهجري - ام القري في الحساب تم تخصيص ملاحظات تحت كل حساب يظهر العمليات والقوانين التي اتبعت في الحساب وتناولت الموضوع بفكرة جديدة *********** فورم اخري اسميته الادخال السريع ********************* لضمان عدم الاخطاء في الادخال حيث ان كل مرحلة في الفورم لابد من تعبئتها ليمكنك الانتقال للخطوة التالية الي جانب طباعة النموذج بشكله النهائي الشكل الاخير بعد معالجة المدخلات كالتالي انا جعلت موضوع الفورم جزء من قاعدة شئون الموظفيين الجديدة بشكل جديد ان شاء الله قريبا سوف يتم طرحها لكم وارفقت قوانين العمل حسب مكتب العمل السعودي لتكون مرجع في حالة عدم وجود مرجع ثابت او لائحة منظمة لذلك داخل الشركة ويمكنك الاطلاع علي شروط واحكام الحساب عند ضغطك علي خيار " أحكام حساب المستحقات باسفل الفورم ) كما ان بعض الشركات لاتقوم بابرام عقود للعمال فيكون المرجع الاساسي (قانون مكتب العمل ) أدعوا الله سبحانه وتعالي ان اكون وفقت في عملي هذا (( وَمَا أَسْأَلُكُمْ عَلَيْهِ مِنْ أَجْرٍ إِنْ أَجْرِيَ إِلَّا عَلَى رَبِّ الْعَالَمِينَ )) الشعراء/109. ولكنني اطمع بصالح دعائكم بظهر الغيب مستحقات نهاية الخدمة.rar

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

أخي الحبيب // أبوميار بارك الله فيك وجزاك خيرا غير اعدادات الشاشة عندك الي 1280*800 هتلاقي الفورم مضبوط وان كنت محتاج تصغير سوف اقوم بالتعديل لتقليص حجم الفورم تقبل تحياتي

بارك الله لك وجزاك خيرا اخي الكريم تقبل تحياتي