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

السلام عليكم بريمج صغير في حجمه وادواته .. ولكنه محكم ويفي بمتطلبات عملية الحضور والانصراف واحتساب ساعات ودقائق العمل . ومع ذلك هو قابل للتطوير واضافة خدمات اخرى مثل الغيابات والاجازات والعطل والاستئذان ونحوها ومثل جعل شاشة الحضور منفصلة عن البرنامج الاساسي واشياء اخرى كثيرة لا يمكن حصرها المهم ان العمل هذا يفي بالحاجات الأساسية والضرورية ....................... عملية التحضير تتم اما بادخال المعرف يدويا ثم النقر على انتر وإما استخدام قارىء الباركود كل ذلك تم تهيئته في البرنامج .. بطاقات وكشوف الباركود المطلوب قبل العمل على البرنامج هو نسخ ملف اداة الباركود barcodex.ocx الى نظام وندوز وتسجيلها تم العمل على وندوز 64 وأوفيس 32 بت الملف موجود ضمن المرفقات ، وتم اضافة المرفق المطور ChkInNetUp ايضا .. وهو خلاصة الملاحظات والطلبات في المشاركات اللاحقة ChkInOut.rar ChkInNetUp1.rar

ما باقي بالعمر الكثير ...... وانا بدعبس بملفاتي حصلت مجموعة برمجيات كنت سويتها سابقاً منها هذا المرفق وهو يعمل لدي أحد أصدقائي وللحين مابه مشاكل .. باسوورد تحديث الجداول (1001) وباسوورد الوحدات النمطية أو الشفت (tariq1991) .... أنا برفق الفولدر كامل . القاعدة (WaitingMain 2010) بحجرة التسجيل . القاعدة (Role_CheckUp) بحجرة الكشف العام . القاعدة (Role_Consultation) بحجرة الاستشارات . القاعدة (Role_MedicalAnalytics) بحجرة العلاج الطبيعي . القاعدة (Role_Pharmacy) بالصيدلية . القاعدة (Role_Physiotherapy) بمعمل التحاليل . القاعدة (Role_Radiology) بحجرة الاشعة . .القاعدة (Role_Surgery) بحجرة العمليات . ولابد كل القواعد على شبكة واحده لأن الكل مرتبط بحجرة التسجيل . . واي استفسار أو طلب أنا حاضر . Khalifa Hospital.rar

وعليكم السلام ورحمة الله وبركاته المشكلة الرئيسية هي في منطق البحث البحث عن الأعمدة يتم من الصف 3 (G3:U3) ولكن البيانات تبدأ من الصف 4 الإزاحة (offset) غير صحيحة عند استخراج القيم اليك التعديل تنسيق ترتيب الجداول الكمية مع اسم الصنف مع التاريخ التابع له - Copy - Copy.xlsm

السلام عليكم و رحمة الله و بركاتة الزملاء الكرام وأعضاء المنتدى الموقرين، تحية طيبة وبعد، نتشرف بإبلاغكم، بفضل الله وتوفيقه، اكتمال المرحلة التطويرية النهائية لتطبيقنا المبارك: [القرآن الكريم]. نأمل أن يكون هذا العمل وقفاً رقمياً مستداماً، وأن يكتب أجره لمن ساهم في إنجازه مادياً وتقنياً. دعوة للمراجعة الفنية وضمان الجودة (Quality Assurance): قبل الإطلاق الرسمي والتعميم، ندعوكم، خاصةً من ذوي الخبرة التقنية والمستخدمين المتمرسين، لتحميل النسخة التجريبية والمشاركة في مراجعتها بدقة وعمق. إن الهدف الجوهري من هذه المرحلة هو: ضمان جودة الأداء: والتأكد من توافق التطبيق مع المعايير التقنية واحتياجات شرائح المستخدمين المتنوعة. تحديد نقاط التحسين: واكتشاف أي مواطن خلل أو قصور فني ووظيفي يتطلب تعديلاً. تحقيق التكاملية: للوصول إلى أفضل تجربة مستخدم ممكنة. نؤكد استعداد فريق العمل لدمج وتطبيق الملاحظات البنّاءة التي تصب في مصلحة الهدف العام للتطبيق، مع الالتزام التام بإعادة نشر النسخة المحسّنة والموثقة لجميع المساهمين والجمهور، تحقيقاً لمبدأ "الصدقة الجارية والمنفعة العامة". ختاماً، ندعو المولى عز وجل أن يتقبل هذا الجهد المشترك وأن يجعله في ميزان حسنات كل من شارك في بناء هذا العمل وفي تحسينه ونشره. مع خالص التقدير والامتنان، حسين الحمادي ابو يوسف القران الكريم.xlsm

