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

السلام عليكم ورحمة الله تم التعديل أيضا (دائما بواسطة المعادلات) على ورقة "جداول الحراسة" التي تحتوي الجداول الفردية للحراس (معذرة لم أنتبه لها إلا الآن)... الحراسة2026 للتصحيح.xlsm

السلام عليكم ورحمة الله وبركاته الان وضحت الفكرة بارك الله فيك تم عمل كمبوبوكس به اسماء الموظفين الازار المرقمة قي القورم اكوادها موحودة كما هي اعتقد بعد الكمبوبوكس لم تعد في حاجة اليها ان اردت الغائها فابلعنى جرب الملف وان كنت تحتاج الى تعديل في الفورم فابشر تحياتى لك حضور وخروج موظفين.xlsm 4495.xlsm

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

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

وعليكم السلام ورحمة الله وبركاته اليك الحل بطريقتين الاولى - بالتنسيق الشرطي Sheet1 اللون الاحمر =AND(A1<>""; OR(A2=""; A2=0)) اللون الاخضر =AND(A1<>""; A2<>""; A2<>0) الثانية - كود في حدث الورقة SHEET2 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:ZZ2")) Is Nothing Then Dim r As Range For Each r In Intersect(Target, Range("A2:ZZ2")) If r.Offset(-1, 0).Value <> "" Then If r.Value <> "" And r.Value <> 0 Then r.Offset(-1, 0).Interior.Color = vbGreen Else r.Offset(-1, 0).Interior.Color = vbRed End If Else r.Offset(-1, 0).Interior.ColorIndex = xlNone End If Next r End If End Sub الملف sa1.xlsb

ما شاء الله تبارك الله اما طريقتي .... برنامج خاص بالتفعيل يخصني - اضافة كل العملاء واسم البرنامج ورقم العميل ورقم البرنامج والمدد المطلوب تفعيلها والسبب ( قد يفقد العميل التفعيل لاي سبب من الاسباب وعند التواصل بنا يتم ارسال التفعيل مرة اخرى له ) - يتم التفعيل حسب اختيار العميل ( عن طريق رقم يرسل عن طريق البريد او الواتس او عن طريق مفتاح تفعيل ..... ) او عن طريق الانترنت مباشر

وعليكم السلام ورحمة الله وبركاته سبب الخطا عدم وجود رابط بين اللست والشيت في الكود يوجد عمود مخفى في ListBox وهو الرابط بين الاختيار من اللست والشيت يعنى الاعمدة 10 للشيت +عمود مخفي في اللست =11 تم التعديل والغاء العمود المخفي في اللستبكس واستخذام مصفوفة تربط كل صف في الـ ListBox برقم الصف الحقيقي في الشيت. اليك الملف ليست بوكس 4.xlsm

السلام عليكم ورحمة الله في المرفق تجد حلا باستعمال المعادلات، أرجو أن يفي الغرض المطلوب... الحراسة2026 للتصحيح.xlsm

لقد تركت اثرا طيبا بعد مشاركتك شكرا لك تمت تجربة الكود وعملت بشكل فعّال اكرر شكري لسعادتك

الله يفتح عليكم ولماذا لا تستجيب هذه الاكواد فى اوفيس 2019 ويندوز 10 نواة 64 وتظهر رسالة خطأ جزاكم الله خيرا

تفضل استاذ @Matin_Murad تفضل هذا مرفق متكامل قد يفي بطلبك حسب مافهمت . أي سؤال أو طلب أنا حاضر . ووافني بالرد. Matin_Murad.rar

اذا القاعدة امتدادها (mdb) ممكن جداً أما (accdb) فصعب .... أما (mde) أو (accde) فلا يمكن ابداً. والله أعلم.

اظن انه من الصعب اذا كان الباسورد للقاعده 😑,, اما باسورد الاكواد فهناك حلول

