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

وعليكم السلام-تفضل قوائم.xlsm

تفضل لقد أضفت زرا آخر يقوم بإختبار حالة القاعدة هل هي مفتوحة أم مغلقة التحكم في نماذج قاعدة بيانات خارجية.accdb

بالتوفيق اهم شي انه نجح وهو الاهم

الله يعطيك الصحه استاذي الفاضل بارك الله فيك اولا اشكرك على سعه صدرك وصدر الاستاذ ابو ياسين وتحملكم لنا ثانيا سمحونا لقد وجدت المشكله اعتقد انه كان تلف بالقاعده غير واضح ولكن اجريت محاوله والحمدلله نجحت هي الاتي حذف الجدوال بالقاعده B واستوردت الجدول من القاعده A بطريقه الربط لانها مقسمه ثم عملت ضغط واصلاح الحمدلله طلعت الناتئج صحيحه اشكركم من كل قلبي استاتدتي الافاضل بارك الله فيكم وزادكم الله علما

ومرفق مثال اخى واستاذى ابو ياسين وبه 55296 سجل فى انتظارك بعد التجربه SumPages_Mr_AboYasin.rar

السلام عليكم استعمل لذلك الدالة OFFSET -مثلا- (أو DECALER بالفرنسية) في معادلة نطاق الطباعة... وفي الموقع تجد الكثير من الأمثلة على ذلك... بن علية حاجي جرب المرفق لعل فيه ما تريد.... تم تسمية نطاق البيانات في ورقة "تأخير" بالتسمية Plage ثم إرفاق هذه التسمية بنطاق الطباعة لهذا الشيت.... بن علية حاجي برنامج ايجار.xlsm

السلام عليكم تم عمل المطلوب في ملف واحد مع التعديل في كل ورقة (بعض التصحيحات والتنسيقات) مع إضافة المعادلات اللازمة لذلك... أرجو أن تفي الغرض المطلوب... بن علية حاجي نموذج امر العمل.xlsx

جرب هذا الكود Option Explicit Sub TAJMI3() Dim MY_SH As Worksheet, SH As Worksheet Dim r%, m%, col% m = 5 Set MY_SH = Sheets("تجميع") MY_SH.Range("B5").Resize(5000, 50).ClearContents For Each SH In Sheets If SH.Name <> MY_SH.Name Then r = SH.Cells(Rows.Count, 2).End(3).Row col = SH.Cells(5, Columns.Count).End(1).Column MY_SH.Cells(m, 2).Resize(r - 4, col).Value = _ SH.Cells(5, 2).Resize(r - 4, col).Value m = m + r - 4 End If Next الملف مرفق All_sh.xlsm

كما اشار استاذنا الحبيب احمد زمان بإمكانك استخدام التصفية او في حالة ملفك بشكلة الحالي وعدد الاسطر بالامكان استخدام هذا التعديل Sub MUTAKHEEN_ALL() Dim FS As Worksheet, TS As Worksheet Dim ER, FSN, FR, TR, A, Rw Dim Rn As Range Dim Rng As Range Set App = WorksheetFunction Set TS = Sheets("تأخير") TS.Range("A6:S500").Clear TR = 6 For FSN = 1 To Sheets.Count Set FS = Sheets(FSN) If FS.Name = TS.Name Then GoTo 9 With FS On Local Error Resume Next A = App.Match(.Name, TS.Range("J:J"), 0) If Err <> 0 Then If App.CountIf(.Range("N:N"), "<0") = 0 Then GoTo 9 Rw = TS.Cells(TS.Rows.Count, "J").End(xlUp).Row + 1 TS.Rows(2).Copy TS.Range("A" & Rw) TS.Range("A3:Q5").Copy TS.Range("A" & Rw + 1).PasteSpecial xlPasteFormats TS.Range("A" & Rw + 1).PasteSpecial xlPasteValues TS.Range("J" & Rw + 1).Value = .Name Err.Clear End If TR = App.Match(.Name, TS.Range("J:J"), 0) + 3 For FR = 5 To 999 If .Cells(FR, 14) < 0 Then For FC = 1 To 17 If Not IsNull(TS.Cells(TR, FC).Borders.Value) Then TS.Cells(TR, FC).Borders.Weight = xlThin TS.Cells(TR, FC) = .Cells(FR, FC) Next FC TS.Cells(TR, 19) = .Name TR = TR + 1 End If Next FR Set Rn = TS.Range("B" & Rw + 1 & ":Q" & TR - 1) If Rng Is Nothing Then Set Rng = TS.Range("B3:Q" & TR - 1) Else Set Rng = Union(Rng, Rn) End If End With 9 Next FSN If Not Rng Is Nothing Then With TS.PageSetup .PrintArea = Rng.Address .CenterHorizontally = True .CenterVertically = False .Orientation = xlLandscape TS.PrintPreview End With End If Set TS = Nothing: Set FS = Nothing: Set App = Nothing Set Rn = Nothing: Set Rng = Nothing End Sub

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

