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

اضافة بسيطة ...جعل الزر متحرك معك اينما كنت Test_2.xlsm

تفضل المشكلة كانت من عندك لأنك محدد فى الكود ظهور ثلاثة أعمدة فقط تـــم تعديل وضبط الفورم كما تريد حلقات المساجد2.xls

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

ذكريات و تحديث اذاعات البث المباشر تحديث المرفق اعادة تفعيل الـ Shift تقليل حجم مستوى الصوت عتج الفتح ازالة روابط اذاعات بث الغناء اخص بكل الشكر والعرفان بالجميل اخى الحبيب الاستاذ @Amr Ashraf لتنبيهى لتدارك خطأى عبر نشر اذاعات بث الغتاء اللهم انى استغفرك واتوب واليك اللهم اغفر لى يارب وارحمتى واعفو عنى يارب العالمين Radio (V2).mdb

وعليكم السلام ..جرب المرفق حلقات المساجد1.xls

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

------------------------ لفد وضعت الكود على اعتبار تعدد القيم وتعدد الالوان تبعا لتعدد القيم بوجه عام الكود بكل بساطه Dim colorA As Long: colorA = 255 Dim colorB As Long: colorB = 16711680 With Me.txtQty .BackColor = (IIf(.BackColor = colorA, colorB, colorA)) End With

لا اعتقد ولكن الاعتماد على الرقم هذا فقط غير مناسب لان بعض المعالجات لا تظهر لها رقم كما ان Getint هو اسم وضعه المبرمج ولايشير لما يحتويه الا ان وضعت لنا الكود لنرد عليك بالرد المناسب فيما يخص الكود ولو تكرمت لو تشاركنا افكارك فى وضع التشقير والية الحماية وانا انصحك بالاعتماد على رقم الـ UUID ويمكنك الخصول عليه من الكود الاتى Public Function GetUUID() Dim strComputer As String Dim objWMIService, colItems, objItem strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48) For Each objItem In colItems GetUUID = objItem.UUID Next End Function

اخي يوجد اسماء مكررة فى عمود Hotel فكيف يتم فتح شيت جديد في حالة تكرار الاسم

لا انا لم اقل لك تحدى ولكن قلت لك ابشر شتان ما بين الكلمتان ومعناهما

جزانا الله واياكم .. يا اهلا بك

نم بحمد الله تعالى وبفضل الله على ثم لاخى الحبيب الاستاذ @Amr Ashraf التراجع عما اقدمت عليه من خطأ جثيم كل الشكر والتقدير

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

للاسف / استاذى نفس الرسالة تظهر لى

الاصدار الجديد دعوة للتجربة قبل فتح موضوع خاص به المميزات : - عدم تفعيل اكثر من تطبيق لنفس العميل على نفس الحاسوب بنفس رقم التفعيل - تقليص واختصار رقم التفعيل قدر الامكان وهذا مراعاة للمشاركات تنويه .. بناء على طلب الدكتور @الحلبي كنت قد شرعت بعمل التطبيق يعتمد على رقم الهارد ديسك الحقيقى وليس رقم اى قطاع من قطاعات الهارد ديسك لانها يتغيير بعمل فورمات للقطاع ولكن فكرت قليلا لو حدث عطب بالهارد ديسك ! وتم استبداله يوجد مرفقين للتجربة اللى ما ينفتح معه النموذج الرئيسى يخبرنى واللى يجرب يأتينى برقم ال Activation Number من خلال الضغط على زر الامر Copy , والموجود يمين الرقم برجاء احضار ارقام التطبيقين حيث لكل منها رقم مختلف عن الاخر بعد ذلك سوف أرسل لكم رقم التفعيل لكليهما * ملاحظة أخرى فى حالة تغيير اسم التطبيق حتى ولو تملك رقم التفعيل لن يعمل التطبيق My App.zip

