ابو جودي

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

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

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

طيب رائع جدا جدا جدا جدا جدا اترك الحرام وابحث لك عن الحلال

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

اعتذر لا املك الادوات الكافية واللازمة للتجربة على اكثر من موديل واعتذر عندما اسكت عن متابعة يعنى اننى لا اعرف اكثر من الحد الذى تعداه السؤال انا اعجبتنى الفكرة بانها لا تعتمد على اى برامج خارجية ولكن يبدو انها ليست فعاله

يبقى اعمل اللى قالك عليه الاساتذة ولو عاوز رأى والله والله والله ما فى شئ اسمه حماية مطلقه كلها مسألة وقت فقط حتى تنكسر الانظمة العالمية يتم كسر حمايتها ارح عقلك وقلبك

معلش انا مش عارف اطبق الطريقه عليه بس دى فكرة openforms.accdb

طيب اعمل نموذج رئيس وضع به 5 ليست بوكس بدلا من النموذج الفرعى

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

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

انا عندى سؤال ايه المانع من تقسيم القاعدة لامامية لجميع الكائنات وخلفية للجداول وبكل بساطه حول القاعدة الامامية الى 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 صل على رسول الله - صل الله عليه وسلم وعلى اله وصحبه يا دكتور هذا ما اريده فقط ولا اريد غير ذلك اما انت يا استاذى الجليل وسيدى الفضيل ومعلمى القدير يكفينى انك على اسم ابى فوالله لو طلبت كل ما املك فلن تجدنى الا ملك يمينك بكل ما املك احبكم فى الله ولوجه الله تعالى

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

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

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

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

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