Ahmed_J

up

السلام عليكم حسب فهمي لطلبك تفضل الملف بعد التعديل اتمنى ان يكون المطلوب test.accdb

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

السلام عليكم استاتذتي الاعزاء استاذ @walid7799 1- زر الفيدر في النموذج لايعمل ويظهر لي رسالة الخطا كما في الصورة 2- زر سحب صورة من السكانر add pic في النموذج لايعمل ويظهر لي رسالة الخطا كما في الصورة رقم 2

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

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

up

استاذي الغالي @jjafferr مساء الخير عملت موضوع بالامس وعلى نفس مثال اخي @ابو جودي لكن لم اجد اي اجابه هنا المطلوب : احيانا تكون الوثائق الرسميه (كتاب رسمي) فيها مرفقات اكثر من ورقة ويجب حفظها بمكان واحد ولها رقم واحد وتاريخ واحد https://www.officena.net/ib/topic/113587-تعديل-كود-اضافة-اكثر-من-صورة/ تحياتي لك

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

السلام عليكم حسب فهمي لطلبك تفضل 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

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