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

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. بعد نزع خاصية انشاء شريط القوائم بالأكسس في النسخ بعد 2003 أصبح هناك عائق كبير في إضافة هذه الأشرطة و لأنه يتوجب عليك العمل على ملف 2003 أو استعمال Ribbon بلغة Html و هي أصعب من الفكرة الأولى. مما جعلني أفكر في طريقة تجعلنا نستغني عن هذه الطرق المرهقة بعض الشيء. و قمت بتصميم برنامج يستطيع أن يضيف شريط قوائم للنموذج الرئيسي لقاعدة البيانات مهما كانت نسختها 2003 أو النسخ التي تأتي بعدها. نبدأ على بركة الله في شرح البرنامج: بعد فتح البرنامج نتبع الخطوات التالية: 1 - أكتب اسم القوائم التي تريد أن تضيفها مع وضع رقم كل قائمة بالترتيب (1,2,3,....و هكذا) 2- أضف العناصر أو الأوامر التي تندرج تحت كل قائمة في النموذج الفرعي رقم العنصر , تسمية العنصر ثم الكود الذي تريد أن ينفذه هذا العنصر 3- أختر قاعدة البيانات سواءا كانت 2003 أو ما بعدها ثم اختر اسم النموذج الذي تريد أن تضيف له الشريط 4- قم بالضغط على زر "إنشاء الشريط" 5- افتح قاعدة بياناتك و أنظر للشريط المضاف حتى لو كان النموذج منبثق و شاشة الأكسس مخفية سوف ترى الشريط شروط استخدام البرنامج: 1- قبل البدئ أحفظ نسخة إحتياطية من قاعدة بيانات 2- يجب أن لا يكون لديك في قاعدة بيانات نماذج بهذه الأسماء : list1,list2,list3..... و هكذا 3- يجب أن يكون حدث عن النقر للنموذج الرئيسي خال من أي كود 4-بعد الإنتهاء أدعولي و لوالدي و لعائلة بالخير و الصلاح. هذا هو البرنامج انشاء شريط قوائم.rar

نرحب بالأخ صالح حمادي فى فريق الموقع أهلا وسهلا

