ابو جودي

هل من توضيح اكثر

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

اتفضل كل شئ بالعربى >>---> التاريخ الميلادى - التاريخ الهجرى - الوقت دونما التقيد بلغة النظام المتغير (1).accdb

وهذا لفتح الشيفت او اغلاقه من منتديات اوفيسنا - فتح وإغلاق شفت.mdb

طيب اتفضل يا سيدى نسخة واحدة وتعمل على كل القواعد من منتديات اوفيسنا - فتح وإغلاق شفت.mdb

والان المرفق بعد ازاله الماكرو لمنع ايقاف الشيفت او الاخفاء للاطار ليسهل الاطلاع على الكائنات وهناك حيله نسيت ذكرها استخدم فى بداية اسماء الكائنات التى لا اريد اظهارها للمستخدم العادى Usys لذلك يتعامل معها الاكسس على انها كئنات تتبع النظام فتختفى لذلك لابد من اظهار ملفات النظام المخفية اولا لترى جميع الكائنات DontCopyDB.zip

السلام عليكم اولا كل الشكـر والتقدير لمن تفضل وتكرم بالمرور والتجربة اما استاذى العزيز وأخى الحبيب الاستاذ @kanory لم ادخل سباق او تحدى انه لن يستطيع احد جلب الاكواد او فتح القاعدة كلنا نعلم تمام العلم انه لايوجد حماية مطلقة فقط قدمت افكار لمنع النسخ ليس الا اخى الحبيب واستاذى الفاضل استاذ @عبد اللطيف سلوم دعنا نفكك المرفق اولا الماكرو autoexec اذا وضعت باى قاعدة ماكرو بهذا الاسم هو اول ما يتعامل معه الاكسس لينفذ الاكواد بداخلة وفى مررفقنا هذا يحتوى اولا على ap_DisableShift() هذا السطر يستدعى كود لايقاف عمل زر الشيفت الموديول الذى يحتوى على هذه الاكواد باسم UsysmodShift السطر الثانى داخل الماكرو StartForm() هذا السطر يستدعى الكود الخاص باخفاء اطار الاكسس هذا الكود موجود داخل موديول باسم UsysmodHideAccessFream وأخيرا بعد ايقاف الشيفت وبعد اخفاء اطار اكسس فتح النموذج UsysfrmSplash فى هذا النموذج تم وضع كود عند الفتح ليمنع المستخدم من تغيير اسم القاعدة If CurrentProject.Name = "DontCopyDB.mde" And Len(CurrentProject.Name) = 14 Then Else MyNo = " - : 0123456789" MyMesg "يجب عدم تغيير إسم البرنامج لتكون قادر على تشغيله" & vbCrLf _ & "لذلك سوف يتم إغلاق البرنامج حتى يتم تصحيح الإسم أو يجب عليك الإتصال بمصمم البرنامج..", vbOKOnly, "للإتصال بالمبرمج " & MyNo DoCmd.Quit End If وهنا قمت بتغيير الامتداد فقط للتمويه من mdb الى mde وعند عداد الوقت استخدمت هذا الكود Call MacAddressDon وهذاا يقوم بالنداء على كود داهل موديول باسم UsysmodGetMacAddress وهذا الكود المستهدم بداخله Public Function getMacAddress(Optional strComputer As Variant) As String Dim oWMIService As Object Dim oMacs As Object Dim oMac As Object Dim strComp As Variant 'if no computer name is passed then use the name of the computer running the code. If IsMissing(strComputer) Then strComputer = "." End If Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set oMacs = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration") 'Win32_ComputerSystem For Each oMac In oMacs If IsNull(oMac.MacAddress) = False Then 'Debug.Print oMac.MacAddress getMacAddress = oMac.MacAddress End If Next End Function لكل جهاز بصمة مثل اصابع ايداينا والتى لا تتشابه تستخدمها الحكومات للوصول الى اجهزة الهاكرز MacAddress ان اردت القراءة اكثر عنها https://ar.wikipedia.org/wiki/عنوان_التحكم_بالنفاذ_للوسط وحتى لا اطيل عليك فقط قمت بعمل حيلة صغيرة قمت بعمل موديول باسم UsysmodDon'tCopy من خلاله انشئ جدولا مخفيا عند الفتح للقاعدة لاول مرة يتم حفظ الماك ادرسس به مما يستوجب انك لابد ان تذهب للعميل وتعطه النسخة بعد فتحها للمرة الاولى من خلالك انت وليس قبل فتحها فاذا تم تسجيل الماك ادرس تبع جهازه انتهى الموضوع لن يتم نسخها لاننى وضعت اكواد تقوم بمقارنة الماك ادرس الحقيقى مع الموجود داخل الجدول كلها حيل يا عزيزى مجرد حيل وليست تأمين بمعنى الكلمة وكل يبدع بافكاره طبعا الماك ادرس لا يتغير بعد الفورمات ولن يفرق معه مكان وجود القاعدة طالما انها على نفس الحاوسوب تعمل اما اذا رزقكم الله باحد المحترفين مثل الاستاذ @kanory فكل ما سبق ينتهى بغضون ثوان قليلة لذا ان اعجبتك افكارى وقمت بتطبيقها لابد ان تكتب على القاعدة عند الفتح الاستاذ @kanory ممنوع الاقتراب والاستخدام من فضلك اغلق القاعدة