مساء الخير,, اخي فادي انهيت المشكلتين اناقبل يومين التي ذكرتهم في اول الموضوع بااستعلام بسيط وكود ابسط 😆 1. عملت استعلام حذف في حدث عند التحميل وضعت عليه معيار 0 على حقل no_driver كونه حقل فريد بحذف اي سجل فارغ سابق او حالي .وبهذا انتهت المشكله الاولى التي ذكرتها با اول الموضوع,☝️ 2. استخدمت الكود التالي Me.da_d = Me.dm_b.Form.Controls("qqa") ,, الذي يقوم بااحضار قيمة المجموع في الحقل الغير منضم الموجود في النموذج الفرعي ,ويعمل بكفائه افضل من الكود السابق وبهذا انتهت المشكله الثانيه التي ذكرتها با اول الموضوع,☝️ اشكرك جزيل الشكر فوووكش على مشاركتك ودعمك ومساندتك الدائمه انت وجمييع الاساتذه وخبراء الموقع ❤️

السلام عليكم لم توضخ خلية البحث G1 لها علاقة بالتوزيع ام لا فيكون التوزيع فردي ام للكل على كل حال الملف فيه عدد 2 شيت الاول شيت DATA يقوم بالتوزيع الفردي للمراقب وذلك بالاختيار من الخلية G1 الثاني شيت DATA1 به كود يقوم بتوزيع اللجان على كل المراقبين جرب الملف المرفق متمنيا ان يكون فيه طلبك ملاحظة1_2026.xlsm

السلام عليكم ورحمة الله وبركاته لا مشكلة اخي الفاضل جرب التعديل التالي sa1 (2).xlsb

شكرا لكما وبارك الله فيكما وزادكما الله من علمه

آآآآآآه الآن فهمت ملاحظتك صحيحة : سوف يعمل عندما يتم ارجاع تاريخ الجهاز الى تاريخ عمل الفترة تم الاصلاح ,,, ولكن بشرط ان تكون الفترة منتهية فعلا .. فلو تم تقديم التاريخ والفترة في الاصل فعالة .. فستظهر الرسالة بانتهاء الاشتراك .. ولكن عند تصحيح تاريخ الجهاز سوف يعمل لانه فعلا يعمل .. ومثل ذلك لو تم تأخير التاريخ بمعنى ان تحريك تاريخ الجهاز لا يعني شيئا للبرنامج .. فمنظومته داخلية جزيت خيرا

سهواً وعدم تركيز ، ولكن يستطيع فرض لون مربع نص الاسم كلون أحمر مثلاً ، وبالشرط يجعل اللون أسود 😅 ولكن هناك الصحيح ، وهناك الأصح منه. شكراً لمهندسنا انتباهه 😇

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