السلام عليكم ورحمة الله وبركاته مسقط التصفح : هو برنامج لقراءة صفحة الانترنت ، واستخراج اسماء الحقول ، لإرسال البيانات اليها من برنامج الاكسس ، او استيراد البيانات منها الى الاكسس وبما ان برمجة صفحات الانترنت تختلف من مبرمج الى آخر ، فبرنامجنا لن يشتغل على جميع الصفحات / المواقع ، وبالتجربة فقط نستطيع معرفة الصفحات التي يشتغل عليها البرنامج طريقة العمل: النموذج frm_browse يحتوي على (1) كائن Microsoft Web Browser (والذي لا يحتوي على جميع مكونات البرنامج الاصل Internet Explorer ، ولكنه يفي بالغرض) ، ندخل اسم الموقع في (2) حقل التحرير والسرد url_Address ، ثم نضغط على (3) الزر Go ، والذي سيفتح الموقع في النموذج ، وسيتم حفظ عنوان الصفحة ، واعطائة رقم مسلسل في الجدول tbl_url_address ، الزر (4) "احفظ csv" سيقرأ كائنات الموقع ، ويحفظها في ملف بصيغة csv (اللي ينفتح بالاكسل) ، ثم يفتح الملف ، وفيه 3 طرق لإرسال معلومات الى اي حقل تريد (يعني يعطيك الكود جاهز لكل حقل) ، والافضل استعمال الكود الذي في العمود "Usage2" ، حيث ليست جميع الحقول لها اسماء (للأسف في بعض المواقع) ، الزر (5) "احفظ في الجدول" ، حيث سيحفظ كائنات الموقع في جدول tbl_Send_Get في البرنامج ، والاصعب كان استخراج بيانات حقول التحرير والسرد من الصفحة ، والتي يتم حفظها في الجدول tbl_Options ، ولما يستخلص البرنامج جميع حقول الصفحة ، سيفتح النموذج frm_Send_Get ، الزر (6) "تجربة ارسال ، استيراد بيانات لهذا الموقع" يفتح نفس النموذج frm_Send_Get وبه كائنات الموقع واسماء الحقول (حسب اسمها في البرنامج وليس حسب ظهورها على الموقع ، فالموضوعين غير مرتبطين للأسف في برمجة الموقع) ، هنا نرى الحقول التي استطاع البرنامج التعامل معها ، (8) رقمها المتسلسل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (9) نوع الحقل والذي قد يختلف من صفحة الى اخرى ، (10) اسم الحقل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (يجب ادخال اي اسم في الحقول الفارغة) واذا كان الحقل عبارة عن مربع تحرير وسرد ، وللحصول على قيمه ، انقر على الاسم مرتين ، فينبثق النموذج frm_Options بالاختيارات (تابع الشرح لاحقا) ، هنا نستطيع تجربة اذا كان بإمكاننا ارسال/استرجاع بيانات الى/من الموقع ، فتختار اي حقل تريد التجربة عليه ، وتكتب المعلومة التي تريد ارسالها في الحقل (11) Send_Data وبالنقر المزدوج على المعلومة ، وسترى انه تم ادخالها في الحقل في صفحة الموقع الموقع ، ويمكن التأكد كذلك من امكانية قراءة معلومة الحقل بالنقر المزدوج على الحقل (14) Get_Data ، والمهم في هذه التجارب هو معرفة صيغة قبول الحقل للمعلومة ، بالنسبة لحقول التحرير والسرد وكما اشرت سابقا ، فالموضع يختلف قليلا ، لأنه مثل الاكسس ، فالمعلومة التي تراها في الصفحة في اختيار المعلومة من هذا الحقل ، ليس معناه انها نفس القيمة التي تُحفظ في الجدول ، لذلك يجب عليك النقر المزدوج على الحقل ref_Name ، فيعطيك قائمة الاختيار من النموذج frm_Options ، وبالنقر المزدوج على الحقل Opt_Value ستنتقل المعلومة الى الحقل في Send_Data النموذج frm_Send_Get ، والتي يمكن بالنقر المزدوج عليها ان ترسل المعلومة الى الحقل في الموقع (وهنا قد لا ترى التغير على الحقل في الموقع ، ولكن عندما تنقر عليه لتختار ، ستجد ان الاختيار قد تم حسب رغبتك) ، (12) يجب اختيار اي من الحقول التي تريد ان تستعملها من الموقع ، (13) وهنا تختار تسلسل الحقول التي تريد ارسال البيانات الى صفحة الموقع ، يعني تختار زر الارسال بعد اختيارك لبقية الحقول ، والحقول التي لا يهمك ترتيبها ، فدعها فارغة ، (12) و (13) هما اساس الخطوة التالية ، الى هنا وينتهي العمل مع صفحة الموقع ، والتي نختصرها: ادخل عنوان الصفحة (2) ، اضغط على (5) "احفظ في الجدول" ، جرب اذا الحقول تعمل ، ثم (12) تختار الحقول التي تريد التعامل معها ، و (13) ترتيبها ، الزر (7) "عمل نموذج ارسال ، استراد بيانات لهذا الموقع" ، وسيفتح النموذج frm_Make_Form للصفحة التي انت عليها الآن ، من هنا سيقوم البرنامج بعمل: عمل قاعدة بيانات جديدة (برنامج اكسس) خارجية متكاملة بالاسم والمسار الذي اخترته في (15) ، بالجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، واذا هذا البرنامج تم عمله سابقا (يعني عندك برنامجك الخاص واسمه ومساره في (15)) ، فسيقوم البرنامج بإضافة الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، نختار اين نريد ان نعمل الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، الزر (16) يقوم بكل هذا العمل ، قاعدة البيانات / البرنامج الخارجي: افتح النموذج frm_web_Sites ، فيعطيك اسماء الصفحات التي قمت بعملها في (16) ، وهذا نموذج التعامل مع صفحة الموقع ، وجميع الحقول التي اخترتها في (12) موجودة هنا ، وطريقة استخدامه: قم بتعبئة البيانات التي تريد ارسالها للموقع ، واذا كان عندك زر ارسال فيجب عمل صح عليه لإستعماله ، قم بفتح المتصفح بالضغط على الزر "Open Browser" ، والذي سيفتح المتصفح Internet Explorer خارجي ، ولا علاقة لك به ، فالكود سيتعامل معه اضغط على الزر "Send Data" ، وستكون البيانات قد تم تصديرها من نموذجك ودخلت في صفحة الموقع ، او اضغط على الزر "Get Data" ، وستكون البيانات قد تم استيرادها من صفحة الموقع الى نموذجك ، وهذا جزء من الكود الموجود في النموذج ، وسترى ان تسلسل ترتيب ارسال البيانات هو حسب الاختيار في (13) ، وغالبا (99% من الوقت) لن تحتاج الى عمل تغيير في الكود: . الزر (16) فيه تُحف فنية ، فلا تتردد من الدخول في الكود والغوص فيه والخروج بلآلئ فريدة جعفر Muscat_Browsing.zip

