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

هذا بالطبع امر طبيعى ومنطقى لأنك تبدأ بعمود العاصمة وليس الدولة فى قاعدة البيانات وهذا اتجاه البحث بالعاصمة أما اذا أردت البحث بالدولة فعليك بإستخدام هذه المعادلة ... فلا يمكن استخدام معادلتك نهائياً عند البحث بالدولة وشكراً =INDEX($B$7:$B$11,MATCH($J7,$C$7:$C$11,0)) test1.xlsx

في خصائص النموذج * غير خاصية height إلى 500 مثلا * وخاصية scrollbars إلى 2 vertical * وخاصية scrollheight إلى الرقم الذي كان في خاصية height سيظهر شريط تمرير يمكنك من رؤية باقي أجزاء النموذج بالتوفيق

عملت لك كشف حساب للعملاء في حالة تكرر اسم العميل يتم تجميع المبالغ له .. والرجاء الانتباه للحقول الفارغة في النموذج الرئيسي وحولها الى رقم صفر البرنامج(1).accdb

تفضل التعديل emp.accdb

تفضل التعديل ترقيم.mdb

السلام عليكم أولا نشكركم و نثمن وجودكم معنا فى منتدى أوفيسنا ، الآن تعدى عدد أعضاء المنتدى 190 الف عضو ، و تعدى عدد المشاركات 590 ألف مشاركة و أصبح الموقع قاعدة بيانات ثرية لمن يرغب فى تعلم الاوفيس و تبادل المعلومات و الخبرات فيما يتعلق بالاوفيس على مختلف مستويات الاحتراف لاستخدام تطبيقات الافيس و برمجتها. و عليه نشكر كل من ساهم و يساهم ممن يقتطعون من وقتهم و جهدهم فى سبيل نشر العلم و مشاركة المعرفة و مساعدة الآخرين سواء كانوا معنا او غابوا عنا وبقت اعمالهم ننهل منها جميعا لنزداد علما و معرفة. و نسأل الله أن يجعله فى ميزان حسناتهم يوم لا ينفع مال ولا بنون. فلا يسعنا أن نوفيهم شكر ما قدموا ومازالوا يقدمون. كما تعلمون تتركز أغلب المشاركات فى الموقع فى أقسام الأوفيس الرئيسية ، و نرى فى هذه المرحلة تشجيع الجميع على التواجد وتبادل المعرفة فى الاقسام المتعلفة بادارة المشاريع و المرونة و البحث العملي و تطبيقات البيانات الضخمة و الذكاء الاصطناعي وهي أقسام يقل عدد روادها و مشاركاتها بصورة كبيرة مقارنة باقسام الاوفيس ، كما يقل عمرها ايضا كثيرا عن أقسام الاوفيس، فبعض هذه الأقسام قد افتتح مؤخرا بينما تعدي عمر بعض اقسام الاوفيس الرئيسية ثمانية عشر عاما واصبحت ثرية بالعلم و مازالت تطرح الجديد فى كل يوم بفضل عطاءكم و مشاركتكم. وسبب هذه الدعوة للمشاركة وهو نفس سبب افتتاح هذه الافسام الجديدة، هو رغبنا فى تقديم ما فيه الفائدة لأعضاء المنتدى، فهذه المواضيع قد إزدادت أهميتها بدرجة كبيرة، و من المتوقع بحسب العديد من الدراسات أن تزيد أهميتها كثيرا فى الفترة القادمة على المستوى المهني وستصبح أساسية للتطوير الذاتي أيا كان مجال عملك. وكما جرت العادة للأسف، فالمحتوى العلملي المتاح بالانجليزية فى هذه المواضيع يتعدى المحتوى المتاح باللغة العربية بصورة كبيرة ، و عليه باذن الله سنعمل سويا على اتاحة ما هو مفيد فى هذه الاقسام لتبادل المعرفة وتحقيق القائدة المرجوة. تم افتتاح قسمين جديدن حديثا ضمن أقسام ادارة المشاريع و هما قسمي (الاستراتيجية و ادارة محافظ المشاريع) و الذي افتتح من ايام قلائل و قسم مخصص لاطار (السيف (SAFe) و المتعلق بتطبيق المرونة على مستوى المؤسسات Scaled Agile Framework و الذي افتتح أمس فقط الأقسام الجديدة كما اعتدنا لا يتم النشر بها مباشرة و لكن يتم النشر بعد اعتماد المشاركات من المشرفين ، فستظهر المشاركات بعد اعتمادها، و بعد فترة باذن الله سيتم فتح النشر المباشر مثل باقي اللأقسام بعدما يعتاد المشاركين فى هذه الأقسام على نظام الموقع. فى انتظار مشاركاتكم و تفاعلكم جميعا مع تحيات فريق الموقع www.officena.net

طيب جرب المرفق ..... ‏‏test_kanory.accdb

شكرا جزيلا و جزاك الله كل خير لو مفيش ازعاج لحضرتك هلى فى كود يجعل التكست بوكس المنوط ادخال تواريخ فيها لا تقبل الا ادخال تاريخ كامل yyyy/mm/dd مع العلم هما حوالى 30 تكست بوكس و شكرا لاهتمام حضرتك

شاكر لك اهتمامك استاذ محمد صالح معلومة جديدة شكرا جزيلا .. خالص تقديري للجميع

لك الشكر أ/ محمد صالح هذه المعلومة ... تحياتي لك

بعد إذن حبيبي @Ali Mohamed Ali هذه مشكلة معروفة مع دالة vlookup أنها لا تجلب نتائج من عمود يسبق عمود البحث ولكن الحل معها استعمال هذا الشرط لعكس اتجاه البحث فتصبح المعادلة =VLOOKUP(J7,IF({1,0},$C$7:$C$11, $B$7:$B$11),2,FALSE) أو =VLOOKUP(J7,IF({0,1},$B$7:$B$11,$C$7:$C$11),2,FALSE) بالتوفيق

يوجد في منتدانا الرائع مشاركات كثيرة في هذا المجال هذه بعضها https://www.officena.net/ib/search/?q=تحويل المعادلات كود&updated_after=any&sortby=relevancy&search_and_or=and إن شاء الله تجد ما تريده فيها

تابع هذا ...

يمكنك استعمال دالة الجمع المشروط sumif =SUMIF(A:A,D1,C:C) حيث d1 هي الخلية التي تحتوي على الاسم المراد جمع الأرقام المقابلة له بالتوفيق

محمد ابو اكرم ولما لم تقم انت من البداية برفع ملف توضيحى لما تريد تجنباً لكل هذا ... وتجنباً لإهدار الوقت دون داعى

شكرا على الاجابة لقد ذكرت اخفاء واظهار الاعمدة ولم تذكر اخفاء واظهار الصفوف وحددت مدى معين 10 اعمده والمطلوب مدى غير محدد وايضا الصفوف

Google Drive حتما يوجد طريقة لكني لا اعلمها لكن يفضل بأن يكون لديك حساب في احد السيرفرات الخارجية و تحويل قاعدة البيانات الى sql server و ربطها مع الأكسس و هذه ايسر الطرق و اسهلها و اسرعها و اكثر أماناً

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

بارك الله فيك يا غالي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم DoCmd.OpenReport "EMPDEVMENU", acViewPreview, , myCriteria Test_It1.rar تحياتي

مشكلة عدم جمع الوقت سببها اختلاف القيمة في الخلية عن قيمة الوقت لذلك يجب إولا إصلاح قيمة الخلية بهذا الاجراء Sub mas() For n = 2 To Cells(Rows.Count, 4).End(xlUp).Row Cells(n, 4).Value = Cells(n, 4).Text Next n End Sub ستجد بعدها خلية المجموع تعمل وللحصول على الإجمالي بالدقائق يمكنك تغيير تنسيق الخلية I2 إلى عام وكتابة المعادلة التالية =INT(SUM(D2:D233)*24*60) بالتوفيق

دعنا نفترض إذا كان الصف الذي يخبر ان العمود فارغ هو الصف الأول وعدد الاعمدة 10 يمكنك استدعاء هذا الكود قبل الطباعة Sub hideblank() For n = 1 To 10 If Cells(1, n) = "" Then Columns(n).Hidden = True Next n End Sub وهذا الكود لإظهار الأعمدة المخفية Sub showblank() For n = 1 To 10 If Columns(n).Hidden Then Columns(n).Hidden = False Next n End Sub بالتوفيق

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

ربما لأنك كتبت الشرط على سطرين يجب جعل السطرين باللون الأحمر في سطر واحد

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

هذه الميزة جميلة لكنها تنطق عند حدوث تغيير في كل مكان وهذا مذعج جدا الكود يحدد الخلايا التي ينطقها البرنامج مثلا إذا أردنا نطق أي تعديل في خلايا العمود A نستعمل الكود التالي في حدث عن التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Dim v As Object Set v = CreateObject("SAPI.SpVoice") v.Speak Target.Text Set v = Nothing End If End Sub وأعمل حاليا على كود ينطق باللغة العربية ولكنه يحتاج إلى اتصال بالانترنت إن شاء الله أعرضه فيما بعد بالتوفيق

حل مؤقت ، هناك رقم في الكود 200 ، بدل به بالزيادة أو النقصان حتى يتناسب مع جهازك. أنا كنت عامل دراسة على التحويلات وطبقته على أحد برامجي ولكن أحتاج أبحث عنه. Hawiii_Data_02.accdb

'طبعاً كما أخبرك استاذ محمد ... وهذا فيديو للشرح , طبعاً بع اذن استاذنا الكبير محمد صالح

هل جميع هذه الملفات مختلفة عن بعضها ؟؟؟

تفضل هذا المثال و هو عبارة عن حفظ معلومات تسجيل الدخول بإستخدام ملف خارجي ادخل اي معلومات النموذج للمثال فقط ليس مرتبط بأي جدول بعد ملئ جميع الحقول و اختيار حفظ معلومات الدخول ستظهر لك رسالة بهذا الشكل بعدها ستجد بجوار قاعدة البيانات ملف بهذا الشكل شكل الملف من الداخل المعلومات مشفرة بإستخدام التشفير لكن الفكرة انه عند اغلاق النموذج و اعادة فتحه ستجد بأنه تم جلب البيانات للحقول Database2.mdb

هل عندك ملفات اخرى مختلفة عن هذه لأني راح اعدلك الكود ما يحتاج

أ.HussienAlkinani هل هذا هو المقصودالبرنامج.accdb