السلام عليكم اعرض عليكم احبتي فكرة قمت بتنفيذها .. واريد تحسينها نقاش ودي .. متاح لجميع رواد المنتدى المبتدىء قبل الخبير الفكرة هي حماية البرنامج ليعمل في فترة محددة كأشتراك ... 1شهر / 6 شهور / سنة ... الفكرة تم تنفيذها بكل اتقان واحترافية بفضل الله . اكرر .. العملية ناجحة نجاحا باهرا بكل المعايير ........................................................ ولكن قبل ذلك البرنامج يحتوي على حماية ضد النسخ بمعنى حين ابعث البرنامج اول مرة للمستفيد ويقوم بتشغيله يظهر له رقم النسخة ويطالبه برقم التسجيل يقوم المستفيد بمراسلتي ويزودني برقم النسخة فأعطيه رقم التسجيل رقم التسجيل هذا هو ملك له ويتم حفظه بملف نصي بجانب قاعدة البيانات ومادام هذا الملف موجود وداخله رقم التسجيل الصحيح فالبرنامج يعمل على اتم وجه ---------------- علما ان حماية الاشتراك مشابهة لها تقريبا والاختلاف فقط ان الاشتراك يعتمد على تاريخ داخل جدول -------------------- الى هنا كل شيء حلو وجميل ........................................................ نأتي للمطلوب لتفعيل حماية الاشتراك 1- الافضل وهو المطلوب في السوق غالبا اتاحة نسخة تجريبية لفترة محددة كشهر واحد مثلا ... المطلوب : لا اريد اكوادا .... اريد التوجيه والشرح .. اريد طريقة لتنفيذ الفكرة 1- اريد الجمع بين الحماية الاولى والثانية بعملية واحدة .. كيف؟ 2- اريد لما تنتهي فترة التجربة ازوده برقم فيتم تفعيل البرنامج لسنة قادمة مثلا . ( الطريقة السهلة ان ارسل له واجهة جديدة مفعلة لمدة سنة ..) هل اجعل النسخة التجريبية متاحة للنسخ بمعنى انها لا تحتوي على شرط العمل على جهاز واحد ويكفي حماية الاشتراك لأنها بعد انقضاء الشهر لن تعمل ابدا حتى لو تم نقلها لجهاز آخر هذه الطريقة تتيح للمستفيد نقل البرنامج الى الاجهزة الاخرى فترة السماح وسوف يعمل ___________________________________________________________________________________ قد تتعجبون اذا قلت لكم .. خلال كتابتي لآخر الاسطر هذه .. اني وجدت الحل والطريقة للجمع بين الحمايتين .. وايضا تفعيل الاشتراك الدائم بارسال الرقم فقط كثيرا جدا مرات ومرات .. حين ابدأ بعرض المشكلة وابدأ بالكتابة .. اصل الى حل مقنع .. لأني اعرض على نفسي المشكلة .. واستوعب ابعادها وانا اكتب .. ثم الغي الطلب ولكني اشعر ان هذا الموضوع يهم فئة ليست قليلة لذا سأطرحه مع الحل الذي توصلت اليه __________________________________________________________________________________ الحل حسب وجهة نظري هو جعل كود الحماية ( رقم التسجيل ) مشترك بحيث يكون جزء منه يشمل الحماية من النسخ ، والجزء الآخر لتفعيل الاشتراك ............. الموضوع مفتوح للمناقشة .. ومقترحاتكم محل اهتمام

كل الشكر استاذ عبد الله جزاك الله خيرا

جزيتم خيرا احبابي المرء عزيز باصحابه زادكم الله عزا ورفعة المسألة ما تستهاهل كل هذا العناء مني .. وليست المسألة استسلام او احباط اعود لطريقتي التي عادة اسير عليها : تقسيم قاعدة البيانات .. ونسخة الواجهات التجريبية ارسلها عند الطلب . وان اراد الاستمرار ارسلت له النسخة الدائمة او مؤقتة بزمن محدد فقط يلصقها فوق الاولى ويوافق على الاستبدال .. وريح راسك يا شايب وعلى فكرة العملاء غالبا يا دوبك اثنين او ثلاثة .. لست وكالة توزيع 🚚 وانما انا طرحت الموضوع للفائدة لأن البرمجة تنفيذ فكرة والفكرة هي كالتالي لمن استحسنها واراد تنفيذها : 1- جدول يحتوي على حقلين نصيين سيدرج بهما تاريخين مشفرين 1- الحقل الأول يحمل تاريخ آخر مرة اشتغل فيها البرنامج بصورة صحيحة ( من اجل حماية تغيير تاريخ الكمبيوتر) 2- الحقل الثاني يحمل التاريخ الذي ينتهي فيه الاشتراك فالتفعيل بالكود يخص الحقل الثاني ( الكود يكون مشفر يحمل داخله التاريخ الذي سيتم تحديث الحقل به) وعلى فرضية ان البرنامج محمي من النسخ ولا يمكن فتحه الا بكود يتعرف على عتاد الكمبيوتر لذا نبعت الفكرة بدمج الكودين بكود واحد الفائدة : ان تجديد الاشتراك مثله مثل تركيب البرنامج أول مرة .. لا فرق بينهما والهدف :ان يقوم الكود بالمهمتين في خطوة واحدة بدلا من خطوتين

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

