حسين العربى

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

ج

up

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

بصيغة 2003 arsef1 2003.rar

تم فتح موضوع جديد في هذا الرابط

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

up

UP

up

هل من مجيب

up

اساتذتي الافاضل يريت حد يرد باجابة علي السئوال الاخير لاني اريد ان اسلم البرنامج ارجوكم

تفضل اخي انشاء اله يكون المطلوب ولي ملحوظه يفضل كتابة الاسم في الجدول بالانجليزي مسارات الطيف للاتصالات.rar

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

up

ده كود اخذته من برنامج ارفقه الاخ الفاضل نهر الفنون للسحب من اسكنر ياريت حد يعدل عليه ليتوافق مع برنامجي Me.[Table2].Form!NEM_IMEGE = "ÇÑÔÝÉ ÈÇáÇÓßäÑ" DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 TWAIN_SelectImageSource (Me.hwnd) Dim Ret As Long, PictureFile As String Dim ss As Integer ss = Me.oto PictureFile = Found1 & "\" & "foto" & "\" & Me.id & "_image" & ss & ".jpg" Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile) If Ret = 0 Then Me.path2 = Me.id & "_image" & ss & ".jpg" Forms!ekama!image1.Picture = PictureFile On Error Resume Next DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNext Forms!ekama!image1.Picture = PictureFile Else 'Kill PictureFileMsgBox "ÝÔáÊ ÚãáíÉ ÇáãÓÍ ", , "" End If

ده نسخة من البرنامج بعد اخر تعديل وهو اضافة زر امر لاضافة عدة صور من الكمبيوتر لكي يستفيد الجميع طبعا الشكر كل الشكر لاساتذتي ( Shivan Rekany / محمد سلامه ) ولكل من ساهم في هذا البرنامج ويا ريت حد عنده فكره عن كيفية عمل زر امر للسحب من الاسكنر وكيفية عمل ذالك ليكتمل البرنامج وجزاكم الله خيرا ارشيف الكتروني.rar

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

الف شكر اخي الفاضل Shivan Rekany والله ماقصرت

اهلا بك استاذي الفاضل Shivan Rekany وشكرا علي اهتمامك انا بستخدم اوفيس 2007

حد يا جماعه عند فكره عن المرجع ده يفيدنا فيه لو سمحتو / المرجع اسمه ميكروسوفت اوفيس اوبجكت

انشاء الله سوف اعمل علي اوفيس 2010 بعد عمل هذا البرنامج فعلا هو جميل جدا اعزرني اخي ماذا تقصد بالمرجع واين يوجد

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

up