كل الانشطه

وعليكم السلام ورحمة الله وبركاته .. بدايةً لي تعليق بسيط تكرر في الكثير من مشاركات الأخوة الأعضاء الذين يستخدمون اللغة العربية في المسميات . لكن استخدامك للمد في أسماء الحقول هذا قطعاً غير صحيح ويسبب لك الكثير من المشاكل في استعلامات اكسيس . فمثلاً الحقل الخصــــــــــــــوم أو الحقل الاصـــــــول ، هل هي منطقية بنظرك ؟؟؟؟ أضف إلى ذلك بنية الجداول نفسها غير سوية وغير سليمة !!! أيضاً يجب أن يكون هناك حقل مشترك بين الجدولين مثل ID أو رقم الصف لتتم عملية الربط بشكل صحيح . لذا إنشاء حقل ترقيم تلقائي في كل جدول وربطهما عليه. لذا نرجو منك تصويب الأوضاع في الجدولين كي تجد من يحاول المساعدة ..

زادك الله علما على علم وبارك الله فيك تعلمنا قبل الحل ......... الف شكر

الى اصحاب العلم و المعرفة المرفق عبارة عن 2 استعلام ( اصول و خصوم ) تم جمعهما فى قائمة راسية بطريقة نقل جملة sql من كل استعلام و الربط بينهما ب union all (لغير المحترفين امثالى ) وللاحتياج الى قائمة افقية:- حاولت اطبق نفس الطريقة باستخدام full outer jion بكل شروطها بالاضافة لشرط ; ان كل رقم صف فى جدول الاصول يربط مع رقم صف الخصوم كشرط ربط وهمى ;1=1 no واحد اشكركم b_sheet.rar

السلام عليكم السبب هو وجود مسافات قبل الارقام وهذا يحدث عادة عند نسح ارقام ناتجة عن معادلات الحل كل القيم تتحول إلى نصوص (CStr) وتُزال الفراغات (Trim) وهذا يضمن التطابق حتى لو كانت القيم أرقام أو نصوص أو ناتجة عن معادلات. اليك الكود المعدل Sub تحويل_اللجان_الى_اسماء_Turbo() Dim ws As Worksheet: Set ws = ActiveSheet Dim r As Long, c As Long Dim lastRowMain As Long, lastRowSearch As Long Dim رقم_اللجنة As String, اسم_اللجنة As String, اسم_المراقب As String Dim فارق_الاعمدة As Long: فارق_الاعمدة = 12 Dim cell As Range lastRowSearch = ws.Cells(ws.Rows.Count, "N").End(xlUp).Row ws.Range("P3:X" & lastRowSearch).ClearContents lastRowMain = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row lastRowSearch = ws.Cells(ws.Rows.Count, "N").End(xlUp).Row For r = 3 To lastRowMain اسم_المراقب = Trim(CStr(ws.Cells(r, "B").Value)) For c = 4 To 12 رقم_اللجنة = Trim(CStr(ws.Cells(r, c).Value)) If رقم_اللجنة <> "" Then For Each cell In ws.Range("C3:C" & lastRowMain) If Trim(CStr(cell.Value)) = رقم_اللجنة Then اسم_اللجنة = Trim(CStr(ws.Cells(cell.Row, "B").Value)) Dim صف_المراقب As Range For Each صف_المراقب In ws.Range("N3:N" & lastRowSearch) If Trim(CStr(صف_المراقب.Value)) = اسم_المراقب Then ws.Cells(صف_المراقب.Row, c + فارق_الاعمدة).Value = اسم_اللجنة Exit For End If Next صف_المراقب Exit For End If Next cell End If Next c Next r End Sub

السلام عليكم ورحمة الله وبركاته حصلت معي مشكله عويصه ماعرف احلها عندي عميل يعمل على سيرفر خاص VPS والسيرفر مثبت عليه Windows Server 2022 حاولت اثبت برنامج WhatsAppDesktop وتبين لي ان الوندوز سيرفر لايدعم متجر تطبيقات مايكروسوف حاول كذا محاوله لكن للاسف ماقدرت اثبت تطبيق الوتس والان لابد من استخدام الوتس داخل المتصفح لعل نقدر نرسل عن طريقه الرساله والمرفقات هل بالامكان تعديل المثال في مشاركة الاخ الفاضل @Foksh ليتم الارسال عن طريق المتصفح وليس التطبيق ارجوا المساعده ياخوان وماهو الحل المناسب الحقيقه ويندوز سيرفر هذا ورطنا ماتوقعت يحدث معي هذا الشي ولاني عارف كيف احل المشكله هذي والمشكله ملزم بعمل برنامج الاكسس على ويندور سيرفر WhatsApp Sender WF.accdb

