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

بعد اذنك حبيبي ابا البشر انظر كده ....... جرب ووافينا بالنتيجة تنسيق المدارس1.accdb

في طريقة بسيطة عن طريق دالة فورمات في الحقل المحسوب في الاستعلام Format(DSum("[cash]";"[tb1]";"[id] =1 ");"قياسي") والنتيجة تنسيق رقم قياسي.accdb

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

الحمد لله بالتوفيق ....

انظر المرفق ..... userdata.accdb

بارك الله فيك ورحم الله والديك

بعد اذن استاذنا الكبير ابراهيم الحداد ولإثراء الموضوع - تفضل تواتي 412.xlsx

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

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله ورحم الله والديك

كلام صحيح ....

حياك الله ... بالتوفيق

بالتوفيق .....

هناك اكثر من طريقة لعمل ذلك وهذه واحدة منها ..... افتح الاستعلام ولاحظ .... test (8) (1).accdb

بعد اذن الاستاذ محمد جرب المرفق كان لديك مشكله في استعلام1 ومشكله في استعلام2 طالما الالحاق للجدول يتم من خلال حقول النموذج يفترض حذف الجداول من الاستعلام ايضا مشكلة التكرار عند تسجيل الاقساط تم حلها باضافة اجراءت التأكد من ان الامر سبق تنفيذة الملف مرفق اقساط طلاب.accdb

وعليكم السلام ورحمة الله وبركاته ممكن توضيح المطلوب اكثر اخي الكريم اين المشكلة بالضبط وفي اي استعلام تحياتي

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

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

شوف بنفسك فربما تكون المشكلة لديك انت ... فملف الأستاذ علي كما ترى يعمل بكل كفاءة

gen.accdb

السلام عليكم ورحمة الله ضع هذه المعادلة فى الخلية "G4" اولا ثم اسحب نزولا =LARGE($C$3:$C$50;$E4) ثم ضع المعادلة التالية فى الخلية "F4" ثم اسحب نزولا و لا تنسى الضغط على CRTL+SHIFT+ENTER =IFERROR(INDEX($B$3:$C$50;SMALL(IF($C$3:$C$50=$G4;ROW($C$3:$C$50));ROW($A$1))-2;1);"")

السلام عليكم ورحمة الله استبدل هذه العبارة If IsNumeric(C.Value) And Not IsEmpty(C.Value) And x = 3 Then بهذه العبارة If IsNumeric(C.Value) And C.Value > 0 And x = 3 Then

ممكن الاستفادة من الفكرة هنا ..... بالتوفيق ....

نعم هناك امكانية لذلك .... ممكن مثال للتطبيق

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

بارك الله فيك استاذ محمد وجزاك الله كل خير- وتم وضع الملف بالمشاركة الرئيسية

أكتب هذا الفانك Function azhr(Frm As String) Forms(Frm).AllowEdits = True End Function استدعية من النموذج بهذا الكود Call azhr(Me.Name)

السلام عليكم ورحمة الله هذا رابط الموقع باللغة الفارسية الذي وجدت فيه البرنامج المذكور سلفاً: https://www.kanazspid.ir/acc/tags/نرم افزار رفع مشکل نصب افزونه های آفیس کاناز/ أو هذه نسخة من البرنامج بعد فك ضغط الملف على رابط التحميل التالي: https://www.up-00.com/co6vbqhhymzv بالتوفيق للجميع

السلام عليكم ورحمة الله تم تصليح مشكل النافذة الخطأ من خلال تثبيت برنامج Office الخاص بالوظائف الإضافية. شكرا لك أيها الأخ الفاضل على تعاونك معنا ولنا تواصل معكم في القريب إن شاء الله.

شوف انا فهمي على قدي ولكن الى فهمته انك لديك تاريخ وترغب اضافة عدد معين من الايام ويعطيك التاريخ الخاص بالتسليم DateAdd("d";[em];[pp12012]) نستخدم دالة dateadd ولها ثلاث وسائط d ترمز لليوم em الحقل الموجود في النموذج الذي تحدد فيه الايام المطلوب اضافتها pp12012 الحقل الذي يحتوي على التاريخ الهجري الملف مرفق واعتذر اذا كان فهمي غير صحيح مثال(2).accdb

أبو يوسف فتح الله عليك دنيا وآخرة هو المطلوب

أخي الكريم لعلي لم أفهم المقصود من سؤالك الكريم وقد أرفقت الملف فإن كان الجواب صحيحاً فبها ونعمت وإلا يمكنك تجاوزه والبحث عن جواب أدقّ وأفضل منه تقبل تحياتي. المحفظ جديد 2020.xlsm

السلام عليكم ورحمة الله وبركاته أرجو أن يكون هذا جواب طلبك لأنه أشكل عليّ السؤال المحفظ جديد.xlsm

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

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

تم عمل كود ترتيب حسب السن بجانب زر الترتيب الأبجدي وتم عمل الترحيل كقيم برنامج_التنسيق_الصف_الاول_الاصدار_الرابع.rar

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

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

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

اعتذر جدا Results-1000.rar

تفضل المفروض هذا طلبك Book1 (2).xlsm

بارك الله فيك ورحم الله والديك

الأخ الصديق عبد الفتاح كود أكثر من رائع جزاك الله خيراً لكن نسيت شيئاً وهو تسلسل الأرقام (في حال تكرار الاسم الرقم يجب ان يزيد 1 عما قبله) تعديل بسيط أرجو تقبله Sub rep_nam_num() Dim c As Range If Range("O2").CurrentRegion.Rows.Count > 1 Then _ Range("O2").CurrentRegion.Offset(1). _ Resize(Range("O2").CurrentRegion.Rows.Count - 1).ClearContents For Each c In Range("B3", Range("B" & Rows.Count).End(3)) If c.Value Like "*[ا-ي]*" Then c.Offset(, 13) = c.Value c.Offset(, 14) = c.Offset(, 1).Value Else c.Offset(, 13) = c.Offset(-1, 13).Value c.Offset(, 14) = _ IIf(Val(c.Offset(-1, 14)) = 0, c.Offset(-1, 14), _ c.Offset(-1, 14) + 1) End If Next End Sub Salim.xls

المطلوب غير واضح الصورة غير متوافقة مع الملف لقد عملت بناء على الملف Sub rep_nam_num() Dim c As Range For Each c In Range("B3", Range("B" & Rows.Count).End(3)) If c.Value Like "*[ا-ي]*" Then c.Offset(, 13) = c.Value c.Offset(, 14) = c.Offset(, 1).Value Else c.Offset(, 13) = c.Offset(-1, 13).Value c.Offset(, 14) = c.Offset(-1, 14).Value End If Next End Sub 1 (2).xls

انظر المرفق .... tray.zip

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

حياك الله وبالتوفيق

تفضل ..... 2.accdb

حياك الله وبالتوفيق

وعليكم السلام ورحمة الله افتح التقرير من خلال النموذج وأنظر .... DATA- Age1.rar

أحسنت استاذ محمد عمل ممتاز جعله الله فى ميزان حسناتك ورحم الله والديك ووسع الله فى رزقك وأكرمك الله فى أولادك