ابو جودي

انا حملت المثال برضو نفس الطريقة بيحفظ الصور من مكانها الاصلى على الجهاز tblInventory PicFile C:\Users\Judy\Documents\DSشششC_4747.jpg C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Tulips.jpg C:\Users\Azhar\Pictures\iraqflag_if76s1s9.gif C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Koala.jpg C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Hydrangeas.jpg C:\Users\Azhar\Pictures\profil.jpg C:\Users\Judy\Documents\DSشششC_4747.jpg

ربنا يعزك يا استاذنا جزاكم الله خيرا طيب معلش انا اسف لسه واخد بالى من المشاركة الطيبة دى حاضر يا استاذى الكريم هأشوف لحضرتك موضوع المؤهل حالا وربط الحقل بتاعه وارد على حضرتك امرك بالنسبه للمراجعه انا بأتعلم لسه وحضرتك تعلم الكلام ده انا هأقول لحضرتك الموضوع سهل على شويه ليه .... انا قبل كده حاولت ادرس الويب ديزاين واشتغلت شويه html , css , css3 كان موضوع الاكواد ده بيعتمد انك تفهم الكود ازاى بيبدأ وازاى ينتهى ووظيفته وايه المعطيات اللى بيعتمد عليها علشان يعالج البيانات اللى انت عاوز تشوف نتيجتها فى المخرجات بس علشان كده باحاول افحص الاكواد وافهم طريقة عملها واطوعها زى ما انا عاوز لعمل الافكار المختلفة لكن مش كل شئ بأقدر افهمه ومش كل فكرة بأقدر انفذها ومش أقدر احلل اى شغل من الناحية البرمجية او التقنية واحدد نقاط القوة من نقاط الضعف بها لذا انصحك بسؤال احد اساتذتنا الكرام الذين ننهل من علمهم ونتعلم على يديهم بارك الله لهم بالنسبة للشكل الجمالى فى الاخر خالص والتنسيق ان شاء الله بأمر الله ده اقدر اعملهولك ووعدت حضرتك بده بس استسمحك بس بعد رجوعى من العمره ان شاء الله لان الموضوع بياخد وقت شويه

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

اتفضل اخى وحبيبى ان شاء الله يكون هو ده المطلوب مشروع العاملين up.rar

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

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

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام اعتذر لاثقالى عليكم بكثر سؤالى هل يوجد كود 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 موجود فى اقصى اليمين اما باقى فى الجزء الخاص بالتفصيل يمكنك تغيرهم حسب ما تريد من الجدول المرتبط بالنموذج وربط الجدول من التبويب بيانات من خصائص النموذج

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