البحث في الموقع

السلام عليكم ورحمة الله وبركاته 🙂 اليوم يسرني أن أقدم لكم فكرة مبتكرة لتصميم :: الصفحة الرئيسية للبرنامج مع قائمة جانبية متمددة :: بألوان جميلة وتصميم راقي وتحكم شامل بعدد عناصر القائمة والقوائم الفرعية لها 👌 وأهم شي استهلاك أقل كمية من البرمجة والأكواد في التصميم ✌ :: وبدون مقدمات نبدأ على بركة الله :: الفكرة الرئيسة للقائمة الجانبية هي : عمل نموذج فرعي مستمر يستمد بياناته من جدول بحيث أن جميع عناصر القائمة الفرعية عبارة عن سجلات هذا الجدول ، ومن خلال هذا الجدول يتم ترتيب مواقع العناصر من خلال الحقل الرقم Order وكذلك يتم تصنيفها إن كانت زر رئيسي أم فرعي من خلال حقل Main or Sub والأيقونات يتم تخزينها في حقل مرفقات ، وأما الأوامر التي ستنفذها الأزرار فهي مخزنة أيضا في الجدول وهي محصورة في الأوامر التالية ( فتح نموذج - فتح نموذج فرعي - فتح تقرير - فتح تقرير فرعي - إظاهر رسالة نصية) .. والخطوة التي تأتي بعد ذالك هي تصميم النموذج الذي سيضم هذه الأزرار ، ويراعي الترتيب + فرز الأزرار الرئيسية والفرعية في الظهور + التنسيق الشرطي الذي يلون الأزرار بالألوان المناسبة لكل حالة + كود لتنفيذ الأوامر الموكلة للأزرار + .... وهكذا ثم بعد ذلك تصميم نموذج شامل للتحكم بالأزرار .. :: وللاستفادة من هذا الملف :: ستحتاج لهذه العناصر فقط ، ( والباقي كله زيادات لغرض الشرح ) : :: وهنا يأتي شرح يوتيوبي كافي وافي مفصل عن التصميم :: وفيه أيضا فوائد إضافية مثل ( طريقة اختيار أيقونات متناسقة ، وإشارة للنماذج المتطورة الأخرى ) :: تحديثات جديدة :: قمت بتطوير النموذج ليحمل أزرار فرعية وأزرار فرعية من الفرعية بناءا على طلب بعض الإخوة 🙂 كما تم إضافة خاصية إمكانية فتح الماكرو للأزرار .. وكذلك مع إمكانية فتح النماذج والتقارير في وضع التكبير Maximize .. وهذه لوحة التحكم : :: وأخيراا ملف التحميل 🙂 :: ‏‏‏‏Modern Main Page With Main Menue And Sub Sub Btns - Moosak -Maximize-Macro.accdb ملاحظة مهمة : قد لا يعمل هذا النموذج بشكل جيد على النسخ القديمة من 2007 وما قبلها . :: ولا تنسونا من صالح دعواتكم الطيبة 🙂 🌹🌷 ::

(كيف أضع مجموع تفاصيل جدول الفاتورة الفرعية ضمن خانة في الجدول الأساسي)

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته 🙂 درسنا اليوم عبارة عن فكرة تجميلية لقاعدة البيانات وإظهار شاشة إنتظار عند الإنتقال بين النماذج.. فكرة لمعت وحبيت أوثقها قبل أن تطير بلا عودة 😅 متابعة ممتعة 🙂 حمل المثال من المرفقات .. Waiting Screen.accdb

