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

يا ياسر فكرتنى بحكاية لطيفة جماعة قالوا لواحد : تقدر تشيل الخروف ده ؟ قال لهم : آآآآآآآه هاتو الخروف ده هو فين ؟ هو فين و أنا أشيل أمه ؟ قام الجماعة جابو الخروف للراجل وقالوا الخروف اهه تفضل اهه الراجل ميل كتفه عشان يشيل الخروف مقدرش فقالوا له : هــــــــــــــا ! قال : معلش أنا مولف على شيل الجمال ! و الله أنت يا ياسر ابن حلال ضحكتنى بجد تحياتى لك و لعبدالعزيز

برنامح لتسجيل كشوف 12 د إلكترونيا ... كل عام وانم بخير كشوف 12 د.rar

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

اهداء للمنتدى الغالى برنامج المصروفات برنامج المصروفات.rar

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

يا أبو العربى يبقى ايه ؟؟؟؟ ان شاء الله صدقة مش كمان ننا استفسار : هو الملف التنفيذى قابل للكسر ؟ ما جربتش قبل كده !

أخى عبدالعزيز اجابة على سؤالك : نعم يمكن ازالة كلمة المرور بمحرر الأكواد فقط ارفع الملف للعمل عليه

ملاحظ عدد المواد تختلف للصف الرابع والصف الثالث ؟ هل ممكن تحط امثله للصفوف التي تتعامل معها مثال : ورقة للصف الاول والثاني والثالث الخ ... حتى اعرف فروقات اعمدة المواد واحط شروط ع الكود

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

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

معلش عشان أقول كل شىء صعب لكن أقدر أقولك باختصار الفكرة أى تغير فى التكست بوكس firstname يجعل التكست بوكس autoNumber يزيد 1 على آخر مسلسل فى الشيت الخلية AA2 فى الشيت بتاخد قيمتها من التكست بوكس Qawmi فى الفورم الذى تضع به الرقم القومى الخلية AB2 فيها معادلة نستدعى فيها الدالة Function A_ID وتطلع تاريخ الميلاد من الخلية AA2 التى بها الرقم القومى ( المتغير T تكون قيمته 2 فى المعادلة) التاريخ الذى يظهر فى هذه الخلية بياخده التكست بوكس BrirthDate فى الفورم الخلية AF2 فيها معادلة نستدعى فيها الدالة Function A_ID وتطلع النوع من الخلية AA2 التى بها الرقم القومى ( المتغير T تكون قيمته 3 فى المعادلة) النوع الذى يظهر فى هذه الخلية بياخده التكست بوكس Gender فى الفورم الخلية AC2 و AD2 و AE2 نستخدم فيها معادلة DATEDIF لحساب السن ( أيام - شهور - سنوات ) من الخلية AB2 التى بها تاريخ الميلاد والقيم الناتجة فى هذه الخلايا تظهر فى الفورم وبكده يكون الفورم به كل البيانات التى تصدر الى الشيت مرة أخرى بالنسبة للصور كما وضحت فى المشاركات السابقة أرجو أن يكون الشرح وافى

أشكرك أخى الكريم على كلماتك . سبحان الله جائتنى فكرة اليوم نفذت بها طلبك الأول قم بانشاء مجلد جديد وسميه Image وضع بداخله صورا بامتداد jpg وسمى هذه الصور 1 2 3 4 5 وهكذا وضع المرفق ده بجوار مجلد الصور Image 4 تاريخ الميلاد والسن والنوع.rar

بسم الله الرحمن الرحيم ميزه وخاصية ممتازه وهى Flash Fill Excel 2013 (تعبئة سريعة) تغنيك عن استخدام صيغ ومعادلات ..الخ . اتمنى ان تفيدكم . ولاتنسونا بصالح دعاؤكم https://www.youtube.com/watch?v=OZyrmcInZLU flash fill.rar

اولا يامعلم ياحبيبي عبد العزيز مع انك دوختني وتقولي انه معمول بالاكسيل انما انت حبيبي وهوضح ليك الحكاية برنامج الفيجوال بيسك دا يعتبر لغة برمجة من لغات كتيررررر جدا vb6,c++,vb.net,As-sembly,c#,php,java,sql,oracel, وفي غيرها كتيررر المهم خلينا في الفيجوال بيسك 6 عارف انت محرر الاكواد بتاع الاكسيل اللي بنخش عليه ونعمل فورم ونحط تكست بوكس وزرار وليست بوكس وتعمل صفحة الويب بتاعتك دي وتعمل فيها النص المتحرك دا المحرر دا بقي يعتبر جزء من الفيجوال بيسك مدمج مع مجموعةالاوفيس وهي VBA طبعا برنامج الفيجوال دا ممكن نعمل بيه اي برنامج زي مثلا برنامج تشغيل موسيقي او فيديو او نعمل بيه العاب او اي تطبيقات احنا محتاجنها وطبعا دا بيعمل ملفات تنفيذية يعني اي مشروع داخل البرنامج بنحوله لملف تنفيذي علي طول

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