و عليكم السلام و رحمة الله و بركاته جرب =ROUND(A1*4;0)/4

لا يتصور اكثر من برنامج في جهاز واحد .. تقصد انه عنده 5 نسخ مثلا على جهاز واحد .. نعم كود واحد يشغلها جميعا ثم ما الفائدة ؟ لا يمكنه نسخها الى جهاز آخر .. وتشتغل كلها الفترة المحددة نفسها . هههههه عجيبة اتصور هذا الشخص يملك محمولا ويعمل في ثلاث او اربع مؤسسات مختلفة .. يتردد بينها . ياشيخ هذا عصامي يستاهل نشجعه جميل جدا يمكنني المتابعة معك .. ما دام رقم النسخة ظاهر سوف ارسل لك المثال الكامل مع رقم الحماية الكامل (المشترك ) سوف اعمله على 32 اعتقد ان اصحابه كثر

ليه تنقر على الزر ؟؟ الزر كنت وضعته من اجل ادراج Now لأنها تاريخ ووقت ويصعب كتابتها واضح ان الامور تمام انتظروني سوف اعيد الحماية للمثال .. انا اضع المثال هنا لرؤية هل ستتم الحماية بحيث لا يمكن تجوزها .. سأعتمد التاريخ حسب اليوم فقط ( الساعات لا اعتبار لها) .. حتى في تغيير تاريخ الجهاز

شكرا ابا البشر .. بشرك الله بما يسرك ولكن مع الاستاذ @Foksh ما زالت المعركة قائمة استاذ فادي قد تكون المشكلة لديك من دالة التاريخ المصنوعة لأني صنعتها من اجل اختلاف تنسيقات التاريخ في الاجهزة ص / م أو am pm فجعلت الساعات بنظام الـــ 24 انا اتعامل مع حقل نصي ثم احوله لتاريخ تفضل هذه هي الفكرة جرب احتمال 99% تعمل عندك ما لم يتم التحزيم القاء نظرة على المرفق فقد تجدون لي شيئا افضل Database1.accdb

السلام عليكم ورحمة الله وبركاته مرحبا بالجميع الاوفيس 2016-32Bit النسخة المستخدمة هي tshfeerAB النتيجة ::::::::::::::::::::::::::::::

هكذا كما قال استاذ @Foksh تابع الشرح .

الف شكر انا استخدم اوفيس انجليش ولكن تنسيقات اللغة عربية

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

كلام سليم أستاذ قاسم ، فمن الناحية المنطقية السؤال غير كافي كمعطيات إذا كان هناك جدول يمثل الحركات ( الصادرة و الواردة للأصناف ) . ولكني افترضت من سؤاله دون أن يوضح لنا أي تفاصيل ، أن لديه في جدول المستودع تحديث لأي صنف يتم بيعه أو شراءه ... إلخ . ولذا لم أتطرق إلى الحصر بين تاريخين . لذا إذا كان لديه حقل Balance محدّث دائماً كما تصورت في إجابتي (حقل يمثل الرصيد اللحظي لكل صنف في كل مخزن) فالجملة كافية ، بحيث تستعلم عن ذلك الحقل بشرط ItemID و StoreID . أما إذا لم يكن هناك حقل جاهز للرصيد وبدلاً من ذلك يتم حساب الرصيد من حركات (وارد / صادر ) ، فالجملة غير كافية منطقياً كما تفضلتم ، لأن الرصيد سيعتمد على زمن (حتى أي تاريخ تريد الحساب ؟ الآن أو الحالي ؟ بعد يوم معين مثلاً؟ ... إلخ ) .

سؤالك فيه اشكالية لان المخزن فيه وارد ومنصرف شبه يومي.. يمكنك ان تحدد تاريخ حساب الرصي= اما اسبوعي او شهري اوسنوي من خلال المدخلات والمنصرف منها ابحث في المنتدى فهناك الكثير من مشاركات الاخوة الزملاء مما ينفعك او اعمل برنامج بسيط وسترى الكثير ممن يساعدك