بفضل الله ثم بمساعدتكم جزاكم الله خير

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

تفضل اخي الكريم TAQWEA_2.rar تحياتي

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

جزاك الله خيرا اخي الكريم بالتوفيق يا رب تحياتي

ذلك لان مصدر النموذج جدول student اجعل النموذج مستقل بدون مصدر وإلا ما فائدة عملية الاضافة عند طريق RS من الاصل انظر المرفق TAQWEA.rar تحياتي

يجب ان تكون الحقول التي تريد اضافتها من RS موجود ما يقابلها في الجدول تفضل اخي الكريم الملف بعد التعديل TAQWEA.rar تحياتي

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

اخي أحمد الفلاحجى الملف شغال 100% ولكن لا اعلم وكيف وما هي مشكله اخي ابو زاهر

عليك السلام ورحمة الله وبركاته من فضلك قم بتوضيح ما تطلبه اكتب الشروط المطلوبة لكي يتسنى للأعضاء مساعدتك جرب هذا لعله يفي الغرض NESTED IF.xlsx

استبدل المعيار في استعلام الحذف بهذا .... [forms]![comformQ]![id]

السلام عليكم إذا قمت بتعيين ناحية الطباعة للورقة يدويا (في إعدادت الصفحة مثلا) فقد ألغيت عملية تحديد ناحية الطباعة آليا؟ ألق نظرة في التسميات وخاصة في ناحية الطباعة لشيت "تأخير" تجد أني حددته بالمعادلة Plage= ويمكن أن نحددها آليا بواسطة كود VBA في حدث هذا الشيت باستعمال دائما التسمية Plage فهذا يكون آمنا... التسمية Plage مرتبطة بقيم العمود A (من الصف 1 إلى رقم صف آخر خلية غير خالية من العمود A)... لقد أعدت ربط التسمية Plage بناحية الطباعة لشيت "تأخير" في ملفك الأخير الذي أرفقته... بن علية حاجي برنامج ايجار (1).xlsm

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

وعليكم السلام-تفضل لك ما طلبت بناءا على شرحك لأنك لم تنتبه لكلامى فى تصميم الفورم بنفسك المحصل المسؤول1.xlsx

تفضل اخي الكريم تم تعطيل الفاصلة نهائياً من الكود Nouveau Microsoft Access Base de données_2.rar تخياتي

جزاكم الله خير الجزاء ودامت عليكم نعمه الاسلام

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

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

عليك السلام ورحمة الله وبركاته جرب هذا لعله يفي الغرض يقوم بعدم النسخ أو القص من الاختصارات ممكن تضيف كود إخفاء أشرطة الأدوات New Microsoft Excel Worksheet.xlsm

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

على راسي أستاذنا الغالي التحكم في نماذج قاعدة بيانات خارجية.accdb

الاخ hosnynaser نصيحة من لك ليتم اقدام احد الاخوه لتقديم المساعده في ملف نموذج امر العمل 1- يجب اعادة تصميم نموذج امر العمل علي ان تكون عناوين البيانات مكتوبة في الخلايا مباشرة وليس داخل Rectangle ام سيكون التصميم حسب ما يري مقدم المساعده لك تقديم بعض الشرح لمكونات النموذج 2- هل النموذج عدد البنود به ثابت ام متغير واذا كان متقير ماذا تخيلك اذا كانت عدد البنود اكبر من عدد بنود الاذن 3 - يجب تقدم اكثر من نموذج امر العمل علي ان يكون احدهم به البند رقم 31 واستكمال ملء النموذج بالبيانات حتي نري تخيلك للنموذج ونموذج اخر به بن واحد هل تختفي باقي البنود الفارغة من النموذج ونموذج اخر به عدد بنود اكبر من عدد بنود الاذن كيف يكون التصرف وهكذ اكثر من نموذج لحالات الادخال 4- هل اسماء ( جهاز الإشراف - رئيس قسم النظافة والزراعة - مندوب المتعهد ) سوف يتم ادخالها يدويا ام ستكون هنا لكل كنهم قائمة يتم الاختيار منها 5- وايضا نسبة الخصم هل سوف يتم ادخالها يدويا او هي نسبة خصم واحدة او متغير 6- وكذلك رقم امر التوريد ( يدوي ام مسلسل ) وكذلك رقم العقد 7- النموذج امر العمل هل ستم طباعتة مباشرة ام ماذا اخ تحدث حتي اعرفك خلاصة القول لا تكن بخيلا في عرض المعلومات والشرح للنموذج وطريقة التعامل معه