اتفضل رقم سري هو 212 حماية سجل معين.rar

شكرا جزيلا لك استاذ محمد يستاهل الترقية ، والله ان شاء الله يعينه على المسؤولية جعفر

بالنسبة للمطلوب الاول اعتقد انه لا توجد مشكلة في تشغيل ملفات ACCDE على اصدارات 2007 او 2010 ولكن المشكلة هي تصميم برنامج باستخدام 32bit وفتحة في اصدار 64bit او العكس وحل هذه المشكلة في الاجهزة التي تحتوي على اصدار 64bit استخدم PtrSafe قبل كلمة Function او يمكنك ان تضيف تضيف كود يتاكد من الاصدار ويقوم بتشغيل ال Function المناسبة مثلا #If VBA7 Then ' ...........................................................if User Have Office 64 bit Private Declare PtrSafe Function Officena (aa as string) #Else ' .................................................................. if User Have Office 32 bit Private Declare Function Officena (aa as string) #End If اما بخصوص الطلب الثاني قم بتقسيم قاعدة البيانات وفصلها عن النماذج والاستعلامات والتقارير وبالتالي فان الجداول ستكون في ملف منفصل تماما عن بقية المكونات وتستطيع التحديث كما تشاء في البرنامج وبدون التاثير على البيانات

في الفترة السابقة قمت بتطبيق هذة الفكرة للتحكم بمستويات الصلاحيات واحببت اليوم مشاركتها معكم لتعم الفائدة واستفيد من اي مقترحات وملاحظات على هذة الطريقة الفكرة: ان يتم تحديد الصلاحية لكل مستخدم ولكل نموذج او تقرير من حيث فتح النموذج او التقرير ، اضافة سجل جديد ، حذف سجل ، تعديل السجلات التطبيق : انشاء جدول للمستخدمين (رقم المستخدم ، اسم المستخدم وكلمة مرور) انشاء جدول للصلاحيات يحتوي على رقم متسلسل ، رقم الموظف، اسم الكائن ، .... وبعد ذلك اي صلاحية تريدها مثل صلاحية فتح، صلاحية تعديل، صلاحية اضافة ،صلاحية الحذف * الجداول مرتبطة ببعضها عن طريق رقم المستخدم انشاء نموذج للدخول الى البرنامج (اسم مستخدم وكلمة مرور) انشاء نموذج للتحكم بالصلاحيات مستند الى جدولي المستخدمين والصلاحيات انشاء وتعميم وظيفة لتطبيق الصلاحية عند فتح نموذج او تقرير باسم Privilege الية العمل: عند الدخول باسم مستخدم صحيح سيتم تخزين رقم المستخدم الحالي في متغير اسمة UsrID وبعد ذلك عند فتح اي نموذج او تقرير يتم استدعاء الوظيفة Privilege للتحقق من ان لهذا المستخد صلاحية فتح نموذج ام لا واذا كان لا فانه ستظهر رسالة بانه لا يملك الصلاحيات ، كما سيتم قبل ان يفتح النموذج ثم سيتم التحقق من ان له صلاحية التعديل ام لا وعندها سيتم تفعيل التعديل او تعطيله حسب الصلاحية ...وهكذا طريقة تعديل واضافة الصلاحيات: تم اضافة نموذج للتحكم بالصلاحيات يتم من خلاله تحديد اسم المستخدم وتحديد اسم النموذج ثم يتم اختيار صلاحيات هذا المستخدم على هذا النموذج وبخصوص قائمة النماذج والتقارير تم استخدام جدول النظام MSysObjects فيديو يوضح الطريقة https://youtu.be/AmfpDgLWUBg الصلاحيات حسب المستخدم و نوع الكائن .rar