ممكن بغير كود اتبع الشرح في المرفق شرح_111.rar

السلام عليكم اختى الكريمة تم الرد على موضوعك السابق بأكثر من حل ؟ على العموم تفضلي المرفق وبه الكود اكتبي التاريخ في خلية B3 وانقري انتر تحياتي كود انتقال_111.rar

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

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

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

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

السلام عليكم ورحمة الله وبركاته بعد ان تصنع ملفك كاملا تستطيع مراحعه معادلاتك والدوال الموجوده فى ملفك جرب وقول رايك فى الكود الكود منقول للامانه العلمية Option Explicit Sub ListAllFormulas() Dim sh As Worksheet Dim cell As Range Dim nextrow As Long Application.ScreenUpdating = False With ActiveWorkbook On Error Resume Next Set sh = .Worksheets("Formula List") On Error GoTo 0 If sh Is Nothing Then .Worksheets.Add After:=.Worksheets(.Worksheets.Count) .ActiveSheet.Name = "Formula List" Else sh.Cells.ClearContents End If With .Worksheets("Formula List") .Range("A1:C1").Value = Array("Sheet", "Cell", "Formula") nextrow = 1 For Each sh In ActiveWorkbook.Worksheets If sh.Name <> "Formula List" Then For Each cell In sh.UsedRange If cell.HasFormula Then nextrow = nextrow + 1 .Cells(nextrow, "A").Value = sh.Name .Cells(nextrow, "B").Value = cell.Address .Cells(nextrow, "C").Value = "'" & cell.Formula End If Next cell End If If .Cells(nextrow, "A").Value = sh.Name Then nextrow = nextrow + 1 Next sh .Columns("A:C").AutoFit End With End With Application.ScreenUpdating = True end sub الكود يصنع ورقة باسم " Formula List بها المعادلات واسم الخلية والورقة الموجود بها المعادله

البرنامج دا غير البرامج اللي جربت عليها بس هجيب امه ان شاء الله قول يارب

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

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

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

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

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

حسب ما فهمت تريد أن يختار المستخدم القيمة من الخلية B1 يمكن للمستخدم أن يختار القيمة من الخلية B1 أو أى خلية أخرى بها نسبة مئوية حسب الكود التالى : Sub yellow_cell3() Dim LR As Long, X As Integer, S LR = Cells(Rows.Count, 1).End(3).Row With Range("B2:B" & LR) .ClearContents .Interior.Pattern = xlNone End With Range("B4").Interior.ColorIndex = 6 ' حدد الخلية المراد تخطيها هنا Set S = Application.InputBox("حدد الخلية التى تريد الحساب على أساسها :", Title:="حساب النسبة المئوية", Type:=8) Application.ScreenUpdating = False Range("XFD1") = S For X = 2 To LR If Cells(X, 2).Interior.ColorIndex <> 6 Then Cells(X, 2).Formula = "=ROUNDDOWN((RC[-1]*INDIRECT(""XFD1"")),2)" End If Next Range("B2:B" & LR).Value = Range("B2:B" & LR).Value Application.ScreenUpdating = True End Sub

اذهب الى العمودين Z و X ستجد هناك معادلات تساعدك على اتمام الامر عليك تعديلها فقط حسب المطلوب اعمل نسخة احتياطية عن الملف قبل البدء بأي عمل تلافياً للأخطاء

بالطبع لا و انتظر رأى الزملاء قد يكون لدى أحدهم طريقة أخرى

السّلام عليكم و رحمة الله و بركاته أضحكتني .. أضحك الله سِنّك .. اِعتبرها صدَقة لهذا اليوم جرّبت و جرّبت .. حاولت عديد المرّات لغاية الجمعة .. يوم العطلة .. فقلت خلاصْ .. لا بدّ من الاستعانة بأحد المكسِّرين الأقوياء بارك الله فيك .. جزاك الله خيرًا أستاذي الفاضل " مختار حسين محمود " و زادك من علمه و فضله فائق إحتراماتي سيّدي الكريم

