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

بعد إذن الاستاذ الفاضل أبو خليل يمكن كتابة الكود كما يلي ليظهر لك المربع الحواري يسالك عن المكان الذي تريد حفظ الملف فيه DoCmd.OutputTo acOutputReport, "repClass", acFormatXLS, "", True, , , acExportQualityPrint كما يمكن استخدام الجدول مباشر أو استعلام للحصول على نفس النتيجة فيمكن استخدام الجدول نفسه لحفظه او تصديره إلى اكسيل 2007-2013 بالكود التالي DoCmd.OutputTo acOutputTable, "tblclass", "ExcelWorkbook(*.xlsx)", "", True, "", , acExportQualityPrint أو DoCmd.OutputTo acOutputTable, "tblclass", acFormatXLSX, "", True, , , acExportQualityPrint أو استخدام الكود التالي للحفظ إلى اكسيل 2003 DoCmd.OutputTo acOutputTable, "tblclass", "MicrosoftExcelBiff8(*.xls)", "", True, "", , acExportQualityPrint اما اذا اردت استخدام استعلام فقط استبدل acOutputTable بــــ acOutputQuery مع كتابة اسم الاستعلام بدلان من اسم الجدول

السلام عليكم أساتذتى وإخوانى وأحبابى فى المنتدى :- ******************************************** مع كل شىء جديد فى الأكسل أصل إليه أحب أن أقدمه للمنتدى الذى تعلمت منه وفيه كرد للجميل الذى وهبنى إياه من قبل باختصار لو عندى 3 ملفات اكسل ( أ و ب و ج ) نقدر ننقل بيانات من ( أ ) إلى ( ج ) بدون فتح ( أ ) ولا فتح (ج ) ( انجليزى ده يا مرسى ؟؟؟؟ ) لأ مش انجليزى ولا ألمانى ولا حتى يابانى أو أمريكانى إنما هو مصرى خالص ووصعيدى كمان والمرفق التالى يوضح ذلك . طريقة التعامل مع المرفق : فك الضغط عن المرفق هتلاقى 3 ملفات mokhtar1 و mokhtar2 و mokhtar3 1- افتح mokhtar1 واكتب ما يبدو لك فى المدى المحدد ( A1 : C5 ) واقفله 2- رووووح على mokhtar2 فقط اضغط الزر " اقفل يا سمسم " 3- اجرى بسرعة على mokhtar3 وشوف النتيجة . الشرح والأكواد فى المرفق 123 كلمة سر الفيجوال بيسك . أكتفى بهذا الموجز وعلى حضرتك اكتشاف المزيد فى الملف . تحياتى لأساتذتى وزملائى copy data from a closed excel file & paste it in a closed excel file by mokhtar.rar

الحب في الله تعالى أوثق عرى الإيمان وهو منحة من الله لا يشترى بالمال . قال تعالى في بيان فضله على عباده المتحابين ( وَأَلَّفَ بَيْنَ قُلُوبِهِمْ لَوْ أَنفَقْتَ مَا فِي الأَرْضِ جَمِيعًا مَّا أَلَّفَتْ بَيْنَ قُلُوبِهِمْ وَلَكِنَّ اللهَ أَلَّفَ بَيْنَهُمْ إِنَّهُ عَزِيزٌ حَكِيمٌ ) . و قد جعل الله الحب في الله سببا للنجاة من النار و دخول الجنة ، ففي الحديث الصحيح المتفق عليه في السبعة الذين يظلهم الله تحت ظله ، منهم ( رجلان تحابا في الله ، اجتمعا عليه ، و تفرقا عليه ) المحبة في الله نعمة من الله ، فقد الأحبة في الله غربة ، والتواصل معهم أنس ومسرة ، هم للعين قرة ، فسلام على من دام في القلب ذكراهم ، وإن غابوا عن العين قلنا يا رب احفظهم وارعاهم . لا يوجد متسع للكلام ، أحبكم في الله جمعياً اخي في الله المبدع أ/ شوقي ربيع وثمرة التعاون المثمر بأذن الله بيننا ، نأتي من جديد في سلسة برامج ضاحي وشوقي الخدمية ، لتيسير ما امكن علي اخواننا , نفعنا الله واياكم بما علمنا ولا تنسونا بدعوة بصلاح الحال بظهر الغيب . كلمة مرور الأدمن admin VBA Password 6626 فورم تعديل / اضافة صلاحيات المستخدمين البرنامج بالمرفقات Multi User Form Permissions Management.rar