شكراً لك على الإجابة ارفقت لك ملف العمل اريد قائمة منسدلة اختار الموظف لتثبيت ساعة داومه القيم في A1-A20 مصدر البيانات هو الورقه Sheet 1

تفضل استاذ @AhmedEmam حصلت لك مرفق من مكتبي . اليك الشرح والمرفق . أكتب طلبك وانا بعدل أي شئ تريده . ووافني بالرد . ChangeAllFormsColor.rar

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

السلام عليكم ورحمة الله وبركاته تم استبدال TextBox1 بـ COMOBOX1 يتم فيه تجميع التواريخ من العمود B التواريخ في العمود B بالنظام الفرنسى جعلتها بالنظام dd/mm/yyyy عند التعديل استخدم زر خفظ التعديل اليك الملف ليست بوكس1.xlsm

االرجاء الانتظار الى الانتهاء من باقى التعديلات CertificateCustomization.zip

فكرتي المتواضعة .. dbs2.zip

السلام عليكم تم تعديل المعادلات حسب ما تريد (حسب فهمي) في الملف المرفق... مخصصات.xlsx

وعليكم السلام ورحمة الله وبركاته الى جانب الحلول التي ارفقها استاذنا الفاضل hegazee اليك حل اخر بالكود في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim rngF As Range, rngG As Range Dim rngB As Range, rngC As Range Dim pos As Variant Set rngF = Me.Range("F2") ' Set rngG = Me.Range("G2") Set rngB = Me.Range("B2:B1000") Set rngC = Me.Range("C2:C1000") If Not Intersect(Target, rngF) Is Nothing Then Application.EnableEvents = False pos = Application.Match(rngF.Value, rngB, 0) If Not IsError(pos) Then rngG.Value = Application.Index(rngC, pos) Else rngG.Value = "" End If Application.EnableEvents = True End If rngG.Select End Sub data.xlsb

تم المطلوب في الملف المرفق... حافز.xlsx

تفضل جرب مثال1.xlsx

عذراً لمن اتنتظرني بأن أرفق الملف مفتوح المصدر وتأخرت عليه ،، لن أرفق الأكواد هنا لتعددها وطولها .. GD Uploader.accdb

رؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤعاتك يا بشمهندس

🌼 السلام عليكم ورحمة الله وبركاته 🌼 يسرني اليوم أن أقدم لكم الإصدار الثاني والمطور من الأداة المتميزة والرائعة ( الكاتب الذكي لدوال المجال ) . Dloockup, DCount, DMax, DMin, Dfirst, DLast هذه الأسطورة التي تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. :: ما هو الجديد :: اليوم أحتفل معكم بإصدار النسخة الثانية والمطورة لهذه الأداة والتي تتميز بالإضافات التالية : 1- إمكانية إضافة عدد لا نهائي من المعايير ( الشروط ). 2- التعرف التلقائي على نوع بيانات الحقول. 3- جلب قيمة المعيار من التقارير. 4- ميزة إضافة الأقواس حول المعايير. 5- حفظ بيانات آخر عملية قمت بها. 6- كتابة الدالة بمجرد الضغط على زر Enter. 7- تم إضافة أزرار لتسهيل كتابة الدالة NZ والمعامل Like. 8- تكبير لوحة الناتج بالضغط المزدوج عليها. 🌹🍀🌹🍀🌹 وهنا تم شرح هذه الإضافات بالتفصيل : :: شرح كيفية استخدام الأداة بالتفصيل :: :: 🌼 شكر وتقدير 🌼 :: لكل من ساهم برأي أو فكرة أو تطبيق في هذا العمل ، وجزاكم الله عن المسلمين كل خير 😊🌹 :: حمل الإصدار الثاني للكاتب الذكي لدوال المجال 2.0 :: ‏‏‏‏Domain Functions Builder V2.0.accdb