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

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

السلام عليكم أصدقاء المنتدى الكرام أقدم لكم ملف جاهز لتحويل التاريخ من الميلادى إلى التاريخ الهجرى ...أتمنى أن ينال إعجابكم بارك الله لكم جميعا برنامج تحويل التاريخ.xlsm

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

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

اخي يوجد اسماء مكررة فى عمود 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

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

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

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

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

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

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

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

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

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

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

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

تفضل أخى جرب هذا جلب بيانت بدلالة فرز او تحديد.xls

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

اسف على التأخير تفضل تم التعديل http://www.mediafire.com/file/odau1u3qu9o28ul/برنامج+حضور+وانصراف+ومرتبات.xlsm

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

بعد اذنك أستاذ ناصر أنا مش عارف ليه مش عايز يظبط معايا ويقوم بتفقيط التاريخ الهجرى تمام ممكن تضبطه أستاذنا الغالى دالة تفقيط التاريخ سواء -ميلادى-هجرى.rar

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

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

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

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

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

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

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

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

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

أخي الكريم استعمل هذه الدالة 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("حلاص دمحم")