وعليكم السلام ورحمة الله وبركاته =IFERROR(AGGREGATE(15;6;A4:A30;ROW($A$1));"") السبب الرئيسي هو أن ROW($A$1) ثابت دائماً وكذلك النطاق يجب ثتبيته بحيث لا يتغير عند السحب ليصبح A$4:A$30 بدل A4:A30 ولحل المشكلة اختر احدى المعادلات =IFERROR(AGGREGATE(15;6;A$4:A$30;ROW(A1)-ROW(A$1)+1);"") =IFERROR(AGGREGATE(15;6;$A$4:$A$30;ROW(A1));"") =IFERROR(AGGREGATE(15;6;$A$4:$A$30;ROW(A1:A1));"") =IFERROR(AGGREGATE(15;6;$A$4:$A$30;ROW(A4)-ROW($A$4)+1);"") اليك الملف وبه تطبيق المعادلات الاربعة السابقة ntega_elec_new.xlsb

::: السلام عليكم ورحمة الله وبركاته ::: أسمحولي أن أقدم لكم هذه الهدية 🎁 البسيطة والمميزة والرائعة من مميزات هذا الإضافة: - عرض الملاحظات المهمة والتذكيرات مثل ( إجتماع ، اختبار ، تدوين أفكار ، كتابة مسودات، التذكير بالمواعيد ، .... الخ ) على واجهة برنامجك. - تتوائم مع البرامج ذوات المستخدمين المتعددين (كل مستخدم بملاحظاته الخاصة به). - تصميم رائع وألوان جميلة . - سهلة الاستخدام . رابط الشرح على اليوتيوب : تحميل الملف: Notes.accdb :: ولا تنسوني ووالدي من صالح دعواتكم 🙂 ::

وعليكم السلام ورحمة الله وبركاته الكود به مشكلتان الاولى اسم الشيت بدل Sheet30 يكون Sheets("Sheet30") الثانية اسم الليبل بدل Label3 يكون Label4 اليك الملف وبه التعديل MAM2.xlsm

وعليكم السلام ورحمة الله راجع الملف المرفق لعل فيه ما تريد Example.xlsm

جرب الصيغة التالية =IF(AND(ISNUMBER(E2);ISNUMBER(F2));IF((F2-E2)<(-59/86400);"مبكر";IF((F2-E2)=0;"في الوقت";IF(AND((F2-E2)>0;(F2-E2)<(10/1440));"ليس على الوقت""متأخر")));"-") TRIP_01 (3).xlsx

السلام عليكم استبدل هذا Private Sub UserForm_Initialize() Call showinlistbox End Sub بهذا Private Sub UserForm_Initialize() TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value) Call showinlistbox End Sub TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value)

و عليكم السلام ورحمة الله و بركاته انشيء ملف جديد و وأضبطه كما تريد من حيث الحجم و الهوامش و كل شيء بعدين احفظ الملف باسم مثلا A4 وبصيغة Excel Template (*.xltx) الحفظ يكون في المسار التالي C:\Users\[اسم المستخدم]\Documents\Custom Office Templates لما تنشئ ملف جديد اختار القالب اللي أنت عملته اللي هو A4

السلام عليكم ورحمة الله أعتقد أن المعادلة (وهي معادلة صفيف أي يجب تأكيدها بـ CTRL+SHIFT+ENTER) تكون بالشكل التالي: =IFERROR(INDEX('01'!C$7:C$1020; SMALL(IF(('01'!O$7:O$1020=TRANSPOSE({"محول إلى";"محولة إلى"})); ROW('01'!O$7:O$1020)-6); ROWS($A$1:A1))); "") أو =IFERROR(INDEX('01'!C$7:C$1020, SMALL(IF(('01'!O$7:O$1020=TRANSPOSE({"محول إلى","محولة إلى"})), ROW('01'!O$7:O$1020)-6), ROWS($A$1:A1))), "") والله أعلم