التعديلات التى تمت والاضافات - زر امر واحد لتسجيل الدخول / تسجيل الخروج - تحويل الاوبشن جروب الخاص بالدور الى كمبوبوكس يضفى مرونة أكثر اذا ذادت الادوار -اضاقة كمبوبوكس برقم الغرفة الان يتم من داخل النموذج الفرز والتصفية بناء على الطابق - رقم الغرفة -بأخر نموذج التسكين عدد الاسرة اجمالا وتفصيلا حسب التصفية والفرز -اخفاء اطار اكسس -توسيط النماذج -تصغير القاعدة بجوار الساعة وتغيير الايقونة كما تريد -فى حالة عدم وجود الايقونة المخصصة يتم استبدالها بايقونة الاكسس دون التقييد بنسخة الاكسس ومساره - منع الدخول الى محرر الأكواد من خلال ايقاف عمل الضغط على الأزرار Alt + F11 من لوحة المفاتيح الزبدة فى حالة فتح القاعدة عند عدم اضافة الاسرة يجبر المستخدم على اضافة الاسرة تلقائيا هى دى الزبدة لا لا لا لا لا لسة الزبدة جاية نموذج اضافة الأسرة بسهولة ومرونة بتحديد الطابق اولا قم تحديد رقم الغرفة ثم كتابة عدد الأسرة إجمالا المفترض تواجدها لهذه الغرفة ويتم لو اردت وضع 99 سرير بالغرفة دفعة واحدة الزتونه ان كانت الغرفة تحتوى على 5 اسرة واريد ان يكون مجموع الاسرة 15 يعنى نريد اضافة عدد 10 من الاسرة نكتب العدد الاجمالى 15 ههههههه نعم يضيف الفارق من الاسرة بين العدد الاجمالى الحالى والعدد الاجمالى الجديد فقط دون ادنى مشكلة مع الحفاظ على الترقيم بالالية التى وضعها معلمى الجليل واستاذى القدير و والدى الجبيب الاستاذ @ابوخليل وبهذا تم تلبية طلب اخى وحبيبى الدكتور @حلبي بعمل شاشة لاضافة اجمالى الاسرة دفعة واحدة وما سبق تعديله واضافته هو هدية منى تعديل المرفق dbskn(3).zip

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

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

العفو منكم استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل بل كل الشكــــــــــــــر والتقدير لكم انتم منكم نتعلم حتى كيف نفكر اعتذر انا على سفر ارجو قبول اعتذارى لايجازى بالرد عليكم كما اعتذر لنسيانى تقديم الشكر على هذا العمل الاكثر من الراااااااااااااااااااائع كما اعلم الدكتور @حلبي اننى اغار منه بسبب انه سأل سؤال واحد ويرزقه الله بالاجابة من معلمى القدير واستاذى الجليل بهذا الشكل الذى لم يختر على بال كما اتمنى ان سمح وقتكم يا والدى الحبيب العمل تحت مظلتكم بمشروع برنامج الصادر والوارد ام اغير اسمى من محمد الى حلبى

