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

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

برنامح لتسجيل كشوف 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

اليوم اقدم لكم أضخم كتاب عربي لتعلم برنامج EXCEL يحتوي على شرح مفصل لصيغ والدوال وكذالك مرفق مع الكتاب تطبيقات نموذجية . غلاف الكتاب المحتويات 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح 6.في النهاية الغير متوقعة شرح لغة VBA وطريقة كتابة الصيغ فيها لتحميل الكتاب اضغط هنا حجم الكتاب: 39.7 MB رابط اخر على 4shared أرجو الدعاء لي ولصاحب الكتاب وناشره جزاكم الله خيرا

ملف الإكسل المستخدم للشرح نسخ معادلة للكود و تخصيص زر أمر.rar

بسم الله الرحمن الرحيم ارجوا من الاخوة والاساتذة الكرام تجربة هذا الملف واخباري بالنتيجة هل يعمل بدون مشاكل ام يوجد مشاكل بالملف البرنامج لمراقبة حركة الاصناف من صرف واستلام والرصيد النهائي لكل صنف مصمم بالفيجوال بيسك وقمت بتحويل المعادلات لتعمل مع الفيجوال طبعا شوية معادلات محدودة ليس الا كل ما احتاجه هو الالمام بمعظم دوال ومعادلات الاكسيل برمجيا حتى اتعامل بها مع الفيجوال بيسك طبعا للجماعه اللي بتقول الحماية علي معادلاتي وشغلي اظن كدا بقت محمية كويس ملف الاكسيل ليس الا قاعدة بيانات فقط وكل معادلاتنا داخل الملف التنفيذي للفيجوال اينعم اعرف بعض طرق لاعادة سورس كود البرنامج ولكن يوجد برامج تشفير كتيررررر لحماية الملف من هذه المواضيع ارجو ان يعمل البرنامج بنجاح معاكوا وميحرجنيش معاكو ارجو التقييم اخوكم ياسر العربي vb6-excel.rar

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

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

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

السلام عليكم ورحمته وبركاته ارجو ان يكون هذا هو ماتقصده معلومات الاسرة.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 بها المعادلات واسم الخلية والورقة الموجود بها المعادله

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

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

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

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

السلام عليكم ورحمة الله وبركاته اخى الحبيب اليك الحل معلومات الاسرة.rar

حسب ما فهمت تريد أن يختار المستخدم القيمة من الخلية 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 ستجد هناك معادلات تساعدك على اتمام الامر عليك تعديلها فقط حسب المطلوب اعمل نسخة احتياطية عن الملف قبل البدء بأي عمل تلافياً للأخطاء

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

جرب هذا الملف يمكنك الاطلاع على الورقة Search حيث يوجد اختصار لكل الصفحات والقائمة المنسدلة في الخلية C7 تعمل اوتو ماتيكياً حسب اسم الصفحة بحث salim.zip

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

ربما يكون المطلوب مثال salim.zip

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

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

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

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

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

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

سادساً :- التعامل مع العناصر الموجوده داخل الــ 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 شاهد الصوره التاليه عند تشغل الفورم والضغط على زر الحفظ ------------------------------------------------------------------------------------------------------------------------------------ الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد انتظرونا تقبلوا تحياتى

الاخ العزيز هذا الرابط موجود عليه شيت كنترول للصف الثانى الثانوى الصناعى http://www.gulfup.com/?kaCEfZ

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

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

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

شكراً لك اخي morsy على هذا الرد الجميل ، و أسأل الله القوة و المعونة لطرح المزيد المزيد من الأعمال و التي أرجو الله أن يتقبلها مني و أن يكون فيها الخير للجميع إنشاء الله . أما اليوم أخوتي الأعزاء في هذا المنتدى العزيز ، فقد قمت بإضافة العديد من الأمثلة التي تساعدكم إنشاء الله في موضوع الـ Combo بإنتظار ردودكم جميعاً . . . CascadingComboBoxes.zip CascadingComboInSubform.zip ComboChoosesRecord.zip

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

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

جزاك الله خيرا ووالدك أيضا

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

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