السلام عليكم ورحمة الله وبركاته سبق وان عملت امثلة وبرامج مصغرة ومختصرة للمبيعات والمشتريات ، ويمكن من خلال البحث في المنتدى تجدونها .وهذا العمل يختلف نوعا ما عن ما سبق . يسعدني ان ارفق اخر تطوير لعمليات البيع والشراء والمخازن ومنهجي الدائم في جميع مشاريعي هو استخدام الجدول الواحد في هذا العمل المرفق تم تحقيق التالي : 1- العمل المرفق هو زبدة النظام وان شئت نسميه المحرك الأساسي ، ويمكن ان يبنى عليه جميع التقارير التي تخطر على البال بلا استثناء 2- يشتمل على عمليات البيع وعمليات الشراء واختيار المخزن المناسب 3- يشتمل على عمليات المرتجع من المبيع او المشتريات على فرضية ان مرتجع البيع هو في الحقيقة شراء والعكس صحيح 4- امكانية البيع والشراء بالنقد والآجل 5- احتساب الضريبة في المبيعات . فقط 6- عملية تسجيل الاصناف بطريقة احترافية 7- استخراج ارصدة الاصناف حسب المخازن عند كل حركة 8- سهولة في الاستخدام ( جميع عملياتك بنقرة واحدة ) 9- المخرجات لم اعملها وانما تركتها لكم .. علما انه يمكن استخراج : - ارصدة المواد - الدائن والمدين والأرباح - الكاش والآجل للجميع او حسب كل عميل وأشياء اخرى يمكن استخراجها ستكتشفونها عند فحص وتجربة المثال اتمنى ان تجدوا فيه الفائدة .. ولا تنسوني من دعوة صالحة بظهر الغيب buyAsale1.rar

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

كل عام وأنتم بخير بارك الله فيك استاذ عمرو

فكرة جميلة وعجبتنى حقيقة 🙂 بس ياريت كنت تحذف الاغانى والمهرجانات اللى فيه دى عشان متشيلش ذنب اى حد هيسمع منه 😊 تسلم ايدك

جميعا بإذن الله

تم التعديل أخي هاني 🙂 تجميع غياب لكل طالب.mdb

ما شاء الله تبارك الله ،، عمل رائع جدًا.. وهذا يمكن أن يظهر بشكل أكبر في الأبحاث التي يطلب فيها تشكيل الأحاديث مثلا أو كلمات التعريف التي تتطلب تشكيلا.. الحقيقة عمل رائع .. ونجتاج لمثل هذه الأفكار التطبيق والطوير ليكتمل البناء بهذا الفريق المبدع الرائع وبهذا التعاون البناء.. شكرا لكم من الأعماق،،

انا متفاجئ...طب العمل دة حصل ازاي ... انت بمجرد تكتب As بتطلعلك الخيارات ومستحيل تتكتب مزدوجة الا في حالة واحدة ...انه محمد عصام دايب لششتوا في الحب 🤣

جزاك الله كل خير جعل الله هذا العمل فى ميزان حسناتك

طيب و يما ان السؤال كان على اعتبار ان اسم الحقل txtQty اجعل timer interval=300 وفي حدث on timer للنموذج ضع الكود التالي Dim colorA As Long Dim colorB As Long Select Case Nz(Me.txtQty, "") Case Is = "" Case 1 To 5 colorA = 255 colorB = 16711680 With Me.txtQty .BackColor = (IIf(.BackColor = colorA, colorB, colorA)) End With Case 6 To 10 colorA = 128 colorB = 32768 With Me.txtQty .BackColor = (IIf(.BackColor = colorA, colorB, colorA)) End With End Select قم بوضه القيم من 1 : 5 تحصل على مربع يضئ ويطقئ بألوان وغير القيم من 6 : 10 تحصل على مربع يضئ ويطقئ بألوان مختلفة المرفق تم تحديث المرفق LightSystem.mdb