هنا تم عمل الكود من خلال معالج اكسس وخو من تلقاء نفسه يكتب الامر بتلك الطريقة ولا فرق بين النتيجتين يعنى يمكن فتح النموذج بتلك الطريقة ايضا Docmd.openform "frmain" وبما ان استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل افرد موضوعا خاصا لعرض الافكار وتناولها اعرض فكرة متواضعة فى النموذج frmchang حيث قمت بإلغاء زرى الامر والخاصين بتسجيل الدخول وتسجيل الخروج لاستبدالهما بزر امر واحد فقط ويقوم بعمل الزرين مجتمعين dbskn.mdb

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

اتفضل جرب والشرح ان كان هذا ما تريد بعد التجربة وان كان هذا ما تريد لا تنسي الدعاء الوفير لاستاى الجليل ومعلمى القدير الاستاذ @jjafferr والله اهدانى هذا الكود فى يوم من الايام دون ان اطلبه حتى كنت اسال عن شئ وكتبت كود كبير جدا ومطول لاصل لمبتغاى بعد ان توصلت لاجابة على سؤالى والذى لم يكن له علاقة تقريبا بهذه الطريقة وبهذا الكود اهدانى اياه معلمى حتى لا يكون الامر شاقا على بكتابة الكثير من الاكواد لاصل لهذه النتيجة اسأل الله تعالى ان يرزقه عن كل حرف كتبه ليعلم به حسنه واسال الله تعالى ان يضاعفها بكرمه وجوده الى اضعافا لا تحصى ولا تعد يارب العالمين فتثقل ميزان اعماله فيترتقى اعلى درجات الجنان يارب العالمين شقق ومخازن ايجارات - Copy.accdb توضيح فقط لم ارد جلب البيانات اصلا مرة اخرى لاننى بالفعل املكها فى احد الجداول لماذا اجلبها وحمل القاعدة ببينات تتكرر من الاساس

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

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

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

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

طيب ممكن اعمل لحضرتك مرفقا بـــ الانجليزية انا باتعب جدا مع اللغة العربية وان اعجبتك الفكرة انت حولها الى العربيه هاهاهاه للعلم انت تريد الـ DLookup على طريقة استاذى الجليل ومعلمى القدير الاستاذ @jjafferr بس لى عندك طلبا مسبقا قبل ان ابدأ هل يمكنك اختيار شئ ثابت بدلا من الاسم

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

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

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

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

اولا قبل اى شئ ننتظر منكم مرفقا بالمكان الصحيح والمكان الصحيح لنتعلم

من واقع المرفق الطالب المعرف الاسم الهاتف المعدل النتيجة 1 احمد 078 88 ناجح 2 احمد 077 46 راسب بادئ ذى بدئ اؤيد وبكل شدة رأى اخى الحبيب الاستاذ @مسفر هنا الاسم تكرر دائما لن تأتيك الا النتيجة التى تخص السجل الأول اون كنت تريد الكود الذى يأتيك بالبيانات دون اضافة سجل جديد اليك الحل استبدل سطر الكود تبعك بهذه الأكواد Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "[الاسم] = '" & Me![fname] & "'" If Not rs.NoMatch Then Undo Me.Bookmark = rs.Bookmark MsgBox ("موجود من قبل ") End If سؤال على ديلوكاب.accdb من وجهة نظرى الثوابت التى تريحك تمام ويمكنك الاعتماد عليها بدلا من الاسم لان الاسم قد يتكرر مع الكثيرين من الاشخاص - رقم الشقه اعتقد فى العمارة الواحد رقم الشقة لا يتكرر مطلقا -رقم هوية المستأجر فرقم الهوية ايضا حتما لم يتكرر لشخص اخر