عند نقل جدول1 الذي به هذه الارقام الى جدول 2 لا يتم تحويلها الى اسماء في الجدول 3 ماالسبب ؟؟؟ معلومه هذة الارقام تم نسخها من معادلات من جدول اخر... وعند كتابة ارقام في الجدول 2 يدوي ينفذ الامر .... ولا ادري ما السبب؟؟؟؟؟؟؟؟ تحويل اللجان الى أسماء _ ا.xlsm

مكتبة كافة الادوات المساعدة والمميزة والكواد والمشاريع 2026-2027 Ms_hanan : https://sites.google.com/view/mas-projectss/home لضم بعض الاعمال وتنزيل المباشر من غير اذونات الكل مفتوح المصدر ******************************************************************************************************** توسيــــع واستكمال 1- اضافة فحص وتسجيل الجهاز عند الاقلاع بمفتاح الترخيص سهل وسريع : Private Sub Chack_Pc_Sruial() '==========( Chack Into PC = PC K If IsNull(DLookup("[CPU_Na]", "[PC_X_PC]")) Then Call Error_Chack_Pc_Sruial: Exit Sub If IsNull(DLookup("[CPU_ma]", "[PC_X_PC]")) Then Call Error_Chack_Pc_Sruial: Exit Sub If IsNull(DLookup("[CPU_se]", "[PC_X_PC]")) Then Call Error_Chack_Pc_Sruial: Exit Sub If IsNull(DLookup("[Motherboard_se]", "[PC_X_PC]")) Then Call Error_Chack_Pc_Sruial: Exit Sub If IsNull(DLookup("[Motherboard_ma]", "[PC_X_PC]")) Then Call Error_Chack_Pc_Sruial: Exit Sub If IsNull(DLookup("[Motherboard_mo]", "[PC_X_PC]")) Then Call Error_Chack_Pc_Sruial: Exit Sub If IsNull(DLookup("[Motherboard_Bi]", "[PC_X_PC]")) Then Call Error_Chack_Pc_Sruial: Exit Sub If IsNull(DLookup("[HDD_se]", "[PC_X_PC]")) Then Call Error_Chack_Pc_Sruial: Exit Sub If IsNull(DLookup("[HDD_na]", "[PC_X_PC]")) Then Call Error_Chack_Pc_Sruial: Exit Sub If IsNull(DLookup("[HDD_mo]", "[PC_X_PC]")) Then Call Error_Chack_Pc_Sruial: Exit Sub If DLookup("[CPU_Na]", "[PC_X_PC]", "[CPU_Na]=" & "'" & Me.txt1 & "'") = Me.txt1 Then Else: Call Error_Chack_Pc_Sruial: Exit Sub If DLookup("[CPU_ma]", "[PC_X_PC]", "[CPU_ma]=" & "'" & Me.txt2 & "'") = Me.txt2 Then Else: Call Error_Chack_Pc_Sruial: Exit Sub If DLookup("[CPU_se]", "[PC_X_PC]", "[CPU_se]=" & "'" & Me.txt3 & "'") = Me.txt3 Then Else: Call Error_Chack_Pc_Sruial: Exit Sub If DLookup("[Motherboard_se]", "[PC_X_PC]", "[Motherboard_se]=" & "'" & Me.txt4 & "'") = Me.txt4 Then Else: Call Error_Chack_Pc_Sruial: Exit Sub If DLookup("[Motherboard_ma]", "[PC_X_PC]", "[Motherboard_ma]=" & "'" & Me.txt5 & "'") = Me.txt5 Then Else: Call Error_Chack_Pc_Sruial: Exit Sub If DLookup("[Motherboard_mo]", "[PC_X_PC]", "[Motherboard_mo]=" & "'" & Me.Txt6 & "'") = Me.Txt6 Then Else: Call Error_Chack_Pc_Sruial: Exit Sub If DLookup("[Motherboard_Bi]", "[PC_X_PC]", "[Motherboard_Bi]=" & "'" & Me.Txt7 & "'") = Me.Txt7 Then Else: Call Error_Chack_Pc_Sruial: Exit Sub If DLookup("[HDD_se]", "[PC_X_PC]", "[HDD_se]=" & "'" & Me.Txt8 & "'") = Me.Txt8 Then Else: Call Error_Chack_Pc_Sruial: Exit Sub If DLookup("[HDD_na]", "[PC_X_PC]", "[HDD_na]=" & "'" & Me.Txt9 & "'") = Me.Txt9 Then Else: Call Error_Chack_Pc_Sruial: Exit Sub If DLookup("[HDD_mo]", "[PC_X_PC]", "[HDD_mo]=" & "'" & Me.Txt10 & "'") = Me.Txt10 Then Else: Call Error_Chack_Pc_Sruial: Exit Sub If Me.f_1.Visible = False Then Me.f_1.Visible = True If Me.f_3.Visible = False Then Me.f_3.Visible = True If Me.f_4.Visible = False Then Me.f_4.Visible = True If Me.f_2.Visible = True Then Me.f_2.Visible = False Me.f_3.BackColor = rgb(34, 177, 76) Me.f_1.Caption = "الجهاز مرخيص ومفعل بجهة مالك مشــــــروع .. جاري التهيئة وضبط التصال الآلي " End Sub 2- اخذ النسخالاحتياطية مباشر لقاعدة المشروع وقاعدة الادخال كل بنافذة الادخال عند قائم الاعدادت والضبط 3- تحسين في نافذة الادخال بعامود التحرك مع مؤشر التحديد + اضافة 37 قائمة ادخال 😇 Private Sub CmdFirstRecord_Click() On Error Resume Next If Me.Add_New_Mony_0.Form.Recordset.RecordCount > 0 Then Me.Add_New_Mony_0.Form.Recordset.MoveFirst Form_Add_New_Mony_0.IDD = Form_Add_New_Mony_0.ID End If End Sub Private Sub CmdLastRecord_Click() On Error Resume Next If Me.Add_New_Mony_0.Form.Recordset.RecordCount > 0 Then Me.Add_New_Mony_0.Form.Recordset.MovePrevious Form_Add_New_Mony_0.IDD = Form_Add_New_Mony_0.ID End If End Sub Private Sub CmdNextRecord_Click() On Error Resume Next If Me.Add_New_Mony_0.Form.Recordset.RecordCount > 0 Then Me.Add_New_Mony_0.Form.Recordset.MoveNext Form_Add_New_Mony_0.IDD = Form_Add_New_Mony_0.ID End If End Sub Private Sub CmdPreviousRecord_Click() On Error Resume Next '================(last ?! If Me.Add_New_Mony_0.Form.Recordset.RecordCount > 0 Then Me.Add_New_Mony_0.Form.Recordset.MoveLast Form_Add_New_Mony_0.IDD = Form_Add_New_Mony_0.ID End If End Sub - لان البعض حتى الان يستخدمون في نماذج المستمر للتنقل DoCmd.GoToRecord , "", acFirst ؟ ما خذين العامود السجلات بطول النافذه ويتسخدم الكود لنموذج منفرد 😇 4- استكمال وتصحيح اعدادة النسخ الاحتياطية ويحتاج الى تعديل :::: تابعو الفيديو للتوضيح اكثر مشاهدة ممتعة تحميل المباشر من غير اذونات https://drive.google.com/file/d/1SpayGLtFKnKVoW-p0b5doZQ8zSL0R7cv/view?usp=drive_link