Dependent / Cascading Combo Box in continuous forms طريقة لعمل قائمة / مربع سرد و حوار تعتمد على أخرى خلال بحثى لم أجد أي طريقة تلبي الحاجة لعمل نافذة معتمدة على أخرى في نموذج مستمر لذا أضع ما توصلت إليه تجربتي بين أيدكم عله يكون ذا نفع . * ملاحظة : عند جعل مصدر الصف في مربع السرد و الحوار استعلاماً فيه عدة حقول فإن المربع سيعرض افتراضياً القيم في العمود الأول لذلك عند بناء الاستعلام اختر العمود الأول هو العمود الذي ترغب بإظهار قيمه ، أما في حال الإبقاء على ترتيب الاستعلام كما يظهر بعد استخدام المعالج فاربط حقول الاستعلام بمربع القائمة و غير عرض هذه الأعمدة بحيث يظهر العمود الذي يحوي القيم التي ترغب بعرضها .و الطريقة في الرد . DependantCombobox.accdb

السلام عليكم ورحمة الله وبركاته عملت نموذج مستمر ووضعت فيه كود إخفاء حقل معين بناء على شرط لكن النتيجة أن حالة إخفاء أو إظهار الحقل تتم في جميع السجلات كونه مستمر. * استخدام خاصية التنسيق الشرطي لا يعطينا خيار إخفاء وإظهار الحقل فقط تفعيل أو تعطيل الحقل. أريد تعديل الكود ليتفاعل مع السجل المحدد فقط للإخفاء والإظهار الكود : If Me.Cheldren = -1 Then Me.CheldrenNo.Visible = True Else: Me.CheldrenNo.Visible = False End If ومرفق المثال أيضاً تقبلوا شكري وتقديري Visible Current Record.rar

السلام عليكم خواتم مباركة نموذج بسيط للترحيل والبحث والتعديل هو طلب لاحدهم جعلته هنا للعموم الفائدة تم تعديل النسخة السابقة بهذه بعد ان حملت 80 مرة المرفق 2010-2003 نموذج بحث وترحيل وتعديل.rar ================================== هذا نموذج مع البحث في جميع الاعمدة وطباعة الفورم المرفق 2003-2010 نموذج بحث وترحيل وتعديل.rar ================================== هذا نموذج مع زيادة زر حذف سجل المرفق 2003 نموذج بحث وترحيل وتعديل.rar

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

السلام عليكم ورحمة الله وبركاته لعبة ترتيب اجزاء الصورة هدية لاخي دغيدي استخدم الاسهم لترتيب الاجزاء المرفق اكسل 2003 ودمتم في حفظ الله لعبة ترتيب اجزاء الصورة.rar

السلام عليكم فورم ادخال و تعديل وبحث باستخدام اسم نطاق للقائمة المنسدلة هو تفس الفورم السابق ولكن تم تغيير طريقة ادخال القائمة المنسدلة لاي عمود في الفورم تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة وايضا تم تجاوز بعض الاخطاء في الفورم السابق شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في الورقة الواحدة او في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" المرفق 2003 [فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة.rar الاصدار الثالث: http://www.officena.net/ib/index.php?showtopic=51955

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

السلام عليكم ورحمة الله وبركاته اساتذتنا كرام انا طالب جديد، وبدا ادرس في اكسس لكن مزلت في مرحلة تعلم اساسيات ، واجهة صعوبة في انشاء نموذج لادراج صور باستعمال ازرار ، ادخلت الكود لكن الزر لا يعمل، فهلا ارشدتموني اين الخطا.. وهذا هو المثال... وفي الاخير بارك الله فيكم على مجهوداتكم وجزاكم الله كل خير. Base de données2.accdb

