ابو جودي

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

السلام عليكم ورحمة الله تعالى وبركاته اتفضل ده مثال اعتقد زى ما حضرتك طلبت تقريبا او حاجه قريبه قوى من طلب حضرتك http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=88523 رابط الموضوع http://www.officena.net/ib/index.php?showtopic=58852

http://www.officena.net/ib/?showtopic=35398

السلام عليكم ورحمة الله وبركاته طيب معلش انا مش قادر افهم واستوعب حضرتك عاوز ايه بالظبط ممكن معلش اتاقل على حضرتك وتوضح لى اكتر طلب حضرتك ايه

استورد كل الملفات ونموذج البحث فى الجزء العلوى الخاص برأس النموذج لا تقم بتغير اسم مربع النص txtSearchText ولا مربع التحرير والسرد cboField ولا مربع النص الخاص بـ Search Display موجود فى اقصى اليمين اما باقى العناصر فى الجزء الأوسط الخاص بالتفصيل يمكنك تغيرهم حسب ما تريدوربطهم بالجدول المرتبط بالنموذج ويتم ربط الجدول من التبويب بيانات من خصائص النموذج

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

تستخدم دالة DLookup للحصول علي قيمة حقل محدد من مجموعة سجلات (مجال) . و يمكن استخدام هذه الدالة في كود الفيجوال بيزيك أو في ماكرو أو في استعلام أو في عنصر تحكم به قيمة محسوبة في نموذج أو تقرير. و يكون نوع البيانات للقيمة الناتجة منها Variant صيغة الدالة : DLookup(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الذي يحوي البيانات التي تريد إعادتها بواسطة هذه الدالة ، و هي يمكن أن تكون نص يعبر عن إسم حقل في جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و في هذا التعبير يمكن إدراج اسم حقل ، عنصر تحكم في نموذج ، ثابت ، أو دالة و لكن في حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة في أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخرى Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم إجبارية لابد من إدراجها في الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم إدراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة إدراج حقل في هذا المعيار و هذا الحقل غير مدرج في المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود في المعيار Criteria يجب أن يكون أيضا مدرجا في المجال. ملاحظات تعيد الدالة DLookup قيمة وحيدة بناء علي المعايير التي تحددها في جزء أل criteria في الدالة ، و هذا الجزء كما ذكرنا خياري ، فإذا لم نحدد المعيار فان الدالة تعيد قيمة عشوائية من ضمن المجال. إذا لم يوجد سجل يوفي الشروط المحددة في المعيار ، فان الدالة DLookup تعيد قيمة Null . إذا حقق أكثر من سجل المعيار المطلوب فان الدالة ااا تعيد أول حدوث لتحقيق الشرط ، أي قيمة الحقل في أول سجل يحقق المعيار ، علي الرغم من وجود سجلات أخري تحققه . لذا يفضل تحديد الشرط بدقة بحيث يعيد سجل وحيد Dim varX As Variant varX = DLookup("[LastName]", "Employees", "[EmployeeID] = 1") يمكن استخدام هذه الدالة كمعيار في الاستعلام العادي أو كقيمة محسوبة في استعلام تحديث يمكنك استخدام DLookup لإظهار قيمة حقل ليس من ضمن البيانات في مصدر بيانات النموذج أو التقرير لنفرض أن لديك نموذج تفاصيل الطلبيات و هو مبني علي جدول تفاصيل الطلبيات ، و تريد إدراج اسم المنتج من جدول المنتجات في مربع نص علي النموذج، بحيث يكون بالطبع يساوي رقم المنتج الذي يظهر في مربع نص آخر علي النموذج اسمه ProductID. فنضع الكود التالي في مربع النص الذي نريد إظهار الاسم فيه =DLookup("[ProductName]", "Products", "[ProductID] =" _ & Forms![Order Details]!ProductID) بالرغم من أنك تستطيع الحصول علي قيمة حقل في جدول مرتبط باستخدام DLookup ، إلا أنه ينصح في هذه الحالة بعمل استعلام مبني علي الجدولين و استخدامه كمصدر لبيانات النموذج أو التقرير. القيم التي لم يتم حفظها بعد في السجلات لا تدخل في حسابات الدالة ، و لكن لإدخالها لابد من حفظ السجل أولا ، و ذلك باختيار حفظ من أمر File أو بالانتقال إلي السجل التالي ، أو باستخدام طريقة أل Update .

السلام عليكم ورحمة الله تعالى وبركاته ملفات مرفقة تم تعريب المثال للتأكد من نتيجة العمل مع اللغة العربية طبعا لكل من اراد التحديث او التطوير او طرح افكار للتحديث او التطوير لا يبخل عليناSearch.rar

امرك اخى الحبيب ابشر بكل الخير ان شاء الله

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

اعتذر لم انتبه لضيق وقتى واعتذر للمرة الثانية لمغادرتى الى العمل الان استودعكم الله

اسف جدا كلمة المرور 12345 ولتغيريها من خصائص الزر edit من حدث عند النقر تجد الكود Dim x As String x = "12345" 'ده رقم الباسورد Dim Y As String Y = InputBoxDK("Enter Password for form") Me.AllowEdits = True If x <> Y Then MsgBox ("Invalid password") DoCmd.CancelEven

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

جزاكم الله خير الجزاء اخى الحبيب

برنامج.rar

مرفق صورة توضيحية لكيفية العمل

وده نموذج البحث اللى وعدتك بيه حمل من هنا استورد كل الملفات ونموذج البحث لا تقم بتغير اسم مربع النص ولا مربع التحرير والشرد ولا مربع النص الخاص بـ Search Display موجود فى اقصى اليمين اما باقى فى الجزء الخاص بالتفصيل يمكنك تغيرهم حسب ما تريد من الجدول المرتبط بالنموذج وربط الجدول من التبويب بيانات من خصائص النموذج

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

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

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

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

وكلى تعم الفائده وتعلم حل تلك المشكله فى عرض التصميم للنموذج الذى كان يحتوى على تلك المشكله من خصائص النموذج من التبويب بيانات غير قيمة إدخال البيانات من نعم إلى >------>>> لا كما فى الصورة المرفقة

اتفضل برنامج.rar

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

اين المرفق ؟