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

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

وعليكم السلام ورحمه الله وبركاته اجابه منقوله من الاسس العلميه لقواعد البيانات تراها بتوقيعى - هذا للتوضيح كقواعدبيانات عامه وليس خاصه برنامج مرتبات أهم هذه المشاكل: تكرار بيانات موجودة أصلاً إستنزاف شديد للسعات التخزينية مثل الأقراص الصلبة موطن خطير لإرتكاب الأخطاء الناتج عن التكرار فمثلا المسكين محمد عبد الله في الزيارة الثانية تم تسجيل إسمه على شكل (محمد عبدالله) بدون مسافة بين التعبيد ولفظ الجلاله وبهذا يصبح لدينا مريضا جديد !!! أما المشكلة الأكبر هي عند إضافة حقل جديد لقاعدة البيانات، مثلا إضافة تاريخ الميلاد للمريض !!! يتطلب الأمر الآن إدخال نفس التاريخ في كافة السجلات فإذا كان لدينا 500 زيارة منها 42 زيارة للأخ محمد عبد الله يتطلب الأمر إعادة إدخال تاريخ الميلاد 45 مرة !!! تكرار إدخال البيانات هو أحد مصائب وليس مشاكل قواعد البيانات المسطحة وكانت مرتعا خصبا للأبحاث في قبل عام 1970 ميلادية. تقبل تحياتى ومرورى وتمنياتى لك وللجميع بالتوفيق

جرب المرفق لعل فيه ما تريد.... مرتب.xlsx

مشاركه مع اخى واستاذى العزيز @essam rabea بالنسبه للسؤال الاول شو الاستعلام لم يتم تجديد الاشترك وافتحه فى وضع التصميم وشوف فى حقل تم تجديد الاشتراك المعيار 0 بالنسبه للسؤال الثانى انت تقصد انه بيفتح على رقم المشرك لكن حقل الاسم فارغ ام ماذا جرب الان ووافنا بالنتيجه بالتوفيق ان شاء الله GYM.rar

الاستاذ الفاضل / @ adnan gharbi دعنى اهمس فى اذنك : المنتدى هنا ملئ بالخبرات الكثيرة وكلهم لم يتأخروا في مساعدتك ومساعدة الاخرين وكل الاخوان اي سؤال لك او اى موضوع اطرحه بهدوء بشرط ان يكون فى شكل مثال مبسط والمطلوب يكون واضح ولا يكون اكثر من سؤال حتى يتسنى لهم وحسب اوقاتهم الاجابة جرب وشوف ان شاء سوف تتعلم هنا كل شئ كل التوفيق والنجاح

تفضل -جرب هذا الملف Add.xls

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

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

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

جزاك الله خيرا / استاذي ومعلمى / @kha9009lid اكرمك الله وزادك اخلاقا فأنت قمة الاخلاق لكى تسأذن من احد تلاميذك اذا حضر الماء بطل التيمم استاذ / عدنان الله يكرمك لعلك تكون وصلت الى مبتغاك

بعد إذن أخى وحبيبى أحمد الفلاحجى أ.romeo4 جرب المرفق عسى أن يكون المطلوب للجمع(2).accdb

وعليكم السلام ألقي نظره على هذا الموقع الأجنبي ( سورس كود مجاني ) وحفظ فلوسك 😅 https://www.sourcecodester.com/microsoft-access

تم التعديل على الملف المعادلات تعتمد على الجدول الأصفر CARES.xlsx

وعليكم السلام-اهلا بك بالمنتدى , كان عليك استخدام خاصية البحث بالمنتدى-تفضل ملف لاحتساب تكاليف وتسعير طلبية بضاعة مستوردة وهذه ملفات وبرامج أخرى Auto Expense Report.xls Purchases.xls اكسل محاسب الاستيراد.rar

وعليكم السلام-اهلا بك بالمنتدى -تفضل فقط بهذه المعادلة =IF(A2="","",A2+(((((D2/30)/12+(C2/12)+B2)))*354)) او جرب هذا الرابط https://www.officena.net/ib/topic/50355-اضافة-اشهر-الى-التاريخ-الهجري/page/2/ 103.xls

برنامج حسابات مجانى وليس تجربيى وأسأل الله عز وجل أن ينفع به عباده الصالحين وأسالكم الدعاء رابط البرنامج المساعد فى حالة وجود اوفيس اعلى من اصدار 2007 https://drive.google.com/open?id=1whC89PuJhad_duy-4o0pOCc4lqiYTQKr هذا هو البرنامج برنامج_حسابات_مجانى.rar

