Foksh

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

مشاركة من الأستاذ أحمد يوسف في جروب الواتس أب ، حيث قام بإضافة الكتب التي يحوزته على مجلد جوجل درايف ومشاركته مشكوراً على جهده . في الرابط التالي https://drive.google.com/drive/folders/1ynPi8W3gZY3n7TjIz-GnJiRQ5OXe34iO

وعليكم السلام ورحمة الله وبركاته .. اجعل الجداول الخلفية محمية بكلمة مرور .

تعقيباً مع أستاذي ومعلمي @ابوخليل ، لفت انتباهي كلمة :- وبناءً عليه فإذا كان الزر المخصص لإنشاء سجل جديد في النموذج الرئيسي ، فيكون مقترح معلمي الفاضل كالآتي :- Me.Sub_Form.Form.AllowAdditions = True DoCmd.GoToRecord , , acNewRec Me.Sub_Form.Form.AllowAdditions = False

قد تحتاج لدالة فحص ما إذا كان الجهاز متصل بالإنترنت أملا ، فإذا كان متصلاً فيتم جلب الساعة من السيرفر ، وإلا فيتم عرض رسالة أو اعتماد ساعة الجهاز الحالية ( حسب الحالة ) .

صاحب الموضوع متمسك بالحدث المتعلق بالنموذج وليس بزر الحذف نفسه .. دائماً ما يلجأ البعض إلى الطرق الأصعب أو التي قد لا تحقق الهدف بشكل مباشر 🤷‍♂️

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

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

أخي الكريم ، لماذا لا تبحث عن طريقة التنفيذ المستقر والآمن لأي فكرة تريدها ؟؟ فأنا لم أجرب الحدث من خلال النموذج كما في فكرة الأستاذ خليفة جزاه الله خيراً ، ولذا ننتظر الإجابة من صاحب الإجابة بخصوص فكرته

رغم أن ملفك الذي ارفقته لا يحمل أسماء الحقول التي أخبرتنا بها في رأس الموضوع ، وهذا شيء مربك لك . فلو أنك من البداية أرفقت ملفك لكنت الآن قد انتهيت من مشكلتك منذ الرد الأول .. على العموم , هذا ملفك الذي ارسلته بالتطبيق الكامل .. FMK.zip

هذا ليس الكود الذي ارفقته لك بدايةً .. ثم أنه لا بد من أن تقوم بالتفريق بين حقل وعنصر مربع نص الحقل أحد مكونات الجدول . أما العنصر T4 الذي تقصده فهو مربع نص مصدره في جدوله = الحقل TENDER_NO شكراً لك ..

دلالة على انك لم تقرأ الكود وتتفحصه اخي الكريم .. لاحظ الجزء التالي :- t4Value = Me.T4 userName = Environ("Username") computerName = Environ("ComputerName") sql = "INSERT INTO hestable (oldrec, [User], Comname, curdata) " & _ "VALUES ('" & Replace(t4Value, "'", "''") & "', '" & Replace(userName, "'", "''") & "', '" & Replace(computerName, "'", "''") & "', Now());" On Error GoTo ErrHandler CurrentDb.Execute sql, dbFailOnError جملة تنفيذ استعلام اضافة داخل الجدول أولا . ثم :- DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True جملة حذف السجل ثانياً

الخلل في طريقة تنفيذك ونقلك للفكرة . ما لم تقم بارفاق ملفك مع العلم انك قمت باختيار الاجابة ... فكيف هذا !!!!

وعليك السلام ورحمة الله وبركاته .. الق نظرة القابلة للتطوير على هذه الفكرة في الموضوع التالي :-

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