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

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

الأول : الثالني :

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

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

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

الاكسيس بيفتح ولكن مفيش نماذج بتفتح اصلا لا رئيسى ولا تفعيل . طريقة الفتح بالطريقة العادية لم احاول بزر الشيفت او اى شيئ فقط فتح البرنامج

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

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

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

لا يمكن عمل ذلك من الاستعلام بطريقة مباشرة ولكن يمكن اذا كان الكود الاتى فى وحدة نمطية لتتمكن استدعاء الكود فى زوايا التطبيق المختلفة حتى لو فى استعلام الروتين المستخدم فى الوخدة النمطية : Public Function CheckFolder(strFolderPath As String) As Boolean Dim strIsFolder As String strFolderPath = strFolderPath strIsFolder = Dir(strFolderPath, vbDirectory) If strIsFolder = "" Then CheckFolder = False Else: CheckFolder = True End Function الان فى الاستعلام وحسب ما اشرتم فى رأس الموضوع اضف فى حقل جديد السطر الاتى CheckFolder([folderName]) مع العلم ان حقل الـ folderName فى الاستعلام لابد وان يحتوى على المسار كاملا للمجلد

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

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

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

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

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

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

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

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

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

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

تم التعديل أخي هاني 🙂 تجميع غياب لكل طالب.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 بتطلعلك الخيارات ومستحيل تتكتب مزدوجة الا في حالة واحدة ...انه محمد عصام دايب لششتوا في الحب 🤣

انا اللى غلط واانا اكتب الكود ووضعتها مزدوجه انا اسف اكتب بسرعة وكنت اركز فى شئ آخر

انا اسف كتب كلمة Long مرتين اجعلها واحدة فقط فى كل سطر LongLong تم تعديل المرفق يا دكتور @الحلبي برجاء اعد تحميل المرفق والتجربة

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

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

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

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

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

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

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

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

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