ابو جودي

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

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

انا عندى سؤال ايه المانع من تقسيم القاعدة لامامية لجميع الكائنات وخلفية للجداول وبكل بساطه حول القاعدة الامامية الى accde or mde بذلك تنتهى تماما من وجع دماغ الحمايه وتريح نفسك يا استاذ @محمد صلاح1

Private Sub dd_Click() On Error Resume Next Me.t = Me.WebBrowser4.Document.getElementById("twd").innerText Me.t1 = Me.WebBrowser4.Document.getElementById("dd").innerText End Sub Private Sub Form_Load() Me.WebBrowser4.Navigate "https://time.is/ar/Egypt" End Sub دى الاكواد ومفيش جداول او كائنات اخرى اصلا سوى النموذج الذى اقتبست منه الاكواد

معدالبرنامج/م أحمد محمد السردي 883579 059

جزاكم الله خيرا

اللهم امين يارب العالمين وعلى فكرة وانا احيانا مثلك اقرأ واضحك كالمجنون حتى ان زوجتى تداعبنى ضاحكة الحمد الله زوجي فقد الباقية المتبقية من عقله اللهم لا اعتراض

هذه بضاعتكم اردها اليكم يا دكتور اسأل الله ان اكون وفقت فى فهم وتنفيذ طلبكم يا دكتور @حلبي ترقيم حسب المدير والتاريخ (1).accdb

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

اعتقد هذه فكره مجنونه وبما اننى مجنون عندما يسعنى وقتى سوف افكر فى تنفيذها

السلان عليكم اعتذر يا دكتور على التأخير كنت بأصلى اتفضل يا دكتور استخدم احد الكودين الاتيين على زر امر الترقيم Me.k = Nz(DMax("k", "t1", "[xdate] = #" & Format(Me.txtXdate, "yyyy/mm/dd") & "#" & "And [manager] = '" & txtManager & "'"), 0) + 1 'Me.k = Nz(DMax("k", "t1", "xdate=[Forms]![F1]![txtXdate]and manager=[Forms]![F1]![txtManager]"), 0) + 1 ولعدم تغيير القيمة ان وجدت بالحقل Select Case Nz(Me.k.Value, "") Case "" Me.k = Nz(DMax("k", "t1", "[xdate] = #" & Format(Me.txtXdate, "yyyy/mm/dd") & "#" & "And [manager] = '" & txtManager & "'"), 0) + 1 'Me.k = Nz(DMax("k", "t1", "xdate=[Forms]![F1]![txtXdate]and manager=[Forms]![F1]![txtManager]"), 0) + 1 Case Else Exit Sub End Select صل على رسول الله - صل الله عليه وسلم وعلى اله وصحبه يا دكتور هذا ما اريده فقط ولا اريد غير ذلك اما انت يا استاذى الجليل وسيدى الفضيل ومعلمى القدير يكفينى انك على اسم ابى فوالله لو طلبت كل ما املك فلن تجدنى الا ملك يمينك بكل ما املك احبكم فى الله ولوجه الله تعالى

بس كده دى وصفى سهله ... دى وصفة هايلة ادفع الاول

وانا لا اعمل اى شئ ربحى والاختلاف فى الرأى لا يفسد للود قضية

عاوز تفتح النموذج كام مره اقصى عدد ؟

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

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

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

هات المرفق

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

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

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

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

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

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

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