السلام عليكم استاذ kkhalifa1960 يظهر الخطأ عند الاستراد والتصدير ي

وإياكم أخي الحبيب

جزاك الله خير الجزاء الحل جميل جدا وهذا هو المطلوب الف شكر لك يالغالي

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

وعليكم السلام ورحمة الله وبركاته ... بعد تتبع مصدر مربع النص Text2 .. وجدت أن أفضل حل هو الحدث التالي بعد تحديث عنصر الـ Ch1 ، بحيث يكون :- Private Sub ch1_AfterUpdate() Dim subForm As Form Set subForm = Me.FMBoxCustomersSup.Form If Me.ch1 = True Then subForm.Filter = "([Sumمنtotalmainstax] - [Sumمنtotal_shop]) - [Price1] <> 0" subForm.FilterOn = True Else subForm.FilterOn = False End If End Sub وطبعاً في حدث عند التحميل للنموذج الرئيسي ، نقوم باستدعاء حدث بعد التحديث للعنصر Ch1 ، ليصبح كالتالي :- Private Sub Form_Load() DoCmd.Maximize ch1_AfterUpdate End Sub ملفك بعد التعديل :- اظهار واخفاء السجلات حسب قيمة الحقل.zip

توفر مناهج البحث العلمي pdf للباحثين الأدوات اللازمة لفهم أساليب البحث المختلفة، بينما تساهم خدمة إعداد منهجية البحث العلمي في تنظيم الدراسات وصياغة خطة بحث دقيقة واحترافية، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة دعماً متخصصاً للباحثين في إعداد البحوث العلمية بشكل متكامل، وتشمل الموارد أيضًا ملفات مرجعية مثل المنهج التطبيقي في البحث العلمي PDF والمنهج التطبيقي PDF، والتي توضح أنواع البحث التطبيقي وكيفية استخدامه بفاعلية في الدراسة، مما يعزز جودة البحث وموثوقية نتائجه. https://www.sanadkk.com/blog/post/2137/%D8%A7%D9%84%D9%85%D9%86%D9%87%D8%AC-%D8%A7%D9%84%D8%AA%D8%B7%D8%A8%D9%8A%D9%82%D9%8A-%D9%81%D9%8A-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A.html

