حسين العربى

اخي الفاضل واستاذي الكود يعمل بنجاح لو امكن اخي الفاضل هذا الكود imgFmt.SaveFile "c:\test.png" يأخذ من مربع نص غير منضم انا عامله وعامل كود عند الضغط عليه اذهب الي الفولدر وعند الضغط علي الفولدر يجلب لي مسار الفولد ر ( وانسي الرد الي هو ملحوظه ) وهذا هي شكل مربع النص الي الي انا عامله وبجوار زر امر علي شكل فولدر عند الضغط عليه يفتح لي مربع حوار واذهب الي الفولدر الي عاوزه وعند الضغط عليه يجلب لي مسار الفولدر في مربع النص طبعا ده جاهز

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

الف شكر استاذي الفاضل جاري التجربه

ده برنامج للاستاذ نهر الفنون به كود سحب عدة صور حاولت ان اطبقه علي برنامجي ولاكن فشلت https://drive.google.com/file/d/0B5oTVOnhU-rrUmo4Y0NueThtMUk/view?usp=sharing

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

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

ج

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

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