جرب هذا الملف المصنف1 salim.zip

م/ياسر فتحى شرفنى مرورك يا هندسه تقبل تحياتى كود اخر يؤدى نفس الغرض بطريقة منظمة Option Explicit Public Sub ListFormulasInWorkbook() ' by J.E. McGimpsey ' revised 04 July 2003 by Tom Ogilvy to add ' sheets when reaching ROWLIM formulas Const SHEETNAME As String = "Formulas in *" Const ALLFORMULAS As Integer = _ xlNumbers + xlTextValues + xlLogical + xlErrors Const ROWLIM As Long = 65500 Dim formulaSht As Worksheet Dim destRng As Range Dim cell As Range Dim wkSht As Worksheet Dim formulaRng As Range Dim shCnt As Long Dim oldScreenUpdating As Boolean With Application oldScreenUpdating = .ScreenUpdating .ScreenUpdating = False End With shCnt = 0 ListFormulasAddSheet formulaSht, shCnt ' list formulas on each sheet Set destRng = formulaSht.Range("A4") For Each wkSht In ActiveWorkbook.Worksheets If Not wkSht.Name Like SHEETNAME Then Application.StatusBar = wkSht.Name destRng.Value = wkSht.Name Set destRng = destRng.Offset(1, 0) On Error Resume Next Set formulaRng = wkSht.Cells.SpecialCells( _ xlCellTypeFormulas, ALLFORMULAS) On Error GoTo 0 If formulaRng Is Nothing Then destRng.Offset(0, 1).Value = "None" Set destRng = destRng.Offset(1, 0) Else For Each cell In formulaRng With destRng .Offset(0, 1) = cell.Address(0, 0) .Offset(0, 2) = "'" & cell.Formula .Offset(0, 3) = cell.Value End With Set destRng = destRng.Offset(1, 0) If destRng.row > ROWLIM Then ListFormulasAddSheet formulaSht, shCnt Set destRng = formulaSht.Range("A5") destRng.Offset(-1, 0).Value = wkSht.Name End If Next cell Set formulaRng = Nothing End If With destRng.Resize(1, 4).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 5 End With Set destRng = destRng.Offset(1, 0) If destRng.row > ROWLIM Then ListFormulasAddSheet formulaSht, shCnt Set destRng = formulaSht.Range("A5") destRng.Offset(-1, 0).Value = wkSht.Name End If End If Next wkSht With Application .StatusBar = False .ScreenUpdating = oldScreenUpdating End With End Sub

حاضر معنا .. فتبهرنا بمشاركاتك و حلولك المميّزة البديعاتْ تغيب عنّا لأيّام .. فتأتينا بالجديد و الأفكار و الأكواد المبهراتْ بسم الله تبارك الله جزاك الله خيرًا أستاذي القدير " مختار حسين محمود " بارك الله فيك و زادك من علمه و فضله فائق إحتراماتي و إعجاباتي

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

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

اخى محمد الريفى جزاك الله خيرا وفقكم الله

ودى فكرتى المتواضعة للوصول للنتيجة المطلوبة مع إضافة كود حدث قبل التحديث للفورم لو رقم الملف خالى او الاسم خالى لا يتم حفظ البيانات في الجدول حتى لا يتم احتساب بيانات غير كاملة program- UPDATE.rar وده تعديلى باظهار الرسالة التي تفيد وتوضح رقم الملف السابق ان وجد بالاسم الذى تم اضافته لرقم الملف هذا في رسالة بعد تحديث رقم الملف واهم شيء إضافة اللمسة الرمهانية على التعديل program- UPDATE2.rar

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

معلومة جميلة ومفيدة جدا أخى الحبيب الغالى أ / محمد الريفى يجهلها الكثير جزاك الله خيرا