وعليكم السلام اجعل timer interval=1000 وفي حدث on timer للنموذج ضع الكود التالي Private Sub Form_Timer() If Me.txtQuantity < 5 Then If Me.txtQuantity.BackColor = vbWhite Then Me.txtQuantity.BackColor = vbRed Me.txtQuantity.ForeColor = vbWhite End If Else Me.txtQuantity.BackColor = vbWhite Me.txtQuantity.ForeColor = vbBlack End If End Sub txtQuantity مربع نص داخل النموذج يمثل الكمية مثلا

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(AND(DAY(B2)=1,MONTH(B2)=2),"كادر","") كادر.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة ..وذلك فى حالة ان وقت الإنصراف أقل من وقت الحضور ,ولكن لابد ان يكون فى نفس اليوم ,,وبعد ذلك لابد من تصحيح وتعديل وقت الإنصراق عند إدخاله بمعنى اذا انصرف الموظف الساعة مثلاً 5 وربع مساءاً فلابد من كتابتها وادخالها هكذا 17:15 وشكراً =IF($D2<$C2,($D2+"12:00")-$C2,$D2-$C2) back1.xlsx

اعتذر أستاذ محمد على التأخر لإنشغالى تفضل الملف بعد التعديل جلب بيانت بدلالة فرز او تحديد.xls

السلام عليكم أقدم لكم برنامج لإدارة المشتريات والمبيعات والمخازن لعله ينال إعجابكم برنامج لإدارة المشتريات والمبيعات والمخازن.xls

والله برنامج غاية فى الإبداع والروعة دائما تبهرنا بارك الله فيك وجزاك خير الجزاء وحسن الخاتمة

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

مرحبا بك فى المنتدى نورتنا واهلا وسهلا بك- ملف رائع بارك الله فيك

بارك الله فيك ووفقك أحسنت وابدعت دائما تبهرنا أستاذى الكريم

وعليكم السلام مرحبا بكى فى المنتدى هناك العديد من البرامج منها: المرتبات.xls رواتب5.mdb المرتبات والاجور.xls وكذلك هناك برنامج مرتبات مرفوع على هذا الموقع https://www.mediafire.com/#myfiles

جرب هذا الأقساط.xlsx

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

جرب هذا معادلة ترحيل ونقل بيانات بين تاريخين وبشرطين.xls

تفضل جرب هذا الملف وهو من أعمال وانجازات أستاذنا الكبير عبدالله المجرب له منا كل السلام والمحبة حل معادلة مبنية على DateDif.xlsm

وعليكم السلام -بارك الله فيك أخى ناصر وحفظك من كل سوء انت وأستاذنا ابن الجموعى كود فى غاية الإبداع -دائما تعلمنا وتبهرنا إلى التقدم

ممكن تجرب هذا جدول حراسة2.xls

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

أخي الكريم alidroos زرا الخيار حضور وغياب يقومان نسخ عدد الساعات للموظف المحدد في اليوم المحدد ولا يقومان بنقل عدد الساعات لكل الموظفين ولكن ما يقوم بهذ هو زر تنفيذ على الكل وقد طرح هذا الأخ عبد الله في مشاركته المقتبسة ......... وبالنسبة لموضوع إثبات المتغيرات فلا أدري أي شيء تقصد للعلم الكود يعمل عندي حتى مع تنشيط الخيار الثاني require variable deceleration لأن جملة option explicit ليست مكتوبة في الكود

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

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

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

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

أخي الكريم استعمل هذه الدالة Function reverse_string(str As String) As String Dim text As String, n as integer text = "" For n = 0 To Len(str) - 1 text = text & Mid(str, (Len(str) - n), 1) Next n reverse_string = text End Function وطريقة استدعائها كالتالي reverse_string("حلاص دمحم")

إضافة إلى حلول الإخوة اكتب رقم 1 في الخلية الأولى اسحب مقبض التعبئة fill handle ولكن بالزر الأيمن للفارة ستظهر في نهاية السحب قائمة اختر منها تعبئة سلسلة fill series