وعليكم السلام ورحمة الله وبركاته الأخ الكريم / mohamed elforse يمكنك إضافة المعادلتين فى تعريف الأسم c_in و c_out بالترتيب =OFFSET(Sheet1!$C$6:$C$1020;0;0;COUNTA(Sheet1!$A$6:$A$1020);1) =OFFSET(Sheet1!$d$6:$d$1020;0;0;COUNTA(Sheet1!$A$6:$A$1020);1) وهذا الملف مطبق به المعادلات ولكن بأسماء مختلفة وهى cc_in و cc_out أرجوا أن يكون هو المطلوب تقبل تحياتى ahmed 1.rar

مثالك الاخير هو الذي شرح لنا المطلوب 1. نعمل استعلاملنتائج الجدولين Customer و Denomination ، واستعلام آخر لنتائج الجدولين Customer و Deposit ، ولغرض الخطوة التالية (استعلام توحيد) ، فيجب ان تكون عدد الحقول نفسها في الاستعلامين ، وبنفس الترتيب: . ونتائجهم هي كما نريد: . ثم نحول وضع الاستعلامين الى SQL ، ثم نعمل استعلام توحيد ، وننسخ SQL الاستعلام الاول الى استعلام التوحيد ، ثم جملة Union All ثم ننسخ SQL الاستعلام الثاني: . ونتيجة الاستعلام: . الآن نعمل استعلام جديد ، ومصدره استعلام التوحيد اعلاه ، ويجب استعمال زر النموذج لتشغيل الاستعلام ، كما ان الاستعلام سيأخذ التاريخ من النموذج كذلك ، والاستعلام ينادي الوحدة النمطية Bal ، والتي سيأخذ نتائجه منها: . وكود زر فتح الاستعلام هو (لاحظ انه نريد ان نبدأ متغير الجمع B من الصفر) : Private Sub cmd_qry_Cust_Deno_Depo_Click() B = 0 DoCmd.OpenQuery "qry_Balance" End Sub . وهذه نتيجة الاستعلام: . وهذه هي الوحدة النمطية: Public B As Long Function Bal(C, D) 'C = Cash 'D = Depo C = Replace(C, "-", 0) D = Replace(D, "-", 0) B = C + B - D Bal = B End Function . الباقي الذي تريده ، يجب ان تعمله في التقرير جعفر 597.Test.accdb.zip

الله يحميك من علمني حرفاً ملكني عبدا.... ( علي بن ابي طالب ) ( ر.ض )

وإياك أخي الكريم حسين ، وشكرا وبالتوفيق إن شاء الله تعالى.

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

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

اعطني مثال باسماء الحقول وبالارقام من برنامجك ، واخبرني كيف يجب ان يظهر الاستعلام جعفر

تفضل: 1. 2. وقم بإضافة بقية الحقول . جعفر هذا موضوع آخر !! يعني تستطيع عمل الاستعلام ، ولكن لا توجد سجلات فيه !! طبعا لن تحصل على سجلات ، لأنه لا يوجد رقم متحد بين الجداول الثلاث!! جرب التالي: في الجدول Deposit ، غيّر القيمة الاولى من 73 الى 68 ، ثم جرب الاستعلام ، فسترى سجلا واحدا . جعفر

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

مبارك وعقبال مائة سنة - فى طاعة الله

اعمله بالطريقة اليدوية كما شرحت لك

يعني تريد حژف الريكورد من الجدول اذا رفعت علامة صح على المربع ؟ صحيح هسة راح اعمل وارفقه جرب هذا اذا ما كان هذا هو المطلوب غدا راح نلتقي من جديد ان شاء الله دالة شرطية.rar

وعليكم السلام بالنسبة الى (1) ، فاعمب استعلام ، واسحب الجداول الثلاث فيه ، واختر حقول الجداول ، ويصير عندك الاستعلام ، شو المشكلة اللي عندك؟ جعفر

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

شوف هل هذا ما تريد او اغير شي دالة شرطية.rar

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