توفر مناهج البحث العلمي pdf للباحثين الأدوات اللازمة لفهم أساليب البحث المختلفة، بينما تساهم خدمة إعداد منهجية البحث العلمي في تنظيم الدراسات وصياغة خطة بحث دقيقة واحترافية، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة دعماً متخصصاً للباحثين في إعداد البحوث بشكل متكامل، وتشمل الموارد أيضًا دراسات وملفات مرجعية مثل المنهج السردي في البحث العلمي PDF والمنهج السردي PDF، التي توضح مميزاته وفوائد المنهج السردي في تحليل البيانات وسرد الأحداث بشكل منهجي، مما يعزز جودة البحث وموثوقية نتائجه. https://www.sanadkk.com/blog/post/2138/%D8%A7%D9%84%D9%85%D9%86%D9%87%D8%AC-%D8%A7%D9%84%D8%B3%D8%B1%D8%AF%D9%8A-%D9%81%D9%8A-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A.html

يوفر خطوات المنهج الاجتماعي | شرح شامل PDF دليلاً مفصلاً للباحثين لفهم مراحل تطبيق المنهج الاجتماعي بدقة، مع تسليط الضوء على عيوب المنهج الاجتماعي لتجنب المشكلات المحتملة أثناء البحث، كما تعتبر مصادر مثل المنهج الاجتماعي PDF ومناهج البحث العلمي pdf أدوات أساسية لدعم الدراسات العلمية وتوفير معلومات دقيقة وشاملة، وتساعد خدمة إعداد منهجية البحث العلمي الباحثين على تنظيم دراساتهم وصياغة خطة بحث متكاملة، بينما تقدم شركة سندك للاستشارات الأكاديمية والترجمة دعماً احترافياً في إعداد البحوث العلمية بشكل موثوق ومنهجي. https://www.sanadkk.com/blog/post/2154/%D8%AE%D8%B7%D9%88%D8%A7%D8%AA-%D8%A7%D9%84%D9%85%D9%86%D9%87%D8%AC-%D8%A7%D9%84%D8%A7%D8%AC%D8%AA%D9%85%D8%A7%D8%B9%D9%8A.html