سادساً :- التعامل مع العناصر الموجوده داخل الــ Frame بطرق احترافيه فى البدايه يبدو ان العنوان غريب وغير مفهوم خليك معايا خطوه خطوه هتفم يعنى ايه الكلام ده شاهد الصوره التاليه دا فورم فى مرحلة التصميم وزى ما انتم شايفين يوجد زر اخضر اسمه Test وهو عباره عن Label ويوجد ايضا عدد 2 تكست بوكس وعدد 2 كمبو بوكس المطلوب انا عايز اعمل كود عند الضغط على الزر الاخضر اثناء عمل الفورم يقوم الكود بعمل اختبار للعناصراللى من النوع تكست بوكس هل هى فارغه ام بها بيانات اذا كانت فارغه يعطينى رساله باسم التكست وكمان يجعل لون التكست احمر ازاى ننفذ الكلام ده اولا هو عايز الكود يتم تنفيذه عند الضغط على الزر الاخضر حلو اوى طيب الزر الاخضر ده عباره عن ايه ؟ شوف الصوره هتلاقى ان الخاصيه Name هى Label1 اذن الكود هيكون كالتالى Private Sub Label1_Click() 'مكان وضع الكود المراد تنفيذه End Sub ما هو الكود المراد تنفيذه ؟ هو اختبار العناصر هل هى من النوع تكست بوكس أم لا واذا كانت من النوع تكست بوكس هل هى بها بيانات ام لا واذا تبين ان العنصر من نوع التكست بوكس ولا يوجد به بيانات اظهرلى رساله باسم العنصر وكمان اجعل العنصر لونه احمر أول شئ علشان اختبر كل العناصر اللى على الفورم واشوف نوعها اذن لازم اعرف متغير من نوع Control لان انا هتعامل مع العناصر Dim a As Control هنا سميت المتغير اسم a ( وطبعا يمكن تسمية اى اسم كيفا شئت ) وقلت اى المتغير a ده عباره عن عنصر تحكم ( قد يكون لليبل او تكست بوكس او كمبوبوكس او ليست بوكس او فريم او تشيك بوكس وغيرها من العناصر ) فعلشان الف على كل العناصر اللى موجوده على الفورم يبقى لازم الحلقه التكراريه For Each Private Sub Label1_Click() Dim a As Control For Each a In Me.Controls ' مكان اختبار العنصر اذا كان من النوع تكست بوكس وايضا هل هو فارغ من البيانات Next a End Sub عملت حلقه For Each للمتغير a وقلت ان a ده هو عباره عن عنصر تحكم موجود على الفورم Me.Controls Me هنا عايده على عناصر الفورم ازاى بقى اعمل اختبار للعناصر هل هى من النوع تكست بوكس و هل هى بها بيانات ام لا اذن هستخدم if Then If TypeOf a Is msForms.TextBox And a = "" Then End If if تعنى لو الاختبار الاول هل العنصر من نوع التكست بوكس TypeOf a Is msForms.TextBox TypeOf تعنى نوع الــ a هو عنصر التحكم اللى بيتغير كل مره مع الحلقه For Each is يكون msForms.TextBox تكست بوكس الاختبار الثانى a = "" and تعنى ( و ) لعمل شرط ثانى a = "" عنصر التحكم فارغ Then تعنى نفذ التالى ( وطبعا قفلنا if بــ End if ) طيب لما الكود يختبر نوع العنصر ويلاقيه تكست بوكس وكمان يلاقيه فارغ ماذا ينفذ يجعل التكست بوكس لون الخلفيه احمر ويظهر لى رساله باسم العنصر If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 MsgBox "فارغ يرجى تعبئة التكست" & a.Name End If شاهد الكود بشكله النهائى Private Sub Label1_Click() Dim a As Control For Each a In Me.Controls If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 MsgBox "فارغ يرجى تعبئة التكست" & a.Name End If Next a End Sub هعملك مشهد تمثيلى لعمل الكود جوا دراما يعنى جايز الاقى فيكم مخرج يكتشفنى عند عمل الكود فى اول سطر هيخزن فى ذاكرته ان المتغير a هو عنصر تحكم ثم ياتى للسطر الثانى وهو For Each a In Me.Controls الحلقه هتجعل ان a هى Label1 هيروح للسطر اللى بعده يعمل اختبار بالــ if فهيلاقى ان a اللى هى دلوقتى ( Label1) مش من النوع تكست بوكس اذن متحققش الشرط الاول فهينتقل الى End if بدون ما ينفذ اى شئ ثم ينتقل الى Next وتعنى ارجع الى الحلقه For Each مره تانية لما يرجع للحلقه سيكون a فى هذه المره هى TextBox1 ثم ينتقل الى السطر التالى اختبار if طبعا هيختبر نوع TextBox1 هيلاقيه بالفعل من النوع TextBox تحقق اول شرط طيب هيشوف الشرط التانى هل التكست فارغ ام به بيانات اذا كان فارغ هيجعل لون خلفيته حمراء ويعطنى رساله باسمه ثم ينتقل الى Next وتعنى ارجع الى الحلقه For Each مره تانية لما يرجع للحلقه سيكون a فى هذه المره هى ComboBox1 ثم ينتقل الى السطر التالى اختبار if طبعا هيختبر نوع ComboBox1 هيلاقيه مش من النوع ComboBox فلم يتحقق الشرط الاول فهينتقل الى End if بدون ما ينفذ اى شئ ثم ينتقل الى Next وتعنى ارجع الى الحلقه For Each مره تانية وهكذا الى ان تنتهى الحلقه بعد ما تجعل a بكل العناصر اللى على الفورم وينتهى الكود شاهد هذه الصوره عند عمل الفورم والضغط على الزر الاخضر دى كانت مقدمه للمثال التالى وهو الاهم واللى اكيد هيقابلك لو انت هتصمم برامج اكيد هيقابلك المثال التالى مثال 2 :- شاهد الصوره التالية طبعا علشان اعمل كود فى حدث الليبل " الحفظ " هيكون الاعلان عن الكود كالتالى Private Sub Label1_Click() 'اولا اختبار صحة الادخالات 'ثانيا ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub انا موضوعى اليوم هو اولا اختبار صحة البيانات المدخله أما الجزء الخاص بترحيل البيانات الى الشيت مش موضوعى اليوم سنتناوله لاحقا باذن الله اولا اختبار صحة البيانات المدخله لو رجعت للصوره السابقه هتلاقى ان المطلوب اختبار كل عناصر التكست بوكس هل تم ملئ الدرجات بها ام لا وزى ما عرفنا قبل كدا ممكن تكون كالتالى Private Sub Label1_Click() If TextBox1 = "" Then TextBox1 .BackColor = 10200 End If If TextBox2 = "" Then TextBox2 .BackColor = 10200 End If End Sub يعنى هختبر كل عنصر بالشكل ده طبعا مستحيل طيب هتعمل ايه لو كان عندك مثلا 100 تكست بوكس او اكتر ؟؟؟؟؟؟ طبعا لو عملت كدا محتاج 100 صفحه علشان تكتب الكود مش منطق طبعا اذن لازم من حل احترافى شاهد الكود بشكل احترافى فى بضعه اسطر وبعدين نشرحه Private Sub Label1_Click() Dim a As Control For Each a In Frame1.Controls If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If Next a 'ثانيا كود ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub الكود فى المثال السابق كانت حلقة For Each عباره عن For Each a In Me.Controls ( هنا كان المتغير a يمثل كل العناصر على الفورم لذالك استخدمت Me.Controls وقلت ان Me عائده على الفورم النشط لكن فى الكود الحالى انا عايز اتعامل مع العناصر اللى داخل الــ Frame1 فقط فتم كتابة الحلقه كالتالى عباره عن For Each a In Frame1.Controls فهنا a هتكون كل عنصر من العناصر اللى داخل الفريم فقط واحد صاحى معايا هيلاحظ ان لما استخدمت If لاختبار ان العنصر من النوع تكست بوكس تم استخدام شرط التحقق من نوع العنصر انه تكست بوكس وشرط ان العنصر فارغ فى سطر واحد من خلال And شاهد الكود If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If ولكن عند استخدام if لاختبار ان العنصر من النوع كمبوبوكس وان الاختيار تم من القائمه تم استخدام if لاختبار شرط التحقق من نوع العنصر اذا كان كمبوبوكس يتم تنفيذ if اخرى وكتابة الشرط الثانى ان الاختيار تم من القائمه شاهد الكود If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If فى حد عنده تفسير لذالك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ليه مكتبناش اختبار ان نوع العنصر كمبوبوكس وان الاختيار تم من القائمة فى سطر واحد من خلال And مثل التكست بوكس يعنى يكون كدا If TypeOf a Is msForms.ComboBox And a.MatchFound = False Then a.BackColor = 10200 End If هقولك انا ما هو السبب الحلقه For Each لما تشتغل هيكون اول مره a كل مره تمثل عنصر من عناصر التحكم داخل الفريم فهيكون أما ليبل أو تكست بوكس أو كمبوبوكس كما هو بمثالنا فى الصوره السابقه موضوع الشرح لما تشتغل If الاولى If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If فعندما يكون a عباره عن Label " " = a " " =Label1 فلا يوجد مشكله لان Label ممكن = فارغ -------------------------------------- فعندما يكون a عباره عن TextBox " " = a " " =TextBox1 فلا يوجد مشكله لان TextBoxممكن = فارغ -------------------------------------- فعندما يكون a عباره عن ComboBox " " = a " " =ComboBox1 فلا يوجد مشكله لان ComboBox ممكن = فارغ -------------------------------------- لما تشتغل If الثانيه If TypeOf a Is msForms.ComboBox And a.MatchFound = False Then a.BackColor = 10200 End If فعندما يكون a عباره عن Label a.MatchFound = False Label.MatchFound = False فهنا يوجد مشكله لان Label ليس من خواصه MatchFound وكذالك TextBox لان MatchFound هى من خواص ComboBox فقط وهى لعمل اختبار هل الاختيار تم من القائمه ام لا لذالك مينفعش نعمل الكود بالشكل ده هيحدث Error ولتجنب Error لازم يكون الكود بالشكل التالى If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If يعنى اختبر العنصر هل هو ComboBox أولا أم لا اذا كان من النوع ComboBox اعمل اختبار عليه وهو هل تم الاختيار من القائمه أم لا واذا كان العنصر من النوع Label أو TextBox متعملش اختبار MatchFound ارجوا ان يكون الشرح واضح هو بس محتاج تركيز شويه شاهد الكود مره تانية بشكله النهائى كالتالى Private Sub Label1_Click() Dim a As Control For Each a In Frame1.Controls If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If Next a 'ثانيا كود ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub شاهد الصوره التاليه عند تشغل الفورم والضغط على زر الحفظ طبعا انت ممكن تغير فى الكود بدل ما ينفذ بجعل الخلفيه لونها احمر a.BackColor = 10200 ممكن تغير اى شئ تريد تنفيذه يعنى مثلا يعطى للمستخدم رساله باسم العنصر اللى فيه خطأ زى كدا Private Sub Label1_Click() Dim a As Control For Each a In Frame1.Controls If TypeOf a Is msForms.TextBox And a = "" Then MsgBox a.Name & " برجاء تعبئة بيانات" End If If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then MsgBox a.Name & " برجاء تعبئة بيانات" End If End If Next a 'ثانيا كود ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub شاهد الصوره التاليه عند تشغل الفورم والضغط على زر الحفظ ------------------------------------------------------------------------------------------------------------------------------------ الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد انتظرونا تقبلوا تحياتى