جرب هذه المعادلة قي الخلية C6 واسحب نزولاً =IF(AND(B6<>"",(COUNTIF($B$6:B6,B6)=1)),VLOOKUP(B6,Sheet1!$B$6:$C$10,2,0),"") يمكن ان يكون الحل هنا Numbers salim.rar

شكرا جزيلا لكم جميعا و بارك الله بكم و بأعمالكم إن شاء الله

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

السلام عليكم تفضل المرفق عله المطلوب search+33333_3.rar

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

الف الف مبروك اخوي صالح حمادي

السلام عليكم ورحمة الله تعالى وبركاته اخباركم ايه ... عسى ان تكون على ما يرام ندخل الى الموضوع بسم الله الرحمن الرحيم كنت قد انشأت هذا الموضوع من قبل وهو عن كيفية تثبيت البرامج المصنعة بالاكسس داخل نظام التشغيل ويندوز فى الحقيقة كان الموضوع شيقا الى ان سالنى احد الاخوة كيف يمكن تطبيق ذلك على برامجى فجاوبته بان يقوم بنسخ تلك النماذج باكاوادها واضافة لمساتها الفنيه عليها على حسب ما يحلو لك ثم وضعها داخل برنامجك ومحاولة توفيق الاكواد لتعمل بالشكل المطلوب فى الواقع كان الوضع صعبا واحتمال وجود اخطاء فى ذلك بنسب كبيرة ففكرت كثيرا كيف يمكن انشاء معالج لتركيب نظام التثبيت هذا على اى برنامج اكسس دون الحاجة الى النسخ واللصق فجائت الفكرة الى انشاء ذلك المعالج مع اضافة بعض اللمسات وبعض الخيارات التى قد تفيد اى مبرمج مثلا امكانيه جعل البرنامج ينشئ اكثر من مجلد اثناء التثبيت امكانية حفظ ملفات داخل البرنامج مثلا الايقونات وملفات dll واى شء اخر وحتى قواعد اخرى داخل البرنامج لاستخرجها اثناء التثبيت والاهم من كل هذا هو انه يمكنك تصميم نماذج التثبيت بالشكل الذى تريده ثم استخدامها من قبل المعالج لتركبيها على برنامج والتثبيت من خلالها وعلى هذا الاساس قمت بانشاء صفحة خاصة للبرنامج على فيس بوك تستطيع من خلالها تنزيل قوالب تثبيت خاصة ببرنامج هذا هو الرابط https://www.facebook.com/A2P-1140671855968254/photos/ والان مع شرح البرنامج =================== 1 ) ---------------------- اولا وقبل كل شئ اسمى ههههههه ثانيا والاهم هو البروجرس بار البروجرس بار هذا غير متوفر فى اكسس ثم انى خفت من اخطاء عناصر Activex لو قمت بادراج بروجرس بار فقمت بتصمميم هذا الشريط التفاعلى ليكون لمسة فنية رائعة اتمنى ان تعجبكم من خلال هذا البروجرس اقوم بانشاء جداول التثبيت المؤقت الذى تساعدنى فى التثبيت 2 ) --------------------------- الشروط والاحكام الاهم هنا هو الاسمايلى (الوجه الضاحك ) الذى قمت باستبدال Chekbox به اتمنى ان تستمتعوا 3 ) ------------------- اختيار قاعدة البيانات التى تريد تركيب معالج التثبيت لها 4) ------------------------------ خطوة الفنانين قمت بتفعيل ميزة التصميم لتمكنك من تصميم نماذج التثبيت بنفسك واضافتك لمساتك الفنية عليها او يمكنك تنزيل قوالب التثبيت الخاصة بك من صفحة البرنامج عن طريق رابط التحميل المدرج فى هذا النموذج 5) -------------------------- مرجلة فحص نماذج التثبيت تذكر انه لا يمكنك ادراج اى اكواد داخل نماذج التثبيت التى قمت بتصميمها تذكر انه لا يمكنك تغيير اى من مسمياتها اذا وجد اى خطأ بها سيرفضها البرنامج 6 ) ------------------------ 7 ) -------------------------------------- 8 ) -------------------------- التعريف بالبرنامج الخاص بك وادراج الملفات التى تحتاجه عند التثبيت ليقوم البرنامج باستخراجها اثناء التثبيت فى نفس مجلد التثبيت واخد بالك انت من chekbox دى ههههههههههههه 9 ) ------------------------ تفعيل اكواد التفعيل شفت ال chekbox هههههههههههه سارقها من موبايلات سامسونج هههههههه اسم المجلد الذى سيتم التثبيت فيه اسم البرنامج الذى سيظهر فى قائمة ابدأ واختصار سطح المكتب مسار الحفظ وهو المسار الذى سيتم حفظ البرنامج فيه بعد تركيب المعالج له نماذج التثبيت 10) --------------- الشروط والاحكام الذى سيوافقع عليها المستخدم لاتماام التثبيت قد تحتاج من برنامجك اثناء التثبيت انشاء مجلدات اضافية قم بتفعيل الخاصية وكتابة اسماء المجلدات مع مراعات الرموز الذى لا يجب استخدامها فى اسماء المجلدات 11) ------------------------ مرحلة التثبيت والان مع البرنامج البرنامج حتى الان لنسخ اوفيس فوق 2003 فى انتظار ارائكم

