محمد التميمي

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

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

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

السلام عليكم: في الملف المرفق لدي ثلاث قوائم منسدلة للبحث الاولى بحث برقم التسلسل والثانية بحث برقم الموظف والثالثة بحث برمز الوثيقة مع اكوادها المنفصلة: المطلوب اخواني الكرام: امكانية دمج ثلاثة قوائم بحث مع اكوادها بواحدة لتكون قائمة منسدلة واحدة متعددة البحث بنفس الوقت (برقم التسلسل / وبرقم الموظف / وبرقم الوثيقة) مع فائق الشكر والتقدير.... البيانات.accdb

New.accdb شكرا جزيلا اخي الكريم Foksh ر على المرور اجابة الاستاذ ابا جودي مبهرة

تسلم ياغالي ماقصرت

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

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

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

السلام عليكم : بارك الله بجهودكم اساتذتي الكرام الاكواد تعمل بامتياز شكرا جزيلا لكم وجعله الله في ميزان حسناتكم انشاء الله .

السلام عليكم: اخواني الكرام محتاج كود لحذف الصور بكافة الصيغ عند الاغلاق والتي تتكدس في فولدر خارجي باسم (QR_images) حسب المسار الاتي ( Data\QR_images) بزر الامر الموجود في النموذج . مع فائق الشكر والتقدير New folder.rar

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

بارك الله بك ماقصرت

اخي ابو خليل ان اسف اذا كنت قد تدخلت في شؤون المراقبين

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

وعليكم السلام اخي الكريم موجودة الان قمت بتحميلها من جديد

السلام عليكم .. الرجاء المرور على طلبي لاني محتاجه جدا .. مع التقدير