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

السلام عليكم مبروك عليك أخي شفان ترقيتك الى "عضو محترف" ، تستاهل جعفر

الــدرس الثاني : الجملة الشرطية ( IF ) تعتبر الجملة IF من أشهر الجمل الشرطية و أكثرها استعمالا في جميع لغات البرمجة ولها عدة صيغ كلها تبدأ بــIf و تنتهى بكلمة End If ما عدى صيغة واحدة. وتستخدم الجملة IF لتنفيذ عمليات معينة حسب شرط محدد, يعني إذا تحقق الشرط ينفذ و إلا فلا. طرق استعمال الجملة ((if: 1- الصيغة ( If –Then ) : - وصيغتها العامة : IF condition THEN statements - ومعنى هذه الصيغة : انه اذا تحقق الشرط (condition ) فسيتم تنفيذ الامر ( statements ) مثال : " مسن" IF age >=65 THEN category = 2- الصيغة ( If – Then – End If ) : صيغتها العامة : IF condition THEN statements1 Statements2 END IF تقوم هذه الصيغة بتنفيذ مجموعة من الاوامر اذا تحقق الشرط (Condition) بدلا من تنفيذ امر واحد. مثال : If age >= 25 Then category ="شباب" travail ="السن مقبول" End if 3- الصيغة ( If – Then – Else ) : صيغتها العامة : If condition Then statements1(التعليمات المنفذة في حال تحقق الشرط ) Else statements2(التعليمات المنفذة في حال عدم تحقق الشرط) End If - هذه الصيغة تنفذ مجموعة الأوامر (statements1 ) عندما يتحقق الشرط (condition ) و عندما لا يتحقق الشرط فإنها تنفذ مجموعة الأوامر (Statements2). مثال : If grade >= 50 Then Text1 ="ناجح" Else Text1 ="راسب" End If 4- الصيغة ( If – Then –ElseIf ) : - صيغتها العامة : If condition1 Then statements1( التعليمات المنفذة في حال تحقق الشرط الأول) ELSEIF condition2 THEN statements2(التعليمات المنفذة في حال عدم تحقق الشرط الأول و تحقق الشرط الثاني) ELSE statements2(التعليمات المنفذة في حال عدم تحقق جميع الشروط السابقة) End If مثال : If grade >= 90 Then Text1 ="ممتاز" ElseIf grade >= 80 Then Text1 ="جيد جدا" ElseIf grade >= 70 Then Text1 ="جيد" ElseIf grade >= 60 Then Text1 ="مقبول" Else Text1 ="راسب" End If ملاحظات: - في الصيغة الأخيرة ( If – Then –ElseIf ) اذا تحقق احد الشروط فان البرنامج ينفذ العملية ثم يذهب الى نهاية الجملة و لا يتحقق من الشروط الباقية. - في حالة أردنا إستعمال شرطين معا أو أكثر نستعمل العبارة And. - في حالة أردنا تحقق أحد شرطين ليتم تنفيذ العملية نستعمل Or

أخى الكريم / أبو حنين طبعا بعد المعادلتين الرائعتين لأستاذى الكبير / بن عليه حاجى والأستاذ الحبيب / الشهابي حبيت أشارك فلم أجد أروع من تلك المعادلتين ،، فضفت قائمة منسدله مترابطه بين ( مكان التدريب ورقم الموظف ) تدريب3.rar

الموضوع : كود ترحيل البيانات بشكل مميز سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة أبدأ بفنح ملف أكسيل جديد : قم بتسمية ورقة العمل الاولى بأسم ادخال بيانات والورقة الثانية فواتير ثم فى صفحة العمل الاولى والتى تسمى بـ ادخال البيانات قوم بتصميم جدول كما هو موضح فى الصورة ثم تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال : ----------------------------------------------------- اصدار 2003 من مربع أدوات التحكم > ادارج زر ------------------------------------------------------ اصدار 2007 من المطور > ادراج زر ------------------------------------------------------- وفى الصفحة الثانية التى تم تسميتها باسم فواتير نصممها على هذا الشكل بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود من خلال اختيار وضع التصميم والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق ) الجزء الاولى من الكود الجزء الثانى من الكود الجزء الثالث من الكود الجزء الرابع من الكود الجزء الخامس من الكود الجزء السادس والأخير ملاحظة : الكود يرحل بترتيب الادخال . لتحميل الشرح مصور + ملف المثال + الكود من هنا فى النهاية أسالكم الدعاء اذا افادكم ذلك

لدي حقل محسوب واريد عمل ربط علاقة مع حقل اخر حيث ان الحقل المحسوب نشاء من رقم حساب بنكي يتكون من 15 خانة وتم عمل له اختصار الى 6 خانات وعند الكشف يظهر لنا الايبان ويتكون من 22 خانة وتم عمل اختصار الى 6 خانة والان اريد ربط الحقلين راس مثال 346608010524632 هذا الرقم موجود لدي بينما الرقم الاخر وهو بالكشف البنكي 346000006080524632 والذي عملته اني اختصرت الرقم الاول 3460524632 واختصرت الرقم الاخر الموجود بالكشف البنكي 3460524632 هنا تم الانتهاء من الاختصار والمطلوب هو كيف اربط راس باطراف

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

أخي العزيز / أبو حنين أولا : المعادلة السابقة فيها خطأ وهي خاصة بالورقة (cairo) وأما الصحيحة هي : =SUMPRODUCT(--(INDIRECT(CONCATENATE(N1;"!";"B4:B10"))=N2)*(INDIRECT(CONCATENATE(N1;"!";"D4:D10"))=H19);(INDIRECT(CONCATENATE(N1;"!";"G4:G10")))) ثانياً : شرح المعادلة تم استعمال دالة (CONCATENATE) من عمل مرجع من اسم الورقة المأخوذ من الخلية (N1 )حيث كلما تغير اسم الورقة سوف تتغير في المعادلة تبعاً لذلك وكذلك مرجع النطاق الذي سنحتاج إليه في الدالة (SUMPRODUCT ) والنطاق الأول ("B4:B10") والثاني ("D4:D10") والثالث ("G4:G10") ويوضع بين علامتي تنصيص وأيضا قبله علامة التعجب ("!") الفاصلة بين اسم الورقة والنطاق ويمكن الاستغناء عن الدالة (CONCATENATE ) بعلامة العطف (&) لتقوم بنفس العمل حيث تصبح المعادلات هكذا =CONCATENATE(N1;"!";"B4:B10") =CONCATENATE(N1;"!";" D4:D10") =CONCATENATE(N1;"!";" G4:G10") ثم تم استعمال الدالة (INDIRECT) والذي تستخدم للإشارة إلى مرجع معين وهو هنا المرجع الذي تم عمله في المعادلة السابقة لتصبح المعادلات هكذا = INDIRECT(CONCATENATE(N1;"!";"B4:B10")) = INDIRECT(CONCATENATE(N1;"!";" D4:D10")) = INDIRECT(CONCATENATE(N1;"!";" G4:G10")) ومن ثم استعمال الدالة (SUMPRODUCT ) للحصول على النتيجة حيث تم استعمال شرطين الشرط الأول وهو المرجع ("B4:B10") الذي يمثل عمود الرقم المساوي لرقم الموظف في الخلية (N2) الشرط الثاني وهو المرجع ("D4:D10") الذي يمثل عمود اسم التدريب المساوي لاسم التدريب في الخلية (H19) ويتم الفصل بينهما بعلامة الضرب (*) والذي تعمل عمل دالة (AND) المستعملة مع دالة (If) مثلا أو غيرها ويمكن استعمال علامة ( + ) وهي بمثابة (OR) وأما علامة الفاصلة المنقوطة ( ; ) توضع هنا قبل النطاق المراد إرجاع النتيجة منه وهو هنا ("G4:G10") وبالتالي حصلنا على المعادلة المطلوبة إن شاء الله أكون وفقت في شرح المعادلة

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

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

الف مبروك عليك الترقية ربي يخليك يارب

وفقك الله أخانا العزيز شافان

سوباس دةكةم براكةم شكرا اخي Thank you شكرا كثيرا اخي ابو رحيل

مبروك الأخ شيفان واصل التألق

مبروك اخى پيرۆزه‌ براكه‌م Congratulations brother you deserve it

السلام عليكم ما كنت ادري ان الموضوع راح يأخذ هذا الزخم!! استاذ شفان ، اسمح لي اتدخل واساعد عدد المواد لكل فصل تقدر تحصل عليه بالكود التالي (جزء من الكود عندك في المرفق ، ولكني اضفت عدد المواد في كل فصل): Function How_Many_Records() On Error GoTo err_How_Many_Records mySQL = mySQL & "[NAM_PARNAMG]=" & Me.NAM_PARNAMG mySQL = mySQL & " AND [taksos]=" & Me.taksos mySQL = mySQL & " AND [department]=" & Me.departmentT mySQL = mySQL & " AND [asm_college]=" & Me.asm_collegeT 'Debug.Print mySQL Me.How_Many = DCount("*", "Mokarar_drasi", mySQL) Me.fasl_derasi_1 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=1") Me.fasl_derasi_2 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=2") Me.fasl_derasi_3 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=4") 'This is it's Seq in field id_aam, Table Tarif_aam Me.fasl_derasi_4 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=5") 'This is it's Seq in field id_aam, Table Tarif_aam Exit Function err_How_Many_Records: If Err.Number = 3075 Then Me.How_Many = 0 Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function . وسأحاول انا ايضا ان انظر للموضوع ، لأني تعديت مرحلة الاستفسارات اللي لايزال الاستاذ شفان فيها جعفر

اتفضل testx.zip

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

كل الشكر الك اخ علي اليك مني هذا وشكرا

يستاهل الاخ / شفان الف مبروك ومنها للأعلى

الف مبروك اخ Shivan Rekany Félécittations en Francais congratulations in English تهانينا

ماشاء الله عليك اخوي صالح ، كفيت ووفيت ، وما بقيت لي شئ اكتبه التنسيق: وذلك بإستخدام زر الـ Tab (لتحريك السطر Indenting) ، و زر Enter (للإنتقال الى السطر التالي) تنسيق وتجميع مجموعات اللـ IF مهم ، وكلما كان تنسيقك افضل ، كلما قلّت اخطاءك ، وكلما استطعت الوصوت للخطأ بسرع في الصور كود لبرنامج أحد الاعضاء (واعتذر مسبقا من صاحب الاكواد) ، لاحظ طريقة عرض الكود ، بدون تنسيق ، وصعوبة معرفة بداية ونهاية الشرط IF : قبل التنسيق وسهولة القراءة بعد التنسيق . اما الكود التالي ، فذكرني بالكاريكاتير "ابحث عن فضولي" ، وهنا نبحث عن بداية ونهاية الشرط IF : . وتم تعديل التنسيق (تغيير الكود هو للتوضيح) الى: . هناك شيئين في التنسيق ، الاول: لاحظ انه من السهل معرفة بداية ونهاية كل شرط ، وحتى الشروط المتداخلة في الشرط الاصلي ، اصبح من السهل معرفة بدايتها ونهايتها ، ونافذة الكود تخبرنا 1: على اي سطر نحن (Line, Ln) ، و 2: في اي عمود (Column, Col) ، مما يساعدنا في عملية التنسيق . ثانيا: لاحظ اني عندما اقفل الجملة الشرطية End If ، فاني اكتب تعليق خلفها ، وهذا التعليق مأخوذ من جزء من بداية الشرط IF ، هذا يسهل عليّ كثيرا معرفة بداية ونهاية الجملة الشرطية: . جعفر

شكرا لك يا استاذ القدير ابو حسين شكرا كثيرا شكرا لك اخي الحبيب سامي الضالعي شكرا لك شكرا كثيرا

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

اتفضل اخي Aziz (2).rar وعندما تعملي عملية نقر مزدوج راح يعود ان شاء الله

شكرا لك اخي واستاذي القدير شكرا كثيرا تحياتي لك

اتفضل اخي الكريم Aziz (2).rar

حاول فيها بالكود ، لأن زبائني ورائي وانا متأخر في العمل جعفر

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

اتفضل اخي الكريم من الافضل ان لا يستخدم هذه علامة ( - ) لتسمية مربعات النص او الحقول وبدل ذلك استخدم هذا ( _ ) و ايظا بيكون التسمية بيبدأ من حرف وليس الرقم 2017-2018.rar

أستاذ تشيفان هنا تجد ما تبحث عنه.

مثال على استعمال And: If UserName="أبو خليل" And Password=2017 Then MsgBox"مرحبا أستاذ أبو خليل" End If في هذا المثال إذا كان اسم المستخدم هو أبو خليل و كلمة المرور هي 2017 سوف يقوم البرنامج بعرض رسالة ترحيبية MsgBox"مرحبا أستاذ أبو خليل" و إذا إختل أحد الشرطين فلن يتم تنفيذ التعليمة. يعني لتنفيذ التعليمة يجب تحقق الشرطين في نفس الوقت. مثال على استعمال Or: If Died_Father=true Or Died_Mother=False Then MsgBox "يتيم" End If في هذا المثال يكفي تحقق أحد الشرطين ليتم تنفيذ التعليمة (رسالة تخبرنا بأن هذا الشخص يتيم) و إذا تحقق الشرطين معا أيضا يتم تنفيذ التعليمة إذا هناك شخص أبوه متوفي فهو يتيم و إذا كانت أمه متوفية فهو يتيم و إذا كان كلا والديه متوفيين فهو أيضا يتيم. ((((((اللهم أرحم جميع موتى المسلمين يا أرحم الراحمين يا رب العالمين))))))

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

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، أضف ما تريد من الشيتات المهم أن تكون بالتنسيق نفسه مثل شيتي cairo و Alex. وأن تضيف أسماء هذه الشيتات في القائمة المنسدلة في الخلية N1 (بالتطابق)... بن علية

ولو أردنا الكتابة في سطرين نكرر كتابة الكود التالي: Print #1, "اسمي هو: " Print #1, "الزباري" لتكون النتيجة كالتالي: أما إذا أردنا الكتابة في نفس السطر (العمود التالي) فإننا نضيف فاصلة كالتالي: Print #1, "اسمي هو: ", Print #1, "الزباري" لتكون النتيجة كالتالي:

Print #1, "مرحبا.. هنا منتدى أوفيسنا" ومن الممكن استبدال كلمة "print" ب "write" وكلهم يؤدون نفس الغرض كالتالي: write #1, "مرحبا.. هنا منتدى أوفيسنا"

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

السلام عليكم وبعد جهد جهيد توصلت الى هذا التقرير ، رجاء اعمل نسخة ، واعمل تجاربك على النسخة التقرير يحتوي على 20 مادة ، لذلك اضطررت ان العب في حجم الحقول قليلا ، وحسب عدد المواد التي تختارها ، فان اسماء المواد وعلاماتها تتسع لتملئ المكان بين الاسم والمجموع. . . . لا تزيد ولا تنقص في عرض واماكن الحقول ، ولا شعرة ، وإلا لن تلصق الحقول ببعضها كما يجب. طريقة العمل: 1. نخفي الحقول التي رقمها اكبر من عدد المواد ، 2. نأخذ المسافة بين الاسم والمجموع العام ، ثم نقسمه على عدد المواد ، وعليه نعطي كل حقل نصيبه من القسمة الكود: في النموذج ، حسبنا عدد المواد الموجودة ، وذلك على حدث بعد التحديث لمربعات التحرير (المربع باللون البرتقالي في النموذج ، ويمكنك اخفاءه): Function How_Many_Records() On Error GoTo err_How_Many_Records mySQL = mySQL & "[NAM_PARNAMG]=" & Me.NAM_PARNAMG mySQL = mySQL & " AND [taksos]=" & Me.taksos mySQL = mySQL & " AND [department]=" & Me.departmentT mySQL = mySQL & " AND [asm_college]=" & Me.asm_collegeT 'Debug.Print mySQL Me.How_Many = DCount("*", "Mokarar_drasi", mySQL) Exit Function err_How_Many_Records: If Err.Number = 3075 Then Me.How_Many = 0 Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function . ثم في التقرير ، وعلى قسم التفصيل ، ورأس مجموعة التخصص: Option Compare Database Private Factor As Single Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next Limit = Forms!AS_nataeg_tolap!How_Many If Limit = 20 Then Exit Sub Visited_Detail = Visited_Detail + 1 'make the other fields, in-visible Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Then Type1 = Replace(ctl.Name, "N", "") Type2 = Replace(Type1, "tt_", "") If Val(Type1) > Limit Or Val(Type2) > Limit Then ctl.Visible = False Else ctl.Visible = True End If 'IsNull End If 'ControlType Next ctl Me.Ctl1N.Left = Me.Ctl1.Left: Me.Ctl1N.Width = Me.Ctl1.Width Me.Ctl2N.Left = Me.Ctl2.Left: Me.Ctl2N.Width = Me.Ctl2.Width Me.Ctl3N.Left = Me.Ctl3.Left: Me.Ctl3N.Width = Me.Ctl3.Width Me.Ctl4N.Left = Me.Ctl4.Left: Me.Ctl4N.Width = Me.Ctl4.Width Me.Ctl5N.Left = Me.Ctl5.Left: Me.Ctl5N.Width = Me.Ctl5.Width Me.Ctl6N.Left = Me.Ctl6.Left: Me.Ctl6N.Width = Me.Ctl6.Width Me.Ctl7N.Left = Me.Ctl7.Left: Me.Ctl7N.Width = Me.Ctl7.Width Me.Ctl8N.Left = Me.Ctl8.Left: Me.Ctl8N.Width = Me.Ctl8.Width Me.Ctl9N.Left = Me.Ctl9.Left: Me.Ctl9N.Width = Me.Ctl9.Width Me.Ctl10N.Left = Me.Ctl10.Left: Me.Ctl10N.Width = Me.Ctl10.Width Me.Ctl11N.Left = Me.Ctl11.Left: Me.Ctl11N.Width = Me.Ctl11.Width Me.Ctl12N.Left = Me.Ctl12.Left: Me.Ctl12N.Width = Me.Ctl12.Width Me.Ctl13N.Left = Me.Ctl13.Left: Me.Ctl13N.Width = Me.Ctl13.Width Me.Ctl14N.Left = Me.Ctl14.Left: Me.Ctl14N.Width = Me.Ctl14.Width Me.Ctl15N.Left = Me.Ctl15.Left: Me.Ctl15N.Width = Me.Ctl15.Width Me.Ctl16N.Left = Me.Ctl16.Left: Me.Ctl16N.Width = Me.Ctl16.Width Me.Ctl17N.Left = Me.Ctl17.Left: Me.Ctl17N.Width = Me.Ctl17.Width Me.Ctl18N.Left = Me.Ctl18.Left: Me.Ctl18N.Width = Me.Ctl18.Width Me.Ctl19N.Left = Me.Ctl19.Left: Me.Ctl19N.Width = Me.Ctl19.Width Me.Ctl20N.Left = Me.Ctl20.Left: Me.Ctl20N.Width = Me.Ctl20.Width Me.tt_1n.Left = Me.Ctl1.Left: Me.tt_1n.Width = Me.Ctl1.Width Me.tt_2n.Left = Me.Ctl2.Left: Me.tt_2n.Width = Me.Ctl2.Width Me.tt_3n.Left = Me.Ctl3.Left: Me.tt_3n.Width = Me.Ctl3.Width Me.tt_4n.Left = Me.Ctl4.Left: Me.tt_4n.Width = Me.Ctl4.Width Me.tt_5n.Left = Me.Ctl5.Left: Me.tt_5n.Width = Me.Ctl5.Width Me.tt_6n.Left = Me.Ctl6.Left: Me.tt_6n.Width = Me.Ctl6.Width Me.tt_7n.Left = Me.Ctl7.Left: Me.tt_7n.Width = Me.Ctl7.Width Me.tt_8n.Left = Me.Ctl8.Left: Me.tt_8n.Width = Me.Ctl8.Width Me.tt_9n.Left = Me.Ctl9.Left: Me.tt_9n.Width = Me.Ctl9.Width Me.tt_10n.Left = Me.Ctl10.Left: Me.tt_10n.Width = Me.Ctl10.Width Me.tt_11n.Left = Me.Ctl11.Left: Me.tt_11n.Width = Me.Ctl11.Width Me.tt_12n.Left = Me.Ctl12.Left: Me.tt_12n.Width = Me.Ctl12.Width Me.tt_13n.Left = Me.Ctl13.Left: Me.tt_13n.Width = Me.Ctl13.Width Me.tt_14n.Left = Me.Ctl14.Left: Me.tt_14n.Width = Me.Ctl14.Width Me.tt_15n.Left = Me.Ctl15.Left: Me.tt_15n.Width = Me.Ctl15.Width Me.tt_16n.Left = Me.Ctl16.Left: Me.tt_16n.Width = Me.Ctl16.Width Me.tt_17n.Left = Me.Ctl17.Left: Me.tt_17n.Width = Me.Ctl17.Width Me.tt_18n.Left = Me.Ctl18.Left: Me.tt_18n.Width = Me.Ctl18.Width Me.tt_19n.Left = Me.Ctl19.Left: Me.tt_19n.Width = Me.Ctl19.Width Me.tt_20n.Left = Me.Ctl20.Left: Me.tt_20n.Width = Me.Ctl20.Width End Sub Private Sub taksos_Header_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next Limit = Forms!AS_nataeg_tolap!How_Many Starting_Point = Me.lbl_Total.Left + Me.lbl_Total.Width Me.fasl_derasi = "الفصل الدراسي " & Forms!AS_nataeg_tolap!fasl_derasi.Column(1) If Limit = 20 Then Exit Sub 'make the other fields, in-visible Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acComboBox Then If Val(ctl.Name) > Limit Then ctl.Visible = False Else ctl.Visible = True End If 'IsNull If Val(ctl.Name) = Limit Then Factor = (ctl.Left - Starting_Point) / Limit End If 'ControlType Next ctl 'Debug.Print "Header" 'move and stretch fields For i = Limit To 1 Step -1 For Each ctl In Report.Controls If ctl.ControlType = acComboBox And Val(ctl.Name) = i Then ctl.Left = Starting_Point ctl.Width = ctl.Width + Factor Starting_Point = ctl.Left + ctl.Width Exit For 'Debug.Print ctl.Name & vbTab & ctl.Left & vbTab & ctl.Width End If 'ControlType Next ctl Next i End Sub . جعفر 533.1.db5.mdb.zip

أخي العزيز / أبو حنين إضافة لحل أستاذنا الكبير بن علية حاجي حفظه الله آمين هذه المعادلة قمت بإعدادها فأحببت أن أشارك بها لإثراء الموضوع =SUMPRODUCT(--(INDIRECT(CONCATENATE("cairo";"!";"B4:B10"))=N2)*(INDIRECT(CONCATENATE("cairo";"!";"D4:D10"))=H19);(INDIRECT(CONCATENATE("cairo";"!";"G4:G10")))) تحياتي لك ولأستاذنا بن علية

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، استعملت الدوال OFFSET ، INDIRECT ، MATCH بدلا من الدالة VLOOKUP في معادلة صفيف... أرجو أن تفي الغرض المطلوب... بن علية تدريب.rar

اتفضل لكن بدل ان اعمل زر عمل لدبل كليك على اي دفع من اربع الادفاع لسجل محدد راح يحذفه و يحذف تاريخه مع تقدير اليك ملفك بعد تعديل Database1 (4).rar

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

عندنا استعلامين الاول باسم search والثاني باسم search1 الاستعلام الاول باسم search بياخذ كل سجلات لجدول main اللي في حقل kk علامة صح اي true وخلينا هذا النموذج مصدر التقرير لكي التقرير بيظهر اي سجل بها علامة صح وهذا هو تقريرنا وهذا استعلامنا باسم search وشوف نموذجنا الفرعي باسم searcu_sub وشوف مصدره هو استعلام اخر باسم search1 وهذا هو استعلامنا search1 اللي هو مصدر نموذج الفرعي searcu_sub بيأخذ كل سجلات من جدول ماين شوف اتمنى ان يوصل لك المفهوم مع تقدير

اليك نموذج للاخت الفاضلة ( زهرة ) - ( ام عهود ) خذت من منتدى فريق العربي للبرمجة حين يفتح النموذج راح يغير ريسوليشن الشاشة وحين تغلق الفور راح يرجع الى المسبق واذا احتجت بشيء اضافي وافينا لعل نكدر نساعدك اكثر مع تقدير za-ChangeResolution-UP.rar

تفضل

أخي الفاضل أنا تابعت موضوعك هذا من بدايته ولكنه لا يفي بالغرض المطلوب هنا فموضوعك عند الإنتقال إلي جهاز أخر يتغير حجم النماذج ) ولكن المطلوب هنا هو ( تغير حجم الشاشة لملائمة النموذج ) بمعني أنه بمجرد تشغيل البرنامج تتغير مقاسات الشاشة حسب عرض النموذج وليس العكس )

السلام عليكم. تابعوا هذا الموضوع أظن به حل لمشكلتكم

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

السلام عليكم ورحمة الله وبركاته إخواني الأحباب الأعزاء والمقربين من قلبي أقدم لكم اليوم موضوع مفيد إن شاء الله ، ألا وهو مقارنة عمودين وسيكون باستخدام التنسيق الشرطي ، لتلوين القيم المميزة أو القيم الفريدة في العمودين ، وكذلك لتلوين القيم المتشابهة في كلا العمودين أترككم مع الفيديو (ولا تنسونا من صالح دعائكم ..فبفضل الله ثم بفضل دعائكم نحيا في هذه الدنيا) كما لا تنسونا من اللايكات .. رابط الفيديو .. مرفق لكم ملف الشرح للتدريب عليه تقبلوا تحياتي ..أخوكم أبو البراء Compare Lists.rar

إخوتي الأعزاء تجولوا وجربوا .... ولا تنزعجوا من التلميحات و الرسائل فهي ضوابط وصمام أمان من سوء الاستخدام يوم العطلة الاسبوعية الجمعة فقط .... والكل متاح آراؤكم تثريني .... والله من وراء القصد .... ...............