جرب مرفق المشاركة الثانية

اعتذر منك استاذ جعفر للتدخل حسب فهمي لسؤالك تكدر بيكون كلا من جدولين الموظفين و المتقاعدين بها حقل برقم تلقائي وتكدر تعمل استعلام اضافة بدون حقل رقم تلقائي وحذف الريكورد بعدين في كلا الحالتين واذا تريدي ارفع قاعدة بياناتك لنتم العملية عليه

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

بدل كودك بهذا If Me.PTetatCivil.Value = "مفوض الحالة المدنية" Then Me.DelegationSainiture = True Me.AgentGuechi = False Me.Reporte_Title = Me.PTetatCivil.Value Else Me.AgentGuechi = True Me.DelegationSainiture = False Me.Reporte_Title = Me.PTetatCivil.Value End If

وعليكم السلام لا يوجد مشكلة ، ولكن هذا سيحل مشكلتك مؤقتا ، وستظهر المشكلة لاحقا مرة ثانية ظاهرا مشكلتك في العلاقات جعفر

في السابق انا قلت لك تريد على اي جدول وما كان بين جداولك علاقة عملت استعلام اخر وعملت عليها تقرير اخر شوف جربها ووافيني بالنتيجة بين تاريخين ورقم السجل (1) (2).rar

جرب هذه المعادلة قي الخلية C6 واسحب نزولاً =IF(AND(B6<>"",(COUNTIF($B$6:B6,B6)=1)),VLOOKUP(B6,Sheet1!$B$6:$C$10,2,0),"")

وعليكم السلام غفران ماشاءالله تبارك الرحمن ، هدية جميلة شكرا لك جعفر

ارجو اغلاق الموضوع <<<< حليت المشكلة استعلام s: Format([_date];"mm") مع الشكر

استاذ / سليم حاصبيا والله انتا باشا

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

أخي الكريم أبو سلمان أليس هذا الموضوع طرح من قبل ووجدت الحل؟ لا أتذكر .. ولكن أعتقد أن الأمر تم من قبل إذا كان الأمر كذلك يرجى إرفاق الحلول التي جربتها لنتأكد من صحة المخرجات جرب تحديد العمود الذي يحتوي على التواريخ ، ثم من التبويب Data ستجد أمر اسمه Text to Columns انقر عليه ثم انقر finish تقبل تحياتي

تمام .. مظبوط و اشتغلت شكرا لك أخى الكريم و جزاك الله كل الخير و بارك فيك