اذكر بيانات التواصل الايميال و رقم الواتساب لان حضرتك طلبك برنامج كامل وسوف يتم نقل موضوعك الي قسم الطلبات للبرامج تحياتي

السلام عليكم جرب المرفق حذف جميع سجلات الذي اخترنا من قائمة ....rar تحياتي

اتفضل اخى المثال بدون ضغط اللذى قام برفعه اخى محمد جزاه الله كل خير تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم قاعدة البيانات.accdb

السلام عليكم أخي محمد أهنئك على صبرك و مثابرتك في طلب الحل دون المساس أو التعدي على قوانين المنتدى. لذلك قمت بتصميم مثال شمال لما تحتاجه. و هو كالتالي: 1- تختار قاعدة البيانات في المربع الأول 2- تظهر جميع نماذج القاعدة في المربع الثاني 3- تظهر أسماء مربعات نص النموذج المختار في المربع الثالث نقوم بالضغط على زر الأمر فتظهر رسالة تقول أن النموذج مفتوح أو مغلق و إذا كان مفتوح تظهر رسالة أخرى بها قيمة مربع النص التحكم في نماذج قاعدة بيانات خارجية.rar

بعد إذن الأستاذة الأفاضل عمر الحسيني و العيدروس جرب هذا لعله يفي الغرض CONSULTATION_A.xlsm

عليك السلام ورحمة الله وبركاته المطلوب غير واضح من فضلك أكتب النتيجة المتوقعة لكي يتسنى للأعضاء مساعدة محاولة منى مبدئيًا جرب هذا بحيث تخنار الاسم يظهر بياناته في الجدول rappr.xlsx

من بعد اذن استاذنا واخونا الفاضل @ابوخليل تفضل اخي الكريم كتابة الدورات بجانب بعضها لكل موظف2.rar تحياتي

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

اتفضل اخى واليك الرابط به الحل بالتوفيق مجموع كل صفحه_1.accdb

تم التعديل على المرفق تفضل برنامج المعتمرين _A3.xlsm

فى المرات القادمة حاول استاذ تامر ان تيسر على نفسك ولا تعسر كما نصحك جميع الأساتذة تفضل لك ما طلبت طبعا بعد ضبط تنسيقات وفورمات الملف =IFERROR(MAX(0,MIN(EOMONTH(0+(1&LOOKUP("zz",$L$1:L$1)),0),INDEX($C$3:$J$3,MATCH(L$2,$C$2:$J$2,0)+1))-MAX(0+(1&LOOKUP("zz",$L$1:L$1)),INDEX($C$3:$J$3,MATCH(L$2,$C$2:$J$2,0)))+1),0) 1تاريخ تواجد الموظفين.xlsx

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

جرب هذه المعادلة =INDEX($A$2:$A$15,MODE(MATCH($A$2:$A$15,$A$2:$A$15,0))) الملف مرفق minwal.xlsx

تفضل لك ما طلبت تنسيق شرطى بشرطين.xlsx

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود طباعة بعد المعاينة في هذا الكود البسيط والمفيد سيتم الطباعة بعد ظهور رساله تسألك هل تود الطباعة بعد المعاينة فإذا كانت المعاينة تناسبك قل نعم وان لم تكن تناسبك وتريد التضبيط فقل لا طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر [/center] ' هذا الكود للمهندس علي السحيب Sub معاينة_مع_الطباعة() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate End Sub ودمتم في حفظ الله معاينة طباعة مع امكانية الطباعه.rar

تمام يا ابوالبراء جزاك الله كل خير

السلام عليكم ورحمة الله وبركاته أخي الحبيب أحمد أبو بسملة جزاكم الله خيراً على هذه المعلومات القيمة واسمح لنا أن نشارك ببعض القبسات إثراء لعملكم وفقكم الله تعالى إلى كل خير: - لوضع التوقيت الحالي في خلية نضغط: Ctrl+Shift+; حرف الكاف - لوضع التاريخ الحالي أيضاً: Ctrl +; حرف الكاف - لنسخ قيمة الخلية التي فوق الخلية المفعلة نضغط: Ctrl+' حرف الطاء جزاكم الله خيراً على كل ما قدمتموه والسلام عليكم ورحمة الله وبركاته.

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