زملائى بالمنتدى العزيز على قلبى مما لا شك فيه ان موضوع إيجاد الفرق بين تاريخين او طرح تاريخين يهم الكثير من مستخدمى الاكسيل لذالك اقدم لكم شرح مبسط لداله DateDif تستخدم هذه الدالة فى إيجاد الفرق بين تاريخين او طرح تاريخين شكل الدالة يكون كالتالى DATEDIF(Date1, Date2, Interval) شرح الداله الداله هى DateDif وتتكون من 3 أجزاء Date1 هو تاريخ الاقدم Date2 هو تاريخ الاحدث Interval وهو نوع النتيجة المطلوبه انواع Interval كما بالصورة واليكم تطبيقات عمليه بالصور للداله مثال 1 لدينا تاريخ بالخلية A1 وهو 2010/08/05 تاريخ الميلاد (مثلا) وتاريخ بالخلية B1 وهو 2014/12/08 تاريخ اليوم (مثلا) ونريد كم فرق السنوات بين تاريخين ( اى كم عمر الطفل بالسنوات عند هذا التاريخ) نكتب بالخلية C1 الداله التالية =DATEDIF(A1;B1;"y") نلاحظ هنا اننا استخدمنا حرف Y وهو اختصار لـ Year ونلاحظ ايضا انها مكتوبة بين علامتين تنصيص " " ويكون ناتج المعادله وهو 4 سنوات كما بالصورة مثال 2 اذا اردنا حساب الفرق بالشهور نغيير Y الى M وهو اختصار month وتكون المعادله كالتالى =DATEDIF(A2;B2;"m") ويكون النتيجة هى 52 شهر كما هو موضح بالصورة . مثال 3 اذا اردنا حساب الفرق بالشهور نغيير m الى D وهو اختصار Day وتكون المعادله كالتالى =DATEDIF(A2;B2;"d") ويكون النتيجة هى 1586 يوم كما هو موضح بالصورة مثال 4 اذا اردنا حساب الفرق بين التاريخين كم سنة وكم شهر وكم يوم بفرض ان التاريخين بالمثال الاول بالخلية A2 والخلية B2 وتكون المعادله كالتالى نضع بالخلية C2 المعادله التالية =DATEDIF(A2;B2;"y") ونضع بالخلية D2 المعادله التالية =DATEDIF(A2;B2;"ym") ونضع بالخلية E2 المعادله التالية =DATEDIF(A2;B2;"md") ونلاحظ النتيجة كما هو موضوح بالصورة اتمنى ان اكون وفقت بالشرح وان شاء الله سوف اجهز المزيد من الامثله العملية والمصحوبه بالصور تقبلوا منى وافر الاحترام والتقدير

أرفق لحضراتكم ملف به التالي تصدير الجداول او التقارير إلى اكسيل أو pdf استيراد بيانات من اكسيل بشرط نفس الترتيب للأعمدة ونفس المسميات للأعمدة إلى جدول في اكسيس مع حذف البيانات القديمة الموجودة به Private Sub Command7_Click() On Error GoTo Err_Command7_Click Dim Filepath As String Filepath = CurrentProject.Path & "\StudentData.xlsx" DoCmd.SetWarnings False DoCmd.OpenQuery "Query1", acViewNormal, acReadOnly DoCmd.TransferSpreadsheet acImport, , "Table1", Filepath, True Exit_Command7_Click: Exit Sub Err_Command7_Click: MsgBox "the file not exist" Resume Exit_Command7_Click DoCmd.SetWarnings True End Sub إذا اردت ان تعمل عملية اضافة فقط مع ابقاء البيانات القديمة احذف السطر التالي من الكود DoCmd.OpenQuery "Query1", acViewNormal, acReadOnly ارجو ان يكون مفيد الرابط التالي على ميديا فير اضغط هنا

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

عشرة على عشرة = واحد صحيح .. والعشرة متهونش غير على ولاد الحرام ..ربنا يكفينا شرهم .. تقبل تحياتي :fff:

مية مية (يبقا أكيد بتمطر عندك ..وشكلها هتغرق) الحمد لله الذي بنعمته تتم الصالحات ونعتذر عن التأخر في المساعدة ..المشاغل كثيرة ..أخي مصطفى أبو العنين

السلام عليكم ورحمة الله تعالى وبركاته بعد كل الشكر والتقدير والاجلال لكل اساتذتى الذين تعلمت على يديهم فى هذا الصرح الشامخ الاستاذ الكريم ابو الآء ردا على سؤالكم الاتى: وهل من الممكن تصدير التقارير مباشره الى بي دى اف او صور نعم اخى الحبيب ممكن ذلك وارفق لكم مثال مفتوح متعدد التصدير بصيغ متعدده كما يحتوى المثال ايضا على لوحة تحكم بصلاحيات مستخدمين بسيطه على قدر فهمى الضئيل لان هذا الموضوع اتعبنى جدا ويحتوى المثال على وحدة نمطية لاخفاء اطار الاكسس برجاء مراعاة اختيار اسم الدخول برقم الدخول المبين بجوار كل اسم فى شاشة الدخول كل الاسماء لها صلاحية الزر الاول فقط بينما اسير الشروق من صلاحياته تفعيل كل الازرار ☺ واسماء الدخول كالاتى للتأكيد منتظر ردودكم اسم الدخول الباسورد أبـوخليل 1 ابو الآء 2 علي المصري 3 محمدعوض 4 اسير الشروق 5 ولما واجهته من خطأ أثناء رفع الملف على المنتدى فى المرفقات officena.rar تم إلغاء عملية الرفع (خطأ402) قمت برفع المرفق على موقع ميديا فاير رابط التحميل من ميديا فاير كل الشكر والتقدير مرة اخرى لكل استاذتى الذين تعلمت منهم وعلى يديهم فى هذا الصرح الشامخ فلهم كل الفضل بعد رب العزة سبحانه وتعالى فيما وصلت اليه الان فسبحان الله الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله والحمد الله الذى تتم بنعمته الصالحات

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

