ابو جودي

هات المرفق

العفو منكم استاذى الجليل انا اقل طالب علم فى هذا الصرح الفضيل

استاذى الجليل @د.كاف يار اطلب منكم على النظر فى هذا المرفق والرجوع الى بعد التجربة مسح ضوئى لاى عدد من الاوراق دون الاعتماد على اى برامج خارجية والتحويل الى pdf Scan With ms Access ADF.zip

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير الاستاذ @د.كاف يار بعد التحية للاسف بعد التجربة لم يقم المرفق الا بعمل مسح ضوئى لورقة واحدة فقط المطلوب المسح الضوئى لكل الاوراق مره واحدة

لم تنجح معي وندوز 7 64 بيت

وهذا تعديل معلمى الجليل واستاذى القدير الاستاذ @essam rabea كما تفضل مشكور واختصر 100 سطر بـ بسطر واحد مش الصعايدة اللى عملوه الأول ولكن انا اضفت جزئية كام لابد منهاطالما اننا نحاول تلافى الاخطاء قدر المستطاع هههههههههه منا لازم احط التاتش الصعيدى مفجأه Change Characters (1).mdb

وطبعا انا راح اسمه كلامك يا استاذى الجليل ومعلمى القدير يا حبيبى يا استاذ @essam rabea لان اللى ما يسمع لكبيره يا تعاتيره

والله .... الله يفتح عليك علشان تعرفوا بس ان انا صعيدى هاهاهاهاهاه بس خلاص كيف ما يحكوا عنا بالصعيد العايط ع الفايت نادم

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

اتفضل دوس كليك يمين Test.accdb وهنا فكرة أخرى

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

الحمد لله رب العالمين نجحت ونجح الاتصال بس ممكن طلب ممكن اعرف إصدار الويندوز عندك ....... والنواه بتاعته 32 بيت او 64 بيت ممكن اعرف إصدار الاوفيس عندك ....... والنواه بتاعته 32 بيت او 64 بيت واليك التعديل الاخيــــــــــــر Connect To Network (1).accdb

اتفضل يا استاذ @محمد احمد لطفى Connect To Network.accdb

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

اتفضل ان يسر الله لى تعالى قد يكون لى عودة بما يتفضل به الله تعالى على لاتيك بحلول أخرى إن أمكن ذلك بمشيئة الله تعالى قد تكون هناك حلول افضل من ذلك ولكن هذا اول ما خطر ببالى اعتذر ظروفى ولله الحمد على كل شئ لا تسمح لى حاليا بالتركيز أو التفكير اعتذر ان كانت الطريقة مطولة ومعقدة بعض الشئ Change Characters.mdb

جزاكم الله عنى كل خيـــــر

لا تيأس واستعن بالله عزوجل

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

انا فهمت قصدك لكن بصراحة مش عارف

الله اكبــــــر فعلا اشتغل طيب الحمد لله رب العالمين طيب ممكن اطلب منك طلب ممكن تتكرم على وترفع المرفق اللى انت عملته اللى اشتغل معاك بالبيانات اللى انت عملتها زى ما عملتها بالضبط

وانا لا املك الامكانيات اللازمة للتجربة كذلك

طبعا تعدل البيانات دى حسب ما عندك ServerShare = "\\corp-server\HostingFolder" UserName = "mydomain\myuser" Password = "freddie123"

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

جرب الكود ده ورد على بالنتيجة لة تكرمت Dim NetworkObject As Object Dim FSO As Object Dim Directory As Object Dim Filename As Object Dim ServerShare As String Dim UserName As String Dim Password As String ServerShare = "\\corp-server\HostingFolder" UserName = "mydomain\myuser" Password = "freddie123" Set NetworkObject = CreateObject("WScript.Network") Set FSO = CreateObject("Scripting.FileSystemObject") NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password Set Directory = FSO.GetFolder(ServerShare) For Each Filename In Directory.Files Debug.Print Filename.Name Next Set Filename = Nothing Set Directory = Nothing Set FSO = Nothing NetworkObject.RemoveNetworkDrive ServerShare, True, False Set NetworkObject = Nothing

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