Ahmed_J

اخي العزيز انا فهمت انه اذا كان تاريخ اليوم اكبر او يساوي تاريخ نهاية الضمان اكتب اللي تريده بالضبط زي ما انا كتبته تحياتي

السلام عليكم حسب فهمي لطلبك تفضل Private Sub Expiry_Date_AfterUpdate() If Date >= Expiry_Date Then Beep MsgBox "لقد تم انتهاء الضمان" Me.Warranty = 0 Me.Expiry_Date = "" Me.Refresh End If End Sub فترة الضمان.accdb

up

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

السلام عليكم اساتذتي الاعزاء لدي ملف لاحد الاخوة بالموقع لاضافة صور من جهاز الحاسوب وعمل مسح ضوئي للصور وهو يعمل جيدا المطلوب سواء باضافة جدول فرعي مرتبط بالجدول الرئيسي او غيرها تعديل الكود المرفق لكي يسمح باضافة اكثر من صورة عن طريق زر add pic بالنموذج وعمل ترقيم للصور تسلسلي داخل ملفARCHIVE بجانب الملف علما بان الكود يقوم بتسمية الصورة بناء على موضوع ورقم الكتاب وشكرا لكم On Error GoTo ErrHandler If IsNull(Emp_Code) Or Emp_Code = "" Then DoCmd.OpenForm "frmMassage" Forms!frmMassage!lblMassage.Caption = " فضلاً يجب أن تقوم بإدخال كود الموظف حتى تتمكن من إضافة صورة الموظف " Me.Emp_Code.SetFocus Else Dim Import_Path As String Import_Path = GetOpenFile_CLT("c:\windows\desktop\", ".حدد مكان الصورة") If Import_Path <> "" Then Me![Import_pictures_path] = Import_Path Me![Import_pictures_path] = LCase(Me![Import_pictures_path]) Me![Image].Picture = Me![Import_pictures_path] Dim Dir_Archive, Dir_Import Dim Project_path As String Project_path = Application.CodeProject.path Dir_Archive = Import_pictures_path Dir_Import = Project_path & "\Archive" & "\Import" & "\" & Me.booksnumber & "_" & Me.subject & ".jpg" FileCopy Dir_Archive, Dir_Import Me.TxtImagePath = Dir_Import Image_d.Visible = False ErrHandler: If Err.Number = 94 Then Resume Next End If End If End If test.rar

up

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

جهازي كانون DR-F120-Feeder

استاذي العزيز ملفات استاذ محمود تظهر لي الرسائل التالية وفي الفيديو للشرح يعمل جهازة طبيعي جدا لااعرف السبب

استاذ العزيز كل ملفات الاستاذ محمود جربتها 11 ملف لايعمل الفيدر ابدا

استاذي العزيز سكانر العادي يعمل بصورة صحيحة لسحب صورة واحدة فقط لكن عند تشغيل الفيدر لسحب اكثر من صورة لايعمل ابدا علما ان جهازي كانون DR-F120-Feeder تحياتي

استاذي العزيز @SEMO.Pa3x انا حملت هذا الملف هو للاستاذ جعفر لكن لم يعمل على جهازي مع الاسف اردت كود feeder فقط شكرا لك

السلام عليكم اساتذتي الاعزاء لدي ملف لاحد الاخوة بالموقع (جزاه الله خير الجزاء) وهو يعمل بصورة جيدة الملف يقوم بجلب صورة واحدة فقط سواء من الماسح الضوئي او من جهاز الحاسوب ويقوم بتسميته برقم الكتاب وعنوانه داخل فولدر مخصص بجوار الملف المطلوب كود بزر feeder الموجود بالنموذج يقوم بجلب اكثر من صورة بالماسح الضوئي او من جهاز الحاسوب ويقوم بعمل ترقيم لها داخل الفولدر المخصص تحياتي لكل الاساتذه test.rar

up

السلام عليكم اساتذتي الاعزاء بحث وعملت طوال اليوم لكن لم اصل الى نتيجة لدي ملف اكسس فيه مرفقات عبارة عن مستندات لغرض الارشفة الالكترونية ولا اريد خزنها في قاعدة البيانات حتى لايكبر حجمها مستقبلا طلبي هو : 1- خزن الصور في فولدر بجانب قاعدة البيانات اللي اسمه scanner 2- تشغيل الماسح الضوئي من خلال زر بالاكسس وحقظ الصور في نفس الفولدر Scanner 3- اتمنى ان يكون الحغظ متسلسل وبتاريخ جهاز الحاسوب 4- لو كان عندي اكثر من سحب صورة هل بالامكان تحويل اكثر من صورة الى PDF من خلال كود عن طريق زر الماسح الضوئي تحياتي للجميع ربي يوفقكم اجمعين test.rar

السلام عليكم مبدئيا الملف المرفق لتصدير الجدول الى اكسيل انظر للمرفق واعطنا ملاحظاتك Database1.accdb

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

السلام عليكم اخي العزيز هل تريد ان يكون ملف الاكسل المصدر من قبل الجدول بالطريقة اللي بالصورة هل تقصد هذا؟

السلام عليكم بالاضافة مماتفضل به اساتذتنا الكرام تم العمل على دالة مركبة IIF-Or اتمنى ان يكون المطلوب تحياتي للجميع الدرجه.accdb

السلام عليكم اويد كلام اساتذتي عن الحقل المحسوب لكن اذا لزم الامر وكانت لديك قائمة منسدلة بالاضافة الى دالة IIF يمكنك ايضا استخدام دالة Choose في الحقل المحسوب تحياتي

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

استاذ قاسم شكرا لك اسم الشهر يكون نفسه لكل السجلات (عند تغييره في اي قيد للراتب يتغيير للكل )

استاذي العزيز الملف لايعمل كما اريد الجدول TB1 صحيح 100% والتحديث مضبوظ الخطا في الاستعلام الالحاقي للجدول TB2 الجدول TB2 فيه الخط فقط بالنسبة لاول سجل (الخطا في حقل اسم الشهر فقط) المفروض يكون كانون الثاني تحياتي لك test1.accdb

up test1.accdb

السلام عليكم استاذ قاسم @Eng.Qassim تحياتي الحارة انا لا اقوم بحذف سجلات TB1 لانه الجدول الاصلي فقط تحديث الشهر وانما احذف السجلات في TB2 فقط اعتبره جدول مؤقت الغاية من هذه العملية كلها (ايجاد الفرق بين راتب الشهر السابق والشهر الحالي) يعني فقط معرفة من تغير راتبه واظهاره في تقرير مع فرق المبلغ لغرض التدقيق مع المعاملات الورقية واتمنى ابداء رايك بالموضوع وشكرا لك