فورم دبل كليك على الليست لاظهار البيانات بالتكست بوكس الفيديو

قم بتغيير اسم الشيت مجمل إلى Total ونفذ هذا الكود Option Explicit Sub get_data() Dim SH_from As Worksheet Dim T As Worksheet Dim Rt%, MY_max%, Ro%: Ro = 3 Set T = Sheets("Total") Rt = T.Cells(Rows.Count, 2).End(3).Row If Rt <= 2 Then Rt = 3 With T.Range("B3").Resize(Rt, 5) .ClearContents .Interior.ColorIndex = xlNo End With For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) T.Cells(Ro, 2).Resize(MY_max, 5).Value = _ SH_from.Cells(3, 2).Resize(MY_max, 5).Value With T.Cells(Ro + MY_max, 3) .Value = SH_from.Name .Offset(, -1).Resize(, 5).Interior.ColorIndex = 6 End With Ro = Ro + MY_max + 1 End If Next SH_from End Sub الملف مرفق M_data.xlsm

شكرا جزيلا جزاك الله خيرا

أستاذ farisddd أين الضغط على الإعجاب ؟!!!! 💙

الفلترة بناء استعلام بمعيار مبني على القائمة المنسدلة comUnits وهذة القائمة تستمد قيمتها من خلال استعلام مبني على الجدول tblUnits فلو كان الجدول يحتوي على 3 وحدات تكون خيارات الفلترة لثلاث وحدات ولو كان الجدول يحتوي على 1000 وحدة تكون خيارات الفلترة 1000 وهكذا تحياتي

اضفت وحدات جديدة ولم اواجه اي مشكله ايضا غيرت صيغة ملف اكسيل لان الكود السابق احيانا يرفض الفتح جرب الملف المرفق علما بان الفلترة لا علاقة لها بعدد الوحدات 3 او 100 او 1000 Database3 (2).accdb

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

نعم ممكن في الملف المرفق عملنا مربع نص مخفي اسميتة tx8 وجعلنا قيمته الافتراضية تساوي اسم التقرير ="rptEmploee" وفي حدث عند التحديث للقائمة الخاصة بالفلترة اضفنا الامر التالي Me.tx8 = Me.comUnits.Column(1) في حدث عند النقر لزر حفظ بي دي اف اضفنا الامر Dim x As String x = Me.tx8 DoCmd.OutputTo acOutputReport, "rptEmploee", acFormatPDF, CurrentProject.Path & "\" & x & ".PDF", False وفي حدث لزر الامر الخاص بالاكسل اضفنا الامر Dim x As String x = Me.tx8 & ".xlsx" DoCmd.OutputTo acOutputReport, "rptEmploee", acFormatXLS, CurrentProject.Path & "\" & x, False الملفات تحفظ في نفس المجلد الخاص بقاعدة البيانات التصدير لاكسل قد يتطلب الدخول على محرر الاكواد والتاشير كما هو موضح في الصورة Database3 (2).accdb

الله يسعدك ياشيخ احمد الفلاحجي جزاك الله خير ويرزقك من واسع فضله

اذا حبيت ترجعه نص ضع الكود التالى فى حدث الزر DoCmd.OpenReport "تقرير الموظفين", acViewPreview, , "[رقم الهوية]='" & Me.[رقم الهوية] & "'" بالتوفيق ان شاء الله eploe.mdb

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

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

من غيرا استذان اخى واستاذى العزيز @essam rabea مثال جميل وموديل رائع جزاك الله عنا خيرا الجزاء تقبل تحياتى وتمنياتى لكم وللجميع بالتوفيق

بسم الله الرحمن الرحیم عندي برنامج صغير اعتمد عليها في عملي اليومي بحيث يتألف من نموذج رئيسي يحتوي على قائمة لجميع فواتير المبيعات...ونموذج اخر يحتوي على ديون اي عميل حسب الاختيار..ونموذج اخر يحتوي على مجموع دیون جميع العملاء..عندي طلب في هذا النموذج اي مجموع الديون...اريد منكم تساعدوني في عمل قائمة بحيث يظهر اسم كل العملاء في عمود ومجموع الديون لكل واحد منهم في عمود اخر ...اي كل عميل يظهر مجموع الديون الي عليه ...اشكركم وجزاكم الله خیرا Companies Copy.rar

بعد اذن اخي دكتور محمد حلبي جرب المرفق Database3 (1).accdb

لا شكر على واجب المهم أنه تم العمل بنجاح تم التعديل saf.xlsm

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

الحلقة السادسة: تابع لدرس التعامل مع الجداول في صفحة ويب في الدرس الماضي قمنا بالتعامل مع جدول له خاصية id و في هذا الجدول سوف نتعلم كيفية التعامل مع الجداول التي ليس لها خاصية id أو name سوف نعتمد في هذا الدرس على خاصية Tagname التطبيق سوف يكون على صفحة ويكيبيديا: https://mawdoo3.com/جميع_دول_العالم_وعواصمها 1- كود حساب عدد الجدول في الصفحة: MsgBox WebBrowser3.Document.getElementsByTagName("table").Length 2- كود حساب عدد الخلايا في الجدول: MsgBox WebBrowser3.Document.getElementsByTagName("table").Item(0).cells.Length 3- كود حساب عدد الصفوف في الجدول: MsgBox WebBrowser3.Document.getElementsByTagName("table").Item(0).rows.Length 4- كود استخراج بيانات خلية في الجدول: MsgBox WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(1).cells(1).innerText 5- كود ارسال بيانات إلى خلية في الجدول: WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(5).cells(0).innerText = "salah" ملاحظة: المقصود بـ item(0) i هو الجدول الأول الأزرار داخل الإطار الأحمر هي الخاصة بأكواد هذا الدرس قبل البدئ إضغط على زر فتح صفحة التجربة لفتح الصفحة أمامك webbroser.rar

الحلقة الخامسة: التعامل مع الجداول في صفحة ويب سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من التحكم في الجداول داخل صفحة ويب و سوف نستخدم مرفق أخي ابو البشر في هذا الدرس و هي عبارة عن صفحة ويب محفوظة خاصية id للجدول اسمها: ctl00_PlaceHolderMain_gvCourseSectionExamsGrades عند فتح المرفق يجب تحديد صفحة الويب المرفقة كمصدر للأداة و ذلك بإتباع الخطوات التالية: 1- كود استخراج عدد الخلايا في الجدول: MsgBox Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").cells.Length 2- كود استخراج عدد الصفوف في الجدول: MsgBox Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows.Length 3- كود استخراج بيانات العمود الأول في الجدول: في هذا الكود نقوم بعرض الأرقام الموجودة في العمود الأول For i = 2 To Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows.Length MsgBox Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows(i - 1).cells(0).innerText Next i 4- كود استخراج بيانات العمود الثاني في الجدول: في هذا الكود نقوم بعرض الأسماء الموجودة في العمود الثاني For i = 2 To Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows.Length MsgBox Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows(i - 1).cells(1).innerText Next i 5- كود ارسال بيانات إلى الجدول: في هذا الكود سوف نرسل بيانات للعمود الرابع الخاص بمادة البحوث و المشروعات For i = 2 To Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows.Length Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows(i - 1).cells(3).innerText = i - 1 Next i و هذا هو المرفق به جميع الدوال. webbroser.rar

لان طلبك كان على اساس معيار رقم الفاتورة وما حددت ان المطلوب معيار رقم الفاتورة وكود العميل على كل حال جرب المرفق Database22.accdb

وعليكم السلام-تفضل https://yaseen828.ahlamontada.com/t65-topic https://arabhardware.net/forum/showthread.php?t=86870

الحلقة الرابعة: التعامل مع القائمة المنسدلة في صفحة ويب سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من التحكم الكامل في القائمة المنسدلة داخل الأداة في صفحة ويب لقد قمت بتطبيق هذا الدرس على موقع الفايس بوك لأن به قائمة منسدلة الخاصة بالأشهر و لها خاصية: Id=month لهذه القائمة عمودين عمود مخفي و هو يمثل القيمة الحقيقة به أرقام من 0 إلى 12 و عمود ظاهر به أسماء الأشهر 1- كود حساب عدد عناصر القائمة: MsgBox Me.WebBrowser3.Document.getElementById("month").Length 2- كود معرفة القيمة الحقيقية للعنصر: من المعلوم أن القائمة المنسدلة يمكن أن يكون بها أكثر من عمود يعني ممكن تصبح القيمة الظاهرة تختلف عن القيمة الحقيقية MsgBox Me.WebBrowser3.Document.getElementById("month").Value 3- كود استخراج ترتيب القيمة الظاهرة: استخراج ترتيب القيمة الظاهر ضمن عناصر القائمة المنسدلة MsgBox Me.WebBrowser3.Document.getElementById("month").selectedIndex 4- كود استخراج القيمة الظاهرة: MsgBox Me.WebBrowser3.Document.getElementById("month").Item(Me.WebBrowser3.Document.getElementById("month").selectedIndex).innerText 5- إظهار جميع عناصر القائمة: Dim x As String Dim i As Integer For i = 1 To Me.WebBrowser3.Document.getElementById("month").Length x = x & " - " & Me.WebBrowser3.Document.getElementById("month").Item(i - 1).innerText Next i MsgBox x 6- اختيار عنصر من القائمة باستخدام رقمه الترتيبي: هنا وضعت القيمة تساوي 5 معناه سوف يتم اختيار العنصر رقم 5 و هو مايو Me.WebBrowser3.Document.getElementById("month").selectedIndex = 5 7- تغيير نص قيمة في العمود الظاهر من القائمة: سوف يتم تغيير كتابة أفريل في القائمة إلى أوفيسنا Me.WebBrowser3.Document.getElementById("month").Item(4).innerText = "أوفيسنا" 8-تغيير قيمة في العمود المخفي من القائمة: Me.WebBrowser3.Document.getElementById("month").Item(4).Value = "15" قبل البداية في تطبيق درس اليوم اضغط على زر فتح صفحة الفايس بوك لتظهر الصفحة أمامك webbroser.rar

الحلقة الثانية: أكواد الطباعة و الخصائص و... سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من طباعة صفحة الويب و حفظها و عرض خصائص الصفحة و غيرها... 1- كود طباعة الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT 2- كود معاينة طباعة الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT 3- كود عرض خصائص الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT 4- كود حفظ صفحة الويب: Me.WebBrowser3.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT 5- كود تنسيق الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT 6- كود عنوان رابط الصفحة: MsgBox Me.WebBrowser3.LocationName 7- كود رابط الصفحة: MsgBox Me.WebBrowser3.LocationURL 8- كود فتح الصفحة الإفتراضية للمتصفح: Me.WebBrowser3.GoHome 9- كود فتح صفحة البحث: Me.WebBrowser3.GoSearch 10- كود فتح صندوق التصفح: هذا الكود يقوم بفتح صندوق لإدخال رابط صفحة ويب جديدة Me.WebBrowser3.ExecWB OLECMDID_OPEN, OLECMDEXECOPT_DODEFAULT 11- كود تخطي رسائل الأخطاء التي تظهر من الأداة عند التصفح: Me.WebBrowser3.Silent = True وهذا المرفق بعد الإضافات الجديدة webbroser.rar

السلام عليكم كلتا الحالتين (الطريقتين) تحتاج إلى إنشاء التسمية الخاصة بالنطاق المراد طباعته وتسميتها في الملف Plage بالمعادلة التالية (التي يمكن أن تجدها في قائمة التسميات): =OFFSET(تأخير!$B$1:$Q$1;;;MAX(IF(تأخير!$A$1:$A$10000>0;ROW(تأخير!$A$1:$A$10000)))) (يمكن استعمال معادلة أخرى بدوال أخرى وفي المنتدى تجد الكثير من الأمثلة على ذلك) والمرحلة الثانية تكون كما يلي: * الطريقة الأولى: تحديد "ناحية الطباعة" للشيت "تأخير" في التسميات (بعد تعيينها يدويا أو عن طريق إعدادات الصفحة) بتغيير معادلتها بالمعادلة : =Plage * الطريقة الثانية : إدراج الكود التالي (نسخ ولصق): Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.PageSetup.PrintArea = [Plage].Address End Sub في كود حدث الشيت "تأخير"... وليس لي شرح آخر... بن علية حاجي

السلام عليكم تم إنشاء الكود التالي في حدث الشيت "تأخير": Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.PageSetup.PrintArea = [Plage].Address End Sub وهذا الكود يضمن أن تتحدد ناحية الطباعة آليا بالزيادة والنقصان (حسب قيم العمود A)... كل ذلك في الملف المرفق... بن علية حاجي برنامج ايجار.xlsm

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

و ما أوتيتم من عِلمٍ فهو قليل....

كي نفعل ذلك يجب ان نحتال على اكسل اليك هذه الحيلة: 1-قبل عملية النسخ قم باستبدال علامة"=" قي كل الورقة بأي شي اخر مثلاً "##^^" و ذلك من خلال الضغط على Ctrl+H والقيام يعملية الاستبدال Replace All بذلك تتعطل كل المعادلات في الورقة ( حيث لا يوجد "=" لتنفيذ المعادلة) 2-قم بنسخ الورقة الى المكان المطلوب 3- قم باستبدال "##^^" يعلامة "=" في الورقتين المصدر و الهدف