وداعاً لدمج الخلايا موضوع دمج الخلايا من المواضيع المهمة و التي يجب التعامل معها بنوع من الحذر و الحيطة, و ذلك لمى تسببه عملية دمج الخلايا من مشاكل خصوصاً إذا تم إستخدامها داخل قواعد البيانات في الإكسيل. و موضوعنا هنا يتوجب علينا التقليل من إستخدامها أو إستخدام البديل الذي سنعرضه الآن, فعلى سبيل المثال لدينا البيانات التالية عند إستخدام دمج الخلايا في المثال أعلاه يكون الهدف من هذه العملية إمتداد الإسم احمد من الخلية B1الى الخلية D1ليظهر بالشكل التالي : و لكن هنا إستخدمنا عملية الدمج بحيث أصبحت الثلاث خلايا خلية واحدة, و سوف نقوم بتطبيق الخطوات التالية للحصول على نفس النتيجة و لكن بدون إستخدام الدمج , و علمل ذلك سنتبع الخطوات التالية : سنقوم بتحديد الخلايا التي نرغب بوضعها تحت اسم احمد. . نقوم بفتح تنسيق الخلايا Format Cells, رايت كليك و نختتار تنسيق الخلايا . . من التاب الثانيAlignment و من ضمن خيارات Horizontalنختار من القائمة المنسدلة Center Across Selection نضغط OK و ستكون النتيجة بالشكل التالي : 3. و نكرر نفس العملية على باقي أسماء الموظفين. و بذلك نكون قد حصلنا على ما نريده و بما يتوافق مع طبيعة الإكسيل و آلية عمله . دمتم في حفظ الله يحيى حسين http://yahyahussien.blogspot.com.eg/2014/10/blog-post.html

أخي العزيز / أسامة أبو عمر السبب هو أن الامتدادات في نطاقات المعادلة قصيرة إلى (100) صف فقط والبيانات عندك تجاوزت تلك الامتدادات هذه المعادلة بعد جعل الامتدادات إلى (10000) =IF(SUMPRODUCT(--($A$2:$A2=A2)*($B$2:B2=B2))>1;"";IF(SUMPRODUCT(--($A$2:$A$10000=A2)*($B$2:$B$10000=B2)*($D$2:$D$10000="غياب"))/SUMPRODUCT(--($A$2:$A$10000=A2)*($B$2:$B$10000=B2))>=50%;"غائب";"حاضر")) StaffAttendance (3).rar

هذا تعديل حسب طريقتك استاذ صالح For i = 1 To xm.CurrentProject.AllForms.Count salah.AddItem xm.CurrentProject.AllForms(i - 1).Name تحياتي

يسعدني اكون اول من يعلق على الموضوع ورغم اني لم اطلع على الامثلة .. من الشرح الوافي والصور المصاحبة اقول : الابداع ليس له حدود .. قد ينبع من اللا وجود شكرا ايها السيد , زادك الله علما ورفعة

السلام عليكم اخي الكريم دائما احرص على اضافه نموزج ولو مصغر تشرح فيه طلبك لكى يتضح الامر تماما فحضرتك زكرت انك تريد مجموع اكبر 6 قيم في الصف ثم تريد متوسط اكبر 6 قيم هل المتوسط لقيم في صف اخر ام المتوسط لنفس هذه القيم المجموعة ؟؟؟ عموما استخدم المعادله التاليه للجمع =SUMPRODUCT(LARGE($A$1:$A$12,ROW(1:6))) وبالنسبه للمتوسط لو لنفس القيم السابقه اقسم ناتج المعادله / 6 اما لو لغير هذه القيم استخدم المعادله التاليه ولكن هذه صفيف بعد وضعها بالخليه يضغط Ctrl + Shift + Enter وليس Enter فقط =AVERAGE(LARGE($A$1:$A$12,ROW(1:6))) تقبل تحياتي

وجدت طريقة اسهل .. اولاً الغي جميع ماسبق من خطوات واستخدمي فقط هذا الكود فيحدث "عند النقر" لزر ضغط واصلاح القاعدة واخبرينا بالنتيجة If MsgBox("هل ترغب في ضغط واصلاح بيانات القاعدة قبل إغلاقها" & vbCrLf & _ "اضغط على (لا) لإلغاء العملية . اضغط على (نعم) لضغط البيانات ", _ vbInformation + vbMsgBoxRight + vbYesNo + vbDefaultButton1, _ "تنبيه : رسالة تأكيد ضغط قاعدة البيانات واصلاحها") = vbYes Then Application.SetOption "Auto compact", True End If DoCmd.Quit

السلام عليكم اخى العزيز كل عام وحضرتك بخير اتمنى ان يكون هذا هو المطلوب بمجرد الكتابة فى الخلية B سيظهر الرقم تلقائيا =IF(B3="";"";ROW()-3+$A$1) مرفق الملف بعد التعديل ABC.rar