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

اضافة بسيطة ...جعل الزر متحرك معك اينما كنت 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

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

لا اعتقد ولكن الاعتماد على الرقم هذا فقط غير مناسب لان بعض المعالجات لا تظهر لها رقم كما ان 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

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

انظر للتعديل الان TestLOck.rar

نفع الله بكم ووفقكم لما يحبه ويرضاه

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

جزاك الله خيراً أستاذى @ابو جودي

بارك الله فيك اخي الكريم .... ولكن تظهر رسالة شبيه لرسالة الدكتور .... الاوفيس 16 - 32 bit

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

بصراحة رائع جدا شكرا لك استاذي

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

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

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

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

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

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

بارك الله فيك استاذ مجدى وزادك الله من فضله

شكر وتقدير واحترام من اخيك

لا يمثل غلطة في اعتقادي على كل حال المتغيرات التي تمثل ارقام صحيحة Byte يمثل عدد فردي من 0 الى 250 Integer عدد صحيح من -32,768 الى 32,767 Long عدد صحيح طويل من -2,147,483,648 الى 2,147,483,647 LongLong عدد صحيح طويل من -9,223,372,036,854,775,808 الى 9,223,372,036,854,775,807 LongPtr عدد صحيح طويل لانظمة 32 بت من -2,147,483,648 الى 2,147,483,647 وهو البديل عن LongLong توجد متغيرات تتعامل مع الارقام كمزدوج وعملة وكسر عشري في هذه الحالة فان الاختيار الصحيح Long وايضا LongLong اذا كنا سنعمل على 64 فقط تحياتي

وعليكم السلام اللهم امين .. كل عام وانتم بخير استاذ محمد اللهم اوعدك بحج بيته الحرام

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

ليس مستحيل اخي قاسم LongLong ضمن الخيارات عندما تعلن عن متغير وتمثل نوع بيانات عدد صحيح طويل لانظمة 64 بت تتراوح قيمته من -9,223,372,036,854,775,808 الى 9,223,372,036,854,775,807 فاذا كنت تستخدم access 32 فانك سوف تحصل على خظا اما انظمة 64 بت فسوف يعمل

انا متفاجئ...طب العمل دة حصل ازاي ... انت بمجرد تكتب 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

بارك الله فيكم Nox Vidmate VLC

وعليكم السلام اجعل 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 مربع نص داخل النموذج يمثل الكمية مثلا

وعليكم السلام-تفضل

كل عام وانتم بخير اللهم اوعدنا جميعاً بحج بيته الحرام -بارك الله فيك استاذ مجدى

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

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

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

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

جرب أيضا هذا مناوبات.xlsx

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

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

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

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

المشكلة أخي الكريم في تحديد المدى من a2 إلى a11 وأنت كتبت الرقم الجديد في الخلية a12 ولتفادي ذلك تم تعديل المعادلة لتنظر في العمود بأكمله كما فعلنا مع دالة العدّ ................. تم تعديل المرفق في المشاركة 2

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

جرب هذا أخي الكريم ....... لاحظ أن المعادلة الموجودة في خلية العدد معادلة صفيف أي تكتبها ثم تضغط ctrl+shift+enter وليس enter فقط mas_unique_values.rar

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

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