ربنا يخليك يا استاذنا الفضل وجزاكم الله كل خير مية مية الله ينور عليك

فين الجدول ؟ يبدو أن إرفاق الملفات لا يعمل .. جربت من شوية إرفاق ملف ولم يعمل معي ... وبعدين ايه حكايتك مع الجداول المتحركة ..أنا حاسس إن الموضوع بقا في بحر الرمال العظيم

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

اخي عبد الله بولنوار رائع والف شكر على شرح

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

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

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

السلام عليكم ورحمة الله تعالى وبركاته بعد كل الشكر والتقدير والاجلال لكل اساتذتى الذين تعلمت على يديهم فى هذا الصرح الشامخ الاستاذ الكريم ابو الآء ردا على سؤالكم الاتى: وهل من الممكن تصدير التقارير مباشره الى بي دى اف او صور نعم اخى الحبيب ممكن ذلك وارفق لكم مثال مفتوح متعدد التصدير بصيغ متعدده كما يحتوى المثال ايضا على لوحة تحكم بصلاحيات مستخدمين بسيطه على قدر فهمى الضئيل لان هذا الموضوع اتعبنى جدا ويحتوى المثال على وحدة نمطية لاخفاء اطار الاكسس برجاء مراعاة اختيار اسم الدخول برقم الدخول المبين بجوار كل اسم فى شاشة الدخول كل الاسماء لها صلاحية الزر الاول فقط بينما اسير الشروق من صلاحياته تفعيل كل الازرار ☺ واسماء الدخول كالاتى للتأكيد منتظر ردودكم اسم الدخول الباسورد أبـوخليل 1 ابو الآء 2 علي المصري 3 محمدعوض 4 اسير الشروق 5 ولما واجهته من خطأ أثناء رفع الملف على المنتدى فى المرفقات officena.rar تم إلغاء عملية الرفع (خطأ402) قمت برفع المرفق على موقع ميديا فاير رابط التحميل من ميديا فاير كل الشكر والتقدير مرة اخرى لكل استاذتى الذين تعلمت منهم وعلى يديهم فى هذا الصرح الشامخ فلهم كل الفضل بعد رب العزة سبحانه وتعالى فيما وصلت اليه الان فسبحان الله الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله والحمد الله الذى تتم بنعمته الصالحات officena.rar

تفضل تم التعديل حسب الطلب ملحوظة : انظر تم حذف كافة الكائنات الزائدة في مثالك ( يجب ان تكون الامثلة مختصرة ) عذرا : يوجد لدي مشكلة في رفع الملفات

السلام عليكم اعتقد هذا ما طلبت بالتوفيق http://www.gulfup.com/?OZ0qYh

أخي الغالي إبراهيم أنا فعلاً لا أستسلم وأحاول دائما قدر الإمكان ...ولكن هذا في حالة عدم وجود حل ، أما إذا وجد الحل وكان حلاً مرضياً ..فيعتبر الأمر انتهى .. أليست الطريقة الخامسة فعالة بالفعل ؟ وتؤدي الغرض بالنسبة لك؟ أراها معادلة ممتازة أخي إبراهيم عموماً جرب المعادلة التالية في F3 =SUM(INDEX($A$2:$C$2,1,D3),SUMPRODUCT(($D$3:$D3=D3)*(E$3:E3)))

تفضل invoices.rar

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

كل شي ممكن بحول الله ولكن احببت ان اريك كيفية اخراج بعض الاحصاءات عن طريق استعلامات الجدولية انظر الاستعلامين والتقرير في المرفق student2.rar

شكرا جزيلا يااستاذ ياسر ربنا يبارك فى عمرك ويوفقك ويرزقك ويعينك

تفضل أخي الكريم الملف التالي Transfer Data According To Date.rar

وعليكم السلام عليكم ورحمة الله وبركاته هلا ماجد جرب جميع الازرار في المرفق LISTBOX.zip

تفضل أخي الكريم المرفق التالي يمكنك في الكود تغيير مسار الملفات ، وتغيير النطاق المراد نسخه في كل الملفات يتم نسخ النطاق المراد بشكل أفقي كما أرفقت في مثالك Merge Files.rar

شرح Data Validation مع التوضيح بالمعادلات فى برنامج الاكسل 2010 http://www.up-00.com/?QxSQ

أخي الكريم ادخل الى الجدول في طريقة عرض التصميم ثانيا اختر الخاصية requred = yes للحقل المطلوب و اذا لم تتضح لك الطريقة ارسل مرفقا

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