السلام عليكم ورحمة الله عندي مشكلة في ملف اكسس كان يعمل بشكل جيد وبدون مشاكل لكن عندما احضرت حاسب جديد لم يعد يفتح النموذج الرئيسي -عند فتح قاعدة البيانات- الذي منه اتعامل مع كامل البرنامج مع العلم اني استخدم نفس الاعدادات من حيث المعمارية 64 بت , و نفس اعدادات المنطقة و التاريخ , و الحاسب الجديد نوع Lenovo و لاحظت وجود مشكلة في حقل التاريخ اثناء تعين القيمة الافتراضية "()Date" رسالة خطأ {حدث خطأ اثناء تحويل هذه الدالة برمجيا , يوجد خطأ في بناء جملة الوحدة النمطية لـ Visual Basic , تحقق من التعليمات البرمجية ثم أعد التحويل البرمجي للوحدة النمطية } و بعد مسح كافة الاحداث مثل (ماكرو , و وحدات نمطية ) عاد البرنامج للعمل (النموذج يفتح عند فتح قاعدة البيانات) , لكن بدون فائد (بسبب مسح الاوامر مسبقاً ) اي مساعدة اذا سمحتم جزاكم الله خير

السلام عليكم حياكم الله المطلوب كود لتصفية ليست بوكس

السلام عليكم ورحمة الله وبركاته عيدكم مبارك وكل عام وانتم بخير شرح امكانيات الفورم وكيفية الاستخدام: 1 - استخدام الفورم لاكثر من قاعدة بيانات في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss .kh_SetAddrss "مثال1", "C10:AO10" اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. . kh_SetAddrss "مثال2", "C4:H4", "B4" 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب القائمة وتفصل بين الكلمات بالعلامة + 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 ----------------------------------------------------------------------------------------------------- هذه الامكانية غفلنا عن ذكرها : 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا: "E15,C15,H15:AX15" اول عمود هو E ----------------------------------------------------------------------------------------------------- المرفق 2003-2007 فورم ادخال و تعديل مرن.rar الاصدار الثاني http://www.officena.net/ib/index.php?showtopic=48811 الاصدار الثالث: http://www.officena....showtopic=51955

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