يوفر مناهج البحث في اللغة والنقد | دليل شامل مع سندك للباحثين مرجعاً متكاملاً لفهم الأساليب العلمية المختلفة، مع تسليط الضوء على أنواع مناهج البحث وشرح عيوب المنهج التاريخي لتجنب السلبيات في الدراسة، وتعد مصادر مثل مناهج البحث العلمي pdf أدوات أساسية للباحثين للوصول إلى المعلومات بدقة وسهولة، كما تساهم خدمة إعداد منهجية البحث العلمي في تنظيم البحث وصياغة خطة منهجية واضحة، بينما تقدم شركة سندك للاستشارات الأكاديمية والترجمة دعماً متخصصاً لإعداد الدراسات العلمية بشكل احترافي وموثوق. https://www.sanadkk.com/blog/post/2176/%D9%85%D9%86%D8%A7%D9%87%D8%AC-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D9%81%D9%8A-%D8%A7%D9%84%D9%84%D8%BA%D8%A9-%D9%88%D8%A7%D9%84%D9%86%D9%82%D8%AF.html

توفر مناهج البحث العلمي pdf للباحثين الأدوات اللازمة لفهم أساليب البحث المختلفة، بينما تساعد خدمة إعداد منهجية البحث العلمي على تنظيم الدراسات بشكل احترافي ودقيق، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة دعماً متخصصاً في صياغة البحث وتجهيزه للنشر، وتشمل الموارد أيضًا إرشادات حول عنوان بحث تجريبي | أسرار الصياغة الفعالة والبحث التجريبي، مع ملفات مرجعية مثل خطوات المنهج التجريبي pdf لتوضيح مراحل البحث التجريبي وكيفية تطبيقه بشكل صحيح، مما يضمن جودة البحث وموثوقية نتائجه. https://www.sanadkk.com/blog/post/2296/%D8%B9%D9%86%D9%88%D8%A7%D9%86-%D8%A8%D8%AD%D8%AB-%D8%AA%D8%AC%D8%B1%D9%8A%D8%A8%D9%8A.html

توفر مصادر مثل مناهج البحث العلمي pdf للباحثين الأدوات اللازمة لفهم خطوات وأساليب البحث المختلفة، بينما تأتي خدمة إعداد منهجية البحث العلمي لدعم الباحثين في تنظيم دراستهم بدقة واحترافية، كما تقدم شركة سندك للاستشارات الأكاديمية والترجمة دعماً متخصصاً لإعداد البحوث العلمية بشكل متكامل، وتشمل الموارد أيضًا دراسات متخصصة مثل أسرار إعداد المنهجية القانونية في البحث العلمي بإحترافية، بالإضافة إلى ملفات مرجعية مثل الوجيزة في المنهجية القانونية PDF ومنهجية قانونية PDF التي تساعد الباحث على صياغة منهجية قانونية واضحة وشاملة، مما يعزز جودة البحث وموثوقية نتائجه. https://www.sanadkk.com/blog/post/2668/%D8%A5%D8%B9%D8%AF%D8%A7%D8%AF-%D8%A7%D9%84%D9%85%D9%86%D9%87%D8%AC%D9%8A%D8%A9-%D8%A7%D9%84%D9%82%D8%A7%D9%86%D9%88%D9%86%D9%8A%D8%A9-%D9%81%D9%8A-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A.html

توفر شركة سندك للاستشارات الأكاديمية والترجمة دعماً احترافياً للباحثين، مع الاعتماد على مصادر موثوقة مثل مناهج البحث العلمي pdf لفهم أدوات وأساليب الدراسة المختلفة، كما تشرح الملفات المرجعية ما هو الفرق بين البحث الكمي والنوعي؟ وتوفر دراسة مفصلة عبر الفرق بين البحث الكمي والنوعي pdf ومناهج البحث الكمي والنوعي والمختلط pdf لتوضيح الفروق والتطبيقات العملية لكل منهج، وتأتي خدمة إعداد منهجية البحث العلمي كأداة أساسية تساعد الباحث على تنظيم دراسته وصياغة خطة بحث دقيقة وفعّالة، مما يعزز من جودة البحث وموثوقية نتائجه. https://www.sanadkk.com/blog/post/2669/%D9%85%D8%A7-%D9%87%D9%88-%D8%A7%D9%84%D9%81%D8%B1%D9%82-%D8%A8%D9%8A%D9%86-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D8%A7%D9%84%D9%83%D9%85%D9%8A-%D9%88%D8%A7%D9%84%D9%86%D9%88%D8%B9%D9%8A.html