براك الله فيك وننتظر منك المزيد وجزاك الله كل خير

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

إن شاء الله ساعدتنا الامثله كثيرا إن شاء الله

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

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

أخوتي الأعزاء : ارفق لكم اليوم مجموعة من الأمثلة التي تتعلق بالتقارير بإنتظار ردودكم و إستفساراتكم جميعاً ChooseReportFields.zip ChooseReportFieldsRows.zip ChooseReportFromList.zip ChooseReportFromList2.zip CrossTabReport.zip

أخوتي الأعزاء في هذا النتدى العزيز على قلوبنا : أخي العزيز amer1960 في البداية أود أن أشكرك أنت و كافة الأخوة في هذا المنتدى على الردود التي تزيد من واجبي نحو إعطاء المزيد من الأمثلة البرمجية التي تساهم في دعم و زيادة المعلومات و الخبرة في مجال البرمجة بشكل عام و الآكسس بشكل خاص . أما بالنسبة لإقتراحك بالنسبة لوضع شرح فإنني أقترح أن يتم طرح أي سؤال يخص الأمثلة التي أرفقتها لكافة الأخوة في هذا المنتدى و سيتم الإشتراك في وضع الإجابة إنشاء الله . أما الآن فإنني قمت بإختيار مجموعة جديدة من الأمثلة لكم و التي تتعلق بالإستعلام ، آملن أن أسمع الرد منكم جميعا ، وتشجيعي على تزويدكم المزيد المزيد من الأمثلة الأخرى الكثيرة . مع جزيل شكري و إحترامي و تقديري للجميع ، ، ، ، CreateMultiSelectQuery.zip CreateQueries2.zip CreateQueries3.zip CreateQueries4.zip CreateQueries5.zip

السلام عليكم ورحمة الله وبركاته/- بارك الله فية ورحم الله والديك واتمني لك بذل المزيد من الجهد والمثابرة للرفع من مستويات شباب امتنا العربية والاسلاميه وياريت لو فيه احد من الاساتذه ان يتطرق كل مرة الى برنامج بالشرح ولكم فائق تحياتي وتقديري واحترامي[/ size] :clapping :