السلام عليكم اساتذتي الكرام هذا الكود من انتاج الأستاذ جعفر حفظه الله ورعاه بس لما غيرت به شيء بسيط اصبح لايقوم بالتوزيع كما هو مطلوب Private Sub UpdateEndData() Dim Dcode As Integer 'since we are using the calendar, we will get the day, month, and year, 'although we only need the month and the year, and that is what this fields Format shows, mmmm\-yyyy 'but for easyness for the search later, we will assign the day always as 1 If Len(Me.AwardMonth & "") <> 0 Then Me.AwardMonth = DateSerial(Year(Me.AwardMonth), Month(Me.AwardMonth), 1) End If Me.DiscountStartDate = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate), 1) Dcode = Switch([Cridi_ID] > 0, 10) DiscountEndDate = DateAdd("m", Dcode, [DiscountStartDate] - 1) Me.DiscountEndDate = DateSerial(Year(Me.DiscountEndDate), Month(Me.DiscountEndDate) + 1, 0) DiscountPerMonth = (([Cridi_Value] - [Mont_Spés]) * [Qte]) / Dcode 'add the loan Records to tbl_Loans Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans") 'rst.MoveLast: rst.MoveFirst For I = 0 To Me.CmdCridi.Column(0) - 1 rst.AddNew rst!EmployeeID = Me.EmployeeID rst!Loan_ID = Me.ID rst!Loan_AwardMonth = Me.AwardMonth rst!Payment_Month = DateAdd("m", I, Me.DiscountStartDate) 'add the months, or use the next line 'rst!Payment_Month = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate) + I, 1) rst!Loan_Cridi = Me.txtDiscountPerMonth 'rst!Payment_Made = 'to be used each time a pyment is made rst!Loan_Type = "Cridi" rst!Remarks = Me.CmdCridi.Column(1) rst.Update Next I rst.Close: Set rst = Nothing txtDiscountPerMonth.Requery txtDiscountEndDate.Requery 'Auto_ID, Auto_Date, EmployeeID, Loan_ID, Loan_AwardMonth, Payment_Month, Loan_Cridi, Payment_Amount, Payment_Made, Remarks 'EmployeeID 'Loan_ID 'Loan_AwardMonth 'Payment_Month' 'Loan_Cridi 'Payment_Amount 'Payment_Made 'Remarks End Sub Beriod ولما غيرت تقسيم 10 على مربع نص به عدد وهو Private Sub UpdateEndData() Dim Dcode As Integer 'since we are using the calendar, we will get the day, month, and year, 'although we only need the month and the year, and that is what this fields Format shows, mmmm\-yyyy 'but for easyness for the search later, we will assign the day always as 1 If Len(Me.AwardMonth & "") <> 0 Then Me.AwardMonth = DateSerial(Year(Me.AwardMonth), Month(Me.AwardMonth), 1) End If Me.DiscountStartDate = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate), 1) Dcode = Switch([Cridi_ID] > 0, [Beriod]) DiscountEndDate = DateAdd("m", Dcode, [DiscountStartDate] - 1) Me.DiscountEndDate = DateSerial(Year(Me.DiscountEndDate), Month(Me.DiscountEndDate) + 1, 0) DiscountPerMonth = (([Cridi_Value] - [Mont_Spés]) * [Qte]) / Dcode 'add the loan Records to tbl_Loans Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans") 'rst.MoveLast: rst.MoveFirst For I = 0 To Me.CmdCridi.Column(0) - 1 rst.AddNew rst!EmployeeID = Me.EmployeeID rst!Loan_ID = Me.ID rst!Loan_AwardMonth = Me.AwardMonth rst!Payment_Month = DateAdd("m", I, Me.DiscountStartDate) 'add the months, or use the next line 'rst!Payment_Month = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate) + I, 1) rst!Loan_Cridi = Me.txtDiscountPerMonth 'rst!Payment_Made = 'to be used each time a pyment is made rst!Loan_Type = "Cridi" rst!Remarks = Me.CmdCridi.Column(1) rst.Update Next I rst.Close: Set rst = Nothing txtDiscountPerMonth.Requery txtDiscountEndDate.Requery 'Auto_ID, Auto_Date, EmployeeID, Loan_ID, Loan_AwardMonth, Payment_Month, Loan_Cridi, Payment_Amount, Payment_Made, Remarks 'EmployeeID 'Loan_ID 'Loan_AwardMonth 'Payment_Month' 'Loan_Cridi 'Payment_Amount 'Payment_Made 'Remarks End Sub Beriod اصبح يقسم القسط على شهر واحد فقط بدلا من الشهر الذي يكتب في مربع النص Dcode = Switch([Cridi_ID] > 0, 10) Dcode = Switch([Cridi_ID] > 0, [Beriod]) أرجو المساعدة

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

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

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

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

الطلب مشروح في الصورة المرفقة x1.rar