السلام عليكم ورحمة الله وبركاته وبها نبدأ يمكنك استخدام خاصية "البحث والاستبدال" (Ctrl + H) مع تنسيق خاص لتحقيق ذلك. 1. اضغط Ctrl + H لفتح نافذة "استبدال". 2. أدخل القيمة التي تبحث عنها في حقل "البحث عن". 3. اترك حقل "استبدال بـ" فارغًا. 4. اضغط على زر "تنسيق" (Format) في قسم "استبدال بـ". 5. اختر لون التعبئة (Fill color) الذي تريده. 6. اضغط "موافق" (OK). 7. اضغط "استبدال الكل" (Replace All). سيتم تلوين جميع الخلايا التي تحتوي على القيمة التي تبحث عنها باللون الذي اخترته.

Microsoft Access 2019 Programming by Example with VBA, XML, and ASP https://www.mediafire.com/file/ommdwpjia97lgrq/Microsoft+Access+2019+Programming+by+Example+with+VBA,+XML,+and+ASP.pdf/file

وعليكم السلام ورحمة الله وبركاته 🙂 جرب طريقتي في حماية قاعدة البيانات .. أنقل جميع مكونات القاعدة لبرنامجك وشغله .. 🙂 وهذي طريقة ضبط الإعدادات .. لفتح البرنامج في وضع التصميم : كلمة المرور لفتح الإعدادات : 123 ( قم بتغييرها لاحقا ) الحماية تشمل : 1- إخفاء الجداول وجميع مكونات البرنامج . 2- منع الفتح بزر الشفت Shift . 2- منع إضهار لوحة التحكم عند الضغط على F11 . وهذا يعتبر الحد الأدنى والأشهر في حماية قاعدة البيانات .. ويمكنك التعمق للوسائل الأكثر احترافية مثل حماية صفحة الأكواد بكلمة مرور وحفظ الملف بصيغة accde وحماية الملف بكلمة مرور وغيرها .. دمتم سالمين 🙂 Database Security Template.accdb

وعليكم السلام تفضل هذا الملف ربما يفيدك ويكون به المطلوب ان شاء الله وبالتوفيق المحطة.xlsm

مع اني لست من مناصري استخدام الاكسس خارج اطار قواعد البيانات ولكن الإبداع الذي اراه في هذا العمل يستحق الإعجاب والتقدير فعلاً الأخت @hanan_ms مبدعة وتستحق ان تكون ضمن خبراء الموقع لانها دائما تثبت أن بالإمكان استخدام الاكسس لوظائف اخرى الى جانب قواعد البيانات وعندما أرى مثل هذا التمكن في البرمجة كما في هذا الموضوع او مواضيع الاخوة @Foksh و @jjafferr و @Moosak و @ابوخليل وبقية الاخوة الذين لايسع المجال هنا لذكرهم فلسان حالي كما يقول المثل (كلما قلنا عساها تنجلي .. قالت الايام هذا مبتداها 🫣) وان طريق التعلم مازال طويلاً شكرا لمبدعي المنتدى لكل ماتقدموه تحياتي

السلام عليكم جرب الملف TRIP_01 (1) (2).xlsx

وهذا مثال عملي لست فيو1.xlsb

