محمد التميمي

السلام عليكم: في المرفق لدي نموذج فيه زر امر بعنوان تحديث واطار كائن صورة (Image) ومربعي نص (Note1 و Note1) محتاج كود يعمل في زر تحديث كالاتي: عند وجود صور في (Image) يقوم بحذق القيمة الموجودة في (Date2) ايظـــاً عند عدم وجود صورة في (Image) يقوم بحذف القيمة الموجودة في (Date1) مع فائق الشكر والتقدير.... موقف طبي.rar

السلام عليكم احسنتم وبارك الله بكم

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

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

السلام عليكم استاذي الفاضل: بعد انشاء زر الامر / تم تحديث المسارات القديمة الى مسارات جديدة وتمت العملية بنجاح جزاكم الله خيرا... هذا بالنسبة الى المثال الصغير عندي وساعمل انشاء الله على قاعدة البيانات الاصلية واوفيكم بالنتيجة علما انه عندي ما يقارب 46000 الف امتداد قديم (بالاسم) و 21000 امتداد جديد جميعها في قاعدة بيانات واحدة. بارك الله بجهودكم....

السلام عليكم في الملف المرفق يوجد نموذج يعرض صور الموظفين على شكل صورة جديدة وصورة قديمة. طبعا كود جلب الصورة الجديدة عن طريق زر الامر باسم (إضافة صورة). اما كود جلب الصورة القديمة فهو موجود بالنموذج خلال عرض تصميم (في الحالي). المطلوب اساتذتي الكرام :- ((في حال دمج اعمدة الصور في الجدول عامود الصور القديمة مثل (زكي درويش. jpg) و عامود الصور الجديد في عامود واحد كما موضح في الصورة ادناه.)) *- هل بالإمكان دمج اكود الصور ليصبح كود واحد وإلغاء أحد المربعات العارضة للصور في النموذج ليصبح مربع صورة واحدة فقط مع الاحتفاظ بميزة الكود ( جلب صورة جديدة). والغاء فولدرات الصور عدد 2 الخارجية ليكون فولدر واحد يحوي الصور. مع فائق الشكر والاحترام 555.rar 555.rar

السلام عليكم : اخي الكريم ايظا الكود لا يعمل.. ولكني ساخذ بنصيحتك وارجع الى الكود الاول لدي يطبع مع فتح استعراض برنامج PDF للملف.... لاضير في ذلك مع الشكر الجزيل

السلام عليكم : اساتذتي الافاضل اتعبتكم معي وبارك الله بجهودكم الاكواد لا تعمل مع فائق احترامي.... اُواكد على الطلب (طباعة ملف PDF دون فتحه) مع فائق الشكر والتقدير للتفاعل والرد.. PDF.accdb

السلام عليكم لدي كود لطباعة ملف pdf مع موديول شغال ولكن بعد تنفيذ امر الطباعة يفتح برنامج الـ pdf ولا يغلقه ممكن لوسمحتم تعديل بسيط على الكود ليتم طباعة ملف PDF دون فتحه مع فائق الشكر والاحترام الكود ادناه Private Sub Comannd187_Click() Dim strFilePath As String Dim strFileName As String strFileName = "66.PDF" strFilePath = "D:\Pictures\NEW\" & strFileName If Dir(strFilePath) > "" Then PrintFile (strFilePath) Else Beep MsgBox "لا توجد مرفقات يمكن طباعتها" End If End Sub

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

السلام عليكم لدي في المرفق رابط ( Pictures\1.jpg \الهويات\:D) واريد ان اكرره بطريقة السلسلة سحب الماوس الى الاسفل ليتغير فقط عندي رقم 1 ليصبح من رقم 1 الى رقم 66006 والصورة المرفقة تبين الطلب بوضوح.. مع فائق الشكر والتقدير New Microsoft Excel Worksheet.xlsx

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

السلام عليكم : لدي في قاعدة البيانات تواريخ اصدار بدون تواريخ نفاد للهويات بعدد ما يقارب ستة الاف سجل وضعت كود صغير في خانة تاريخ الاصدار بعد التحديث Date2 = DateAdd("yyyy", 1, Date1) لاتمكن عند المرور بالسجل من خلال نموذج ليتم تحديث تاريخ النفاد جديد بعد سنة . ولكن هذه العملية تاخذ وقت كثير لادراج تواريخ النفاد الناقصة في السجلات.... المطلوب اخواني الكرام كود او استعلام ليتم من خلاله استكمال تواريخ النفاد الناقصة دون المساس والتاثير على ارقام السجلات... علما ان قاعدة البيانات الاصلية لدي تحتوي على 65945 سجل والملف المرفق مجرد مثال مع فائق الشكر والتقدير... New.accdb

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

السلام عليكم اجابة جيدة بارك الله بجهودكم اخي الكريم شكرا جزيلا..