السلام عليكم ورحمة الله وبركاته عوداً حميدا منتدانا الغالي والشكر اجزله للادارة على سعيها الحثيث للمحافظة على الشكل العام للمنتدى بصورة تيلق بالمتلقي :) مشاركتي كالاتي احبتي.. قمت بتصميم قاعدة بيانات تحتوي على جداول واستعلامات ونماذج وتقارير تكمن مشكلتي في الاتي ذكره.. 1- اريد عمل نموذج للبحث كالموجود بقاعدة البيانات المرفقة بمجرد كتابة اي من البيانات المحددة (اسم / رقم /) أن يظهر النتائج في نموذج فرعي. 2- اريد عمل مربع نص في نموذج العملاء مثلا بمجرد كتابة رقم العميل (بالضبط) يتم تحميل البيانات في الفورم (اي تظهر باقي التفاصيل التي تخص العميل) . 3- كيفية عمل زر تعديل لبيانات ما في فورم محدد. 4- اريد ان يتم ادراج تاريخ الضمان في جدول العملاء تلقائياً بمجرد اضافة تاريخ الوصول (ت.الضمان=ت الوصول+3 اشهر) جربت المعادلة (DateAdd) ولم تنجح معي. :( 5- حذف عميل مثلا بدون أن يتأثر اي حقل في جدول اخر يتربط بملف العميل (فقط أن يتم حذف العميل من جدول العملاء) 6 -اذا احتجت الي حقل يبين لي الرصيد الحالي هل يكون على النحو التالي (الرصيد الحالي=المبلغ المسحوب - اجمالي المبلغ)؟ في جدول المال 7- عمل تقرير شهري اي أن اختار تاريخ البداية والنهاية وعلى أساس التاريخين احصل على تقرير خلال هذه الفترة اعتذر للاطالة .. وجزاكم الله الفردوس رابط التحميل

السلام عليكم ورحمة الله وبركاته فورم لاجراء قرعة لبيانات معينة وهوطلب لاحدهم في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=55244 جعلته هنا لتعم الفائدة ملاحظة : تم اضافة امكانيات اخرى لهذا المرفق المرفق 2003 قرعة.rar ================================================================= وردني هذا السؤال على الخاص المرفق 2003 قرعة متعددة الاختيار.rar

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء عندي قاعدة بيانات تحتوي على نموذج باسم PP وفيه نموذج فرعي pp1 يحتوي على بيانات الطلاب ومن ضمن هذه البيانات المديرية المتقدم منها الطالب وهي عبارة عن قائمة منسدلة تعتمد على جدول باسم mo ولهذه المديرية مدارس خاصة بها وكذلك بقية المديريات المطلوب هو عندما اقوم باختيار مديرية معينة تفتح قائمة المدارس مباشرة وتحتوي على مدارس المديرية المختارة فقط لكي اختار واحدة منها وبعد اختيار المديرية والمدرسة يتم تعبئة المركز تلقائيا نظرا لوجود يحدد المراكز والمدارس التابعة له فمثلا اختار مديرية مدينة حجة = تظهر مدارس المدينة فقط اختار منها مجمع النصر = مباشرة يكتب في المركز النور المدينة واذا اخترت ايضا المديرية مدينة حجة = مدرسة مركز التدريب = مباشرة في المركز يكتب تلقائيا هارون الرشيد المدينة اتمنى تكون الفكرة واضحة وجزاكم الله خيرا التقدم الاخير35.rar

السلام عليكم كل عام وانتم بخير هدية الشهر الكريم فورم بحث و تصفية بامكانية التعديل مرن لكل المستخدمين لا عليك سوى التعديل في كود اظهار الفورم ضع نطاق رؤوس الاعمدة و يصبح جاهز للاستخدام ' اسم نطاق رؤوس الاعمدة ' او عنوان النطاق ملحوق باسم الورقة Private Const MyTopColmnRng As String = "البيانات!$B$3:$L$3" المرفق 2003 2007 فورم بحث بامكانية التصفية.rar ودمتم في حفظ الله ============================================================== ملحوظة: في المشاركات ادناه وجدت ان السؤال الاكثر حول كيفية البحث ليشمل نتائج اوسع والحل موجود اصلا وهو استخدام النجمة وعلامة الاستفهام وقد اوجدت زرين لهذا الغرض أحرف البدل يمكن استخدام أحرف البدل التالية كمعايير مقارنة لعوامل التصفية وعند البحث عن محتوى واستبداله. * (علامة نجمية) أي عدد من الأحرف على سبيل المثال، يتم العثور على "شمال شرق" و"جنوب شرق" عند كتابة *شرق ؟ (علامة استفهام) أي حرف مفرد على سبيل المثال، يتم العثور على "سمير" و"سفير" عند كتابة س؟ير ============================================================== ايضا الذي تطلع عنده رسالة بالخطأ عند السطر .ColumnWidths = wColmn يقوم بحذف هذا السطر من الكود او يعمل شرطة احادية قبل السطر ليلغي قراءة هذا السطر وستنتهي المشكلة ان شاء الله لان هذا السطر يقوم بوضع مقاسات الاعمدة من النطاق يعني هو مش مؤثر في الكود اصلا ستبقى المقاسات الافتراضية للست ==============================================================