السلام عليكم ورحمة الله وبركاته اللست فيو عادة يكون من ضمن مكونات الاكسل ويتم تفعيلة فتح محرر VBA. من القائمة العليا اختر: Tools → References. ابحث عن المكتبة التالية: ✅ Microsoft Windows Common Controls 6.0 (SP6 إن لم تجدها في نافذة الـ UserForm، اضغط بزر الماوس الأيمن على صندوق الأدوات (Toolbox). اختر: Additional Controls... مرّر للأسفل حتى تجد: ✅ Microsoft ListView Control, version 6.0 (SP6) ضع ✔ بجانبها، ثم اضغط OK. الآن ستظهر الأداة ListView في صندوق الأدوات، ويمكنك سحبها إلى الـ UserForm. اليك ملف به الاداة اكسل 2016 لست فيو.xlsb

محاولتي =IF(F2="","",IF(F2<E2,"-","")&TEXT(ABS(F2-E2),"hh:mm")) TRIP_01.xlsx

🧹 أداة تنظيف الصور – الحل الذكي لمشكلة تضخم قواعد بيانات Access بسبب تراكم الصور في عالم تطبيقات Microsoft Access، تعتبر إضافة الصور إلى النماذج والتقارير أمرًا شائعًا جدًا، خصوصًا عندما يرغب المطور في تصميم واجهة جذّابة ومنظمة بصريًا. تُستخدم الصور عادةً في الأزرار، الشعارات، الرموز التوضيحية، الخلفيات، وحتى في عناصر التحكم الخاصة بالعروض البصرية. لكن مع مرور الوقت وتعدد عمليات التطوير والتحديث، تبدأ مشكلة خفية وخطيرة في الظهور… وهي تراكم الصور غير المستخدمة داخل قاعدة البيانات. 📸 كيف تبدأ المشكلة؟ خلال عملية تصميم وتعديل النماذج أو التقارير، يقوم المطور أحيانًا بتجربة أكثر من صورة أو شعار، أو ربما يستبدل صورة بأخرى جديدة لتحسين المظهر. لكن Access – بحكم طريقة تخزينه للموارد – لا يحذف الصور القديمة تلقائيًا من قاعدة البيانات. وبالتالي تظل تلك الصور غير المستخدمة محفوظة داخل جداول النظام، وتحديدًا في جدول MSysResources، حتى بعد حذف العنصر الذي كان يستخدمها. ومع مرور الوقت، تتراكم هذه الصور بشكل كبير جدًا، خصوصًا في المشاريع التي تشهد تحديثات مستمرة أو تتضمن عددًا كبيرًا من النماذج والتقارير. قد لا يلاحظ المستخدم أو المطور ذلك في البداية، لكن النتيجة تظهر لاحقًا بشكل واضح من خلال تضخم غير مبرر في حجم ملف القاعدة. ⚠️ ما هي آثار تراكم الصور على قاعدة البيانات؟ زيادة حجم الملف بشكل كبير: قد تتضاعف أحجام قواعد البيانات إلى أضعاف حجمها الطبيعي بسبب وجود صور غير مستخدمة. في بعض الحالات، يمكن أن يتجاوز حجم القاعدة الحد الأقصى المسموح به أو يؤدي إلى بطء في الأداء العام. بطء في الأداء عند الفتح أو الحفظ: كلما زاد حجم ملف القاعدة، أصبح فتحها أو حفظها أبطأ. العمليات التي كانت تستغرق ثوانٍ قد تبدأ في استهلاك وقت أطول بكثير. احتمال تلف القاعدة أو ظهور أخطاء: قواعد Access الكبيرة والمعقدة أكثر عرضة للأخطاء الداخلية، خصوصًا عند العمل في بيئة متعددة المستخدمين أو عبر الشبكة. الصور الزائدة تمثل عبئًا إضافيًا على الذاكرة الداخلية للملف (MDB أو ACCDB). صعوبة النسخ الاحتياطي أو النقل: القواعد الكبيرة تحتاج وقتًا أطول للنسخ والتحميل، وقد تواجه مشاكل أثناء النقل بين الأجهزة أو عبر البريد الإلكتروني. تأثير سلبي على تجربة المستخدم: في النظم التي تعتمد على سرعة الاستجابة وسلاسة التشغيل، أي تأخير أو ثقل في القاعدة يمكن أن يسبب انزعاجًا للمستخدمين أو العملاء النهائيين. 🔍 لماذا يصعب تنظيف هذه الصور يدويًا؟ رغم أن الصور المخزنة في MSysResources يمكن رؤيتها بطريقة غير مباشرة، إلا أن التعرف على الصور المستخدمة فعليًا في النماذج والتقارير عملية معقدة جدًا. فهي تتطلب المرور على عشرات وربما مئات العناصر داخل القاعدة، وفحص خصائص كل عنصر لمعرفة ما إذا كان يستخدم صورة معينة أم لا. وهذا العمل اليدوي غير عملي، ويحتاج وقتًا طويلًا وخبرة تقنية متقدمة جدًا في Access. كذلك، حذف الصور من جدول النظام يدويًا دون دراسة دقيقة قد يؤدي إلى كسر الروابط الداخلية، مما يتسبب في فقدان بعض الصور المستخدمة فعلاً داخل الواجهة أو التقارير. وبالتالي، لا توجد طريقة آمنة وسهلة لتنظيف هذه الملفات يدويًا. 💡 الحل: أداة تنظيف الصور هنا يأتي دور أداة تنظيف الصور التي تم تطويرها خصيصًا لحل هذه المشكلة بطريقة ذكية وآمنة. بدلاً من محاولة التعامل مع المشكلة يدويًا أو الاكتفاء بضغط القاعدة بشكل سطحي، تعمل الأداة على تحليل قاعدة البيانات المستهدفة بالكامل وتحديد الصور غير المستخدمة بدقة متناهية. تقوم الأداة بعملية فحص داخلية دقيقة لجميع النماذج، التقارير والعناصر، لاستخراج جميع الصور التي يتم استخدامها فعلاً داخل الواجهة. بعد ذلك، تجري مقارنة ذكية مع الصور المخزنة فعليًا داخل الجدول النظامي المسؤول عن الموارد، لتحديد الصور التي لم تعد مستخدمة. وبمجرد تحديد الصور الزائدة، تقوم الأداة بحذفها بطريقة فنية تضمن الحفاظ على سلامة باقي المرفقات والعناصر. بهذا الشكل، يتم تنظيف قاعدة البيانات من الملفات الزائدة دون أي تأثير على التصميم أو المحتوى. ⚙️ سهولة الاستخدام رغم أن العملية معقدة في الخلفية، إلا أن تجربة المستخدم في الأداة بسيطة للغاية. كل ما يحتاجه المستخدم هو اختيار القاعدة المستهدفة، ثم تترك الأداة لتقوم بعملها تلقائيًا. خلال دقائق معدودة، يتم فحص وتنظيف القاعدة بالكامل، لتخرج في النهاية بملف أخف وأسرع وأكثر استقرارًا. 🚀 النتائج والفوائد تقليل حجم القاعدة بشكل كبير: في أغلب الحالات، يتم خفض الحجم بنسبة تتراوح بين 20% إلى 60%. تحسين سرعة الفتح والحفظ: يصبح التعامل مع القاعدة أسرع وأكثر سلاسة. زيادة استقرار النظام: يقل احتمال ظهور أخطاء أو تلف في القاعدة بسبب البيانات الزائدة. تحسين أداء النسخ الاحتياطي والنقل: القاعدة الأصغر أسهل في التخزين والمشاركة. تنظيف احترافي بدون تدخل يدوي: كل شيء يتم بطريقة آلية وآمنة. 🔒 الأمان قبل كل شيء تم تصميم الأداة لتتعامل بحذر شديد مع موارد النظام، فهي لا تقوم بأي حذف عشوائي أو تجريبي. كل عملية حذف تتم بعد التأكد من أن الصورة غير مستخدمة فعليًا في أي عنصر داخل القاعدة. كما يمكن تشغيل الأداة على نسخة احتياطية من القاعدة لضمان أمان إضافي في بيئة الإنتاج. 🧠 خلاصة مع مرور الوقت، يمكن أن تتحول قواعد بيانات Access إلى بيئة مزدحمة بالصور غير الضرورية التي تبطئ الأداء وتزيد الحجم وتعرض النظام للخطر. لكن باستخدام أداة تنظيف الصور، يمكن التخلص من هذه المشكلة نهائيًا بطريقة احترافية وآمنة، دون الحاجة لأي تدخل يدوي أو مهارات تقنية متقدمة. إنها الأداة المثالية لكل مطور أو مستخدم يريد الحفاظ على قاعدة بياناته نظيفة، خفيفة وسريعة — تمامًا كما كانت في يومها الأول. الإصدار 64 :- CleanPhotoGallery.zip الإصدار 32 ( متوافق مع الإصدار 2016 وما فوق ) :- CleanPhotoGallery_32Bit.zip

مفتوح المصدر تحصيل الديون.accdb 2025الموظفين.accdb

وعليكم السلام ورحمة الله وبركاته جرب التعديل التالي الشرقية1.xlsm

وعليكم السلام ورحمة الله وبركاته اذا اردت الاسنغناء عن الكمبوبكس ويتم الاختيار المتعدد بواسطة لستبوكس 2فلتر.xlsm

📺 قريباً.. انتظرونا في النسخة الأولى من Foksh TV - فوكش تي ڤي 2025 . الفيديو مقتطف ، لمحاولة تصغير حجم الملف نسخة تجريبية بإصدار 64 تحتوي 3 قنوات حالياً ، وهي قيد التطوير 😉 FokshTV - 64.zip

إذا تطابق اللون والوصف والمقاس سيتم ألغاء الإضافة Private Sub CommandButton1_Click() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Dim WS As Worksheet, rng As Range Dim lastRow As Long Set WS = Sheet1 If Me.TextBox4 = "" Then: Exit Sub '======= lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row For i = 2 To lastRow ' äÈÏà ãä ÇáÕÝ 2 assuming ÇáÕÝ ÇáÃæá ÚäÇæíä If WS.Cells(i, 2).Value = Me.TextBox1.Value _ And WS.Cells(i, 3).Value = Me.TextBox7.Value _ And WS.Cells(i, 4).Value = Me.TextBox2.Value _ Then MsgBox "ÇáÈíÇäÇÊ ÇáÊí ÊÍÇæá ÃÖÇÝÊåÇ ãæÌæÏÉ ãä ÞÈá", vbOKOnly, "ÈíÇäÇÊ ãßÑÑÉ" Exit Sub End If Next i '======= Set rng = WS.Range("a2100").End(xlUp).Offset(1, 0) rng.Offset(0, 0).Value = Me.TextBox4.Value rng.Offset(0, 1).Value = Me.TextBox1.Value rng.Offset(0, 3).Value = Me.TextBox2.Value rng.Offset(0, 5).Value = Me.TextBox3.Value rng.Offset(0, 6).Value = Me.TextBox5.Value rng.Offset(0, 7).Value = Me.TextBox6.Value rng.Offset(0, 2).Value = Me.TextBox7.Value For i = 1 To 7 Controls("textbox" & i).Text = Empty Next i Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

وعليكم السلام ورحمة الله وبركاته الشرط '01'!O$7:O$1020="محول إلى" مكرر مرتين الشرط الاول اتركه كما هو ومحول الى الثانية غيرها الى محولة إلى =IFERROR(INDEX('01'!C$7:C$1020; SMALL(IF(('01'!O$7:O$1020="محول إلى")+('01'!O$7:O$1020="محولة إلى"); ROW('01'!O$7:O$1020)-ROW('01'!O$7)+1); ROWS($A$1:A1))); "") ويمكن تحسين المعادلة الى =IFERROR(INDEX('01'!C$7:C$1020; SMALL(IF(('01'!O$7:O$1020={"محول إلى","محولة إلى"}); ROW('01'!O$7:O$1020)-ROW('01'!O$7)+1); ROWS($A$1:A1))); "") اذا كان اصدار الاكسل 2021 او 365 استخدم المعادلة التالية =FILTER('01'!C$7:C$1020; ('01'!O$7:O$1020="محول إلى") + ('01'!O$7:O$1020="محولة إلى"); "") ان لم تؤدى المعادلة طلبك ارفق ملف به بعض البيانات

وعليكم السلام ورخمة الله وبركاته اليك التعديل وارجو ان يكون فيه طلبك غياب 1طلاب.xlsb تحياتي

احدى الطرق مثلا في مثالي المرفق اعلاه 1- نمنع الحذف من خصائص النموذج .. لسان التبويب /بيانات 2 - نضع سطرا للسماح بالحذف قبل دالة الحذف في الكود .. وسطرا للمنع بعدها هكذا : Me.AllowDeletions = True DoCmd.RunCommand acCmdDeleteRecord Me.AllowDeletions = False

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

صحيح .. تسلم كل مشكلة ولها حل .. المهم الفكرة تتم بشكل محكم وضعت هذا السطر عند تحميل النموذج الفرعي .. يعني اطلقنا سراحه حتى اشعار آخر ههههههه @Foksh ما رأيك الآن WIL7.rar

في الكومبوبوكس "Wil_Miled" قمت كتجربة بتغيير الحدث بعد التحديث من :- Me.Com_Miled.Requery ليصبح في النموذج الفرعي F2_Sub كالتالي ( كتجربة ) :- Private Sub Wil_Miled_AfterUpdate() If Not IsNull(Me.Wil_Miled) Then Me.Com_Miled.RowSource = _ "SELECT TblWsub.ID, TblWsub.N_C, TblWsub.Code_W " & _ "FROM TblWsub " & _ "WHERE TblWsub.Code_W = " & Me.Wil_Miled & " " & _ "ORDER BY TblWsub.N_C;" End If End Sub وكانت النتيجة كالتالي :- إلا أنني غير راضٍ عن الفكرة 😢 . رغم أن أحد التقويض في الحلول هو أن النماذج الفرعية = نماذج مستمرة !!!!

وعليكم السلام ورحمة الله وبركاته عمي جعفر @jjafferr 🙂 شكرا لك على الإطلالة اللي تبهج النفوس 🙂🌹 رديت على سؤال عمنا أبو خليل هنا 😊👇 فعلا وهذي هي طريقة الاستخدام اللي ذكرتها في الشرح .. وفعلا أنا مستخدمنها وضايفنها كجزء من برنامج متابعة المهام الخاص بي في جهة العمل 🙂 : والأفكار في تطوير هذا المشروع كثيييييييييييييرة ما شاء الله

💣 تحميل اللعبة للنواتين :- Minesweeper v 4.0 - 64.accde.zip Minesweeper v 4.0 - 32.zip

السلام عليكم ورحمة الله تفضل أخي الكريم الملف مع بعض التعديلات التي أراها مساعدة في عمل هذا الملف. أرجو أن تفي الغرض المطلوب التقرير اليومي لمستشار التربية - ثانوي - 11.5.0 .xlsm

المنتدى الجميل أرفع ملف يتم ربطه بقاعدة البيانات المرفقة وهو مفتوح المصدر وهو عباره عن برنامج لمتابعة حركة السيارات وصياناتها وقطع الغيار وصرف الوقود ومعدلات الصرف وحركة السيارت أرجو أن ينال إعجابكم ويجعله نافعا لمن يستخدمه أسألكم الدعاء بظهر الغيب CARV.7.5.rar CARV.7.5_be.rar

وعليكم السلام ورحمة الله وبركاته دالة COUNTA (لا تعمل مع التصفية) دالة SUBTOTAL وهي في حالتين =SUBTOTAL(3, A1:A10) تقوم بعدّ كل القيم غير الفارغة في A1:A10 حتى المخفية. اي لا تعمل مع التصفية =SUBTOTAL(103, A1:A10) تقوم بعدّ القيم غير الفارغة فقط في الصفوف الظاهرة بعد التصفية أو الإخفاء اي تعمل مع التصفية الرقم 103: يمثل (عدّ القيم غير الفارغة) مع تجاهل الصفوف المخفية يدويًا أو بواسطة التصفية. اليك طلبك 05- محرك بحث يعمل على تصفية البيانات حسب كل خلية على حدى 23-10-2025.xlsm

هناك طرق كثيرة لتسجيل الشاشة بصيغة gif سواء عن طريق البرامج المخصصة أو المواقع التي تقوم بهذا العمل Online انا إستخدم برنامج ScreenToGif وهو برنامج مفتوح المصدر يمكنك تحميله من رابط البرنامج على Github https://github.com/NickeManarin/ScreenToGif/releases/tag/2.42.1 ويمكنك تحميل نسخة التنصيب او النسخة المحمولة واستخدامها سهل للغاية اما عن طريقة الرفع للمنتدى فهي نفس طريقة رفع الصور العادية مثل الصورة الموجودة في اول مشاركة لك في هذا الموضوع تحياتي

وعليكم السلام ورحمة الله وبركاتة تقصد يحول اسم الشيت الى رقم اعتقد ان عدد حروف اسم الشيت يجب ان لا تتجاوز 31 حرف من ضمنها الفراغات الواضخة والمخفية بين الكلمات وهذا من ثوابت الاكسل يوجد حلان الحل الأول، والذي ربما لا تفضله كما ذكرت، هو الاختصار الرقمي. على سبيل المثال، استبدال 'أربعة وعشرون' بالرقم '24' ليصبح الوصف: 'مكيف سبليت جنرال 24 وحدة'. "الحل الثاني: على الرغم من أن أسماء بعض الأصناف تفي بمتطلبات الحد الأقصى لعدد الأحرف، إلا أن رفض النظام لها يحدث غالبًا بسبب وجود مسافات زائدة (ظاهرة أو مخفية). لاحظنا في ملفك وجود مسافات متكررة، مثل الفراغين بين 'سبليت جنرال'. لذلك، من الضروري تضمين دالة في الكود لمعالجة النص وإزالة جميع الفراغات الزائدة قبل حفظ البيانات." تفضل الملف، آمل أن يلبي هذا متطلباتك الاصناف1.xlsm لك وافر التقدير والاحترام

او جرب هذا الملف ربما يتوافق مع 2007 ليس لدي الاصدار لاجرب 3فلتر.xlsm3فلتر.xlsm

هذه من ضمن قوائم استاذنا جعفر يمكنك الاطلاع والاستفاده من موضوعه هنا ويمكنك ايضا نقل هذه القائمة من ملف الى آخر بكل يسر وسهوله .. وهذا الذي افعله دوما ... كالتالي : افتح اي ملف اكسس من اعمالك .. على التصميم قم بعملية جلب ادوات وكائنات من ملف اكسس آخر اختر برنامجي هذا اختر اي كائن وليكن جدولا ... ( يمكنك حذفه لا حقا ) انظر الصورة .. يجب تحديد الخيار الذي تم احاطته بالمربع الاحمر وافق على العملية اذهب الى اي تقرير او نموذج ستجد انه تم اضافة القائمتين اليها في الخصائص/ حقل القائمة المختصرة

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

1. من علامة التبويب ”ملف“ اختر ”خيارات“. 2. من القائمة الجانبية حدد ”Trust Center“، ثم أنقر زر ”Trust Center Settings“. 3. ستفتح نافذة قم بتحديد الخيار "Macro Settings“ من القائمة الجانبية 4. إختر الخيار الأخير (Enable all macros (not recommended; potentially dangerous code can run)) النسخة عندي إنجليزية لذلك لا أعرف ما سيكون المسمى العربي بالضببط لذلك يمكنك ترجمة المسميات الإنجليزية لتعرف مايقتبلها بالعربي لديك تحياتي

السلام عليكم و رحمة الله و بركاتة تحية طيبة أعضاء منتدانا الكرام، بقلوب ملؤها الشكر والامتنان، وبفضل الله وتوفيقه، نعلن لكم عن الانتهاء بنجاح من تطوير برنامجنا المبارك: [محضر الاجتماع]، والذي نأمل أن يكون صدقة جارية لنا جميعاً، ولمن ساهم فيه مادياً أو معنوياً. نداء للمعاينة والملاحظات (لإتمام الصدقة الجارية): لقد تم إنجاز البرنامج وتهيئته للنشر، ولكن قبل إطلاقه بشكل رسمي ليستفيد منه الجميع، نرجو منكم، أيها الخبراء والمستخدمون الكرام، معاينة البرنامج بدقة وإبداء ملاحظاتكم القيمة حوله. هدفنا من هذه الخطوة هو: ضمان جودة البرنامج وتوافقه مع احتياجات مختلف المستخدمين. اكتشاف أي قصور أو نقاط تحتاج إلى تحسين وتعديل. جعله أداة متكاملة وسهلة الاستخدام قدر الإمكان. نحن على استعداد تام لتعديل الملاحظات التي تتناسب مع الهدف العام للبرنامج، شريطة أن يتم بعد ذلك إعادة نشر النسخة المعدلة لجميع الأعضاء والمهتمين، ليتحقق مبدأ "الصدقة الجارية" والاستفادة العامة. أخيراً، ندعو الله أن يتقبل هذا الجهد المشترك في ميزان حسنات كل من شارك في إنجاز البرنامج، وكل من سيشارك في تحسينه ونشره. محضر الاجتماع.xlsm

وعليكم السلام ورحمه الله وبركاته اتفضل لعله المطلوب EX.xlsx =IFERROR(INDEX(صادر!$A$2:$A$1000; MATCH(0; COUNTIF($A$1:A1; صادر!$A$2:$A$1000); 0)); "")

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

وعليكم السلام ورحمة الله وبركاته اعتقد تقضد العمود E فهو مخصص لايام الغياب خسب ملفك الكود يحسب جميع الأيام المتتالية السابقة بما في ذلك يوم التاريخ المحدد ولا يخسب الايام التالية بعد التاريخ المحدد اليك الملف test1.xlsb

السلام عليكم بعض الكتب المهمة في مجال برمجة الاكسيس 1-https://www.mediafire.com/file/t8ja3t1t3og4hgf/Mastering__Access_2007_Development.pdf/file Mastering Access 2007 Development 2-https://www.mediafire.com/file/2nk78jlfnhdde8s/Microsoft_Access_2010_VBA_Programming_Inside_Out_-_A._Couch_%28Microsoft%2C_2011%29_BBS.pdf/file Microsoft Access 2010 VBA Programming Inside Out 3-https://www.mediafire.com/file/gnxslmgsuepdr6o/Professional_Access_2013_Programming.pdf/file Professional Access 2013 Programming

من مقتنياتي : Microsoft Access 2010 Bible https://drive.google.com/file/d/1ccVfMNH4xnGQLctqcMyObKG23JYiQ2yb/view?usp=sharing وفي المرفقات : الدوال الخاصة ببرنامج الآكسس.doc VBANotesForProfessionals.pdf 🙂