تقدم شركة سندك للاستشارات الأكاديمية والترجمة دعماً متميزاً للباحثين، مع الاعتماد على مصادر متنوعة مثل ملخص حول مناهج بحث علمي ومناهج البحث العلمي doc لتسهيل الوصول إلى المعلومات بأسلوب منظم، كما يمكن الاستفادة من ملخص حول مناهج البحث العلمي pdf ومناهج البحث العلمي pdf كمرجع شامل لدعم الدراسات العلمية، وتعد خدمة إعداد منهجية البحث العلمي من الأدوات الأساسية التي تساعد الباحث على صياغة منهجية دقيقة واحترافية، مما يضمن جودة الدراسة وموثوقية النتائج. https://www.sanadkk.com/blog/post/2670/%D9%85%D9%84%D8%AE%D8%B5-%D8%AD%D9%88%D9%84-%D9%85%D9%86%D8%A7%D9%87%D8%AC-%D8%A8%D8%AD%D8%AB-%D8%B9%D9%84%D9%85%D9%8A.html

توفر شركة سندك للاستشارات الأكاديمية والترجمة دعماً متكاملاً للباحثين، مع الاعتماد على مصادر موثوقة مثل مناهج البحث العلمي pdf لتسهيل الوصول إلى المعلومات، كما تُعد خدمة إعداد منهجية البحث العلمي من الأدوات الأساسية التي تساعد الباحث على تنظيم دراسته بكفاءة. وتشمل الدراسات أيضًا مقارنة شاملة بين البحث النظري والبحث التطبيقي، مع توفير ملفات مرجعية مثل البحث النظري والبحث التطبيقي PDF، ويهتم الباحثون أيضًا بـ خصائص البحث النظري لفهم أبعاده وأهدافه بدقة، مما يعزز من جودة البحث ويضمن موثوقية النتائج. https://www.sanadkk.com/blog/post/2671/%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D8%A7%D9%84%D9%86%D8%B8%D8%B1%D9%8A-%D9%88%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D8%A7%D9%84%D8%AA%D8%B7%D8%A8%D9%8A%D9%82%D9%8A.html

تتنوع أنواع مناهج البحث العلمي وتقدم للباحث أدوات مختلفة لفهم ودراسة الظواهر، مع وجود المناهج الفرعية في البحث العلمي التي تدعم التخصص والتعمق في المجالات المختلفة. يمكن الاطلاع على بحث حول مناهج البحث العلمي pdf للحصول على أمثلة عملية ودراسات موثوقة، كما توفر شركة سندك للاستشارات الأكاديمية والترجمة خدمات متخصصة في هذا المجال، بالإضافة إلى ذلك، توجد مصادر متنوعة مثل مناهج البحث العلمي pdf التي تساعد الباحث على الوصول إلى المعلومات بسهولة، وتُعد خدمة إعداد منهجية البحث العلمي من الخدمات الأساسية التي تدعم الباحثين في إعداد دراساتهم بشكل احترافي ومنظم. https://www.sanadkk.com/blog/post/2672/%D8%A3%D9%86%D9%88%D8%A7%D8%B9-%D9%85%D9%86%D8%A7%D9%87%D8%AC-%D8%A7%D9%84%D8%A8%D8%AD%D8%AB-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A.html

الاساتذه الكرام السلام عليكم ورحمة الله وبركاتة لدي نموذجين الرئيسي اسمه FMBoxCustomersMain ويوجد به خيار ch1 ونموذج فرعي اسمه FMBoxCustomersSup ويوجد به حقل اسمه text2 المطلوب عندما يكون خيار ch1 يساوي true تختفي السجلات التي قيمتها صفر في المربع (text2) في النموذج الفرعي وعندما يكون خيار ch1 يساوي false تظهر جميع السجلات سوى قيمتها صفر او اكبر من الصفر في النموذج الفرعي وشاكر للجميع اظهار واخفاء السجلات حسب قيمة الحقل.rar

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

الاختصارات متعطلتش بس النسخة عملت اختصارات جديدة . ويندوز 10 بتستخدم Ctrl Insert بدل Ctrl C . علشان كده أفضل حل إعادة تعيين الاختصارات يدويًا . ازاي ترجع اختصارات ويندوز 10 زي ما كانت على 7