استاذ ابو حنين وجدت هذا الكود على النت ارجو يكون المقصود Sub ShowAllLinksInfo() 'Author: JLLatham 'Purpose: Identify which cells in which worksheets are using Linked Data 'Requirements: requires a worksheet to be added to the workbook and named LinksList 'Modified From: http://answers.microsoft.com/en-us/office/forum/office_2007-excel/workbook-links-cannot-be-updated/b8242469-ec57-e011-8dfc-68b599b31bf5?page=1&tm=1301177444768 Dim aLinks As Variant Dim i As Integer Dim Ws As Worksheet Dim anyWS As Worksheet Dim anyCell As Range Dim reportWS As Worksheet Dim nextReportRow As Long Dim shtName As String shtName = "LinksList" 'Create the result sheet if one does not already exist For Each Ws In Application.Worksheets If Ws.Name = shtName Then bWsExists = True Next Ws If bWsExists = False Then Application.DisplayAlerts = False Set Ws = ActiveWorkbook.Worksheets.Add(Type:=xlWorksheet) Ws.Name = shtName Ws.Select Ws.Move After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count) Application.DisplayAlerts = True End If 'Now start looking of linked data cells Set reportWS = ThisWorkbook.Worksheets(shtName) reportWS.Cells.Clear reportWS.Range("A1") = "Worksheet" reportWS.Range("B1") = "Cell" reportWS.Range("C1") = "Formula" aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(aLinks) Then 'there are links somewhere in the workbook For Each anyWS In ThisWorkbook.Worksheets If anyWS.Name <> reportWS.Name Then For Each anyCell In anyWS.UsedRange If anyCell.HasFormula Then If InStr(anyCell.formula, "[") > 0 Then nextReportRow = reportWS.Range("A" & Rows.Count).End(xlUp).Row + 1 reportWS.Range("A" & nextReportRow) = anyWS.Name reportWS.Range("B" & nextReportRow) = anyCell.Address reportWS.Range("C" & nextReportRow) = "'" & anyCell.formula End If End If Next ' end anyCell loop End If Next ' end anyWS loop Else MsgBox "No links to Excel worksheets detected." End If 'housekeeping Set reportWS = Nothing Set Ws = Nothing End Sub

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

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

بالنسبة لعدد الاعمدة عدد الاعمدة = 2 هذا يعني ان الاستعلام سيتعامل مع العمودين الاولين فقط حتى لو وجد داخل الاستعلام اكثر من ذلك وبالنسبة لعرض الاعمدة : عرض الاعمدة = صفر فنحن لدينا عمودين في الاستعلام فقط فإذا جعلنا القيمة صفر فنعني به العمود الأول لذا سيختفي العمود الاول الذي هو عمود الرقم ويظل عمود الثاني ظاهرا فلو فرضنا ان لدينا اكثر من عمودين ونريد اظهار بعضها واخفاء البعض الآخر فكل الذي علينا عمله ان نعطي القيمة صفر لمن نريد اخفاءه ونعطي الاعمدة الاخرى مقاس الظهور المطلوب ونفصل بين ها بفاصلة منقوطة كالتتالي : 0سم؛2.5سم؛1سم؛0سم لاحظوا ان كلمة سم سيكتبها اكسس نيابة عنا ، نحن فقط نكتب الارقام والفاصلة المنقوطة

يبدوا لي ان الطريقة في الشرح السابق غير ممتعة وغير مشوقة وعلى ذلك سأسلك طريقة اخرى : الخطوة الاولى : سأرفق الجزء الاول من المشروع وهو انشاء الجداول ، وقد صنعتها على عجل والنقص فيها سنتداركه لاحقا المطلوب : مطالعة المرفق وتفحصه بدقة . ثم طرح الاسئلة حول ما يشكل فهمه لن ننتقل الى الخطوة التالية حتى نتأكد من فهم واستيعاب هذه الخطوة SCH1.rar

الجدول1 جدول اسماء الطلاب وبياناتهم اسم الجدول tblAsma وحقوله كثيرة متنوعة يهمنا منها اربعة : معرف الطالب UserName نوعه نص وحجمه 10 بدون تكرار (على اساس الهوية 10ارقام) اسم الطالب studNm نوعه نص وحجمة 50 المرحلة mrhla نوعه رقم وحجمه عدد صحيح طويل الشعبة shoba رقم مثل سابقه خلطت الحابل بالنابل العربية بالانجليزية فهذا للتمثيل وكل يأخذ ما يصلح له