ابو جودي

شكرا على الدعم باش مهندس @Eng.Qassim رجاء اخبرنى هل حاولت فتح النموذج FrmMain وما النتيجة ؟

طيب تلميح أخر يبدو اننى لم اضع الوصف المناسب حتى تعمل القاعدة بشكل طبيعى لابد ان يتم فتح نموذج FrmMain فعند نسخ القاعدة لاى جهاز اخر سوف تقوم بفتح نموذج FrmNotReg بدلا من النموذج الرئيسيى واعتقد ان هذا ما حدث معكم اساتذتى الكرام منتظر رد حضراتكم تلميح آخر لم يتم وضع القاعدة بتلك الطريقة كنوع من تحدى او اثبات استحالة الفتح.. فقط تجربة الفكرة ببساطة يسهل كسر الحماية فى هذه الاونة بكل سهولة للمحترفين وفى النهاية اعلم انه ليست هناك حماية مطلقة.. ولكن هذا الجزء الأول وسوف ارتقى فى الافكار بناء على نجاح التجارب تدريجيا للوصول الى درجة احترافية ان شاء الله تناسب من يريد تأمين عملة بالقدر الكافى فى انتظار رد اساذتى الكرام استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr استاذى الجليل ومعلمى القدير الباش مهندس @Eng.Qassim

ممكن اسكرين شوت من النموذج اللى فتح ؟ ملحوظة هامة لم اقم بتأمين كامل القاعدة يمكن ان تقتح بالضغط على زر الـ Shift برجاء فتح القاعدة بطريقة عادية جدا وتصوير شاشة للنموذج التى تفتح عليه القاعدة

السلام عليكم ورحمة الله وبركاته بناء على طلب احد الاحباب هذا العمل للتجربة اولا برجاء فتح القاعدة وموافتى بالاتى هل تم فتح القاعدة بشكل طبيعى أم أنه طلب منكم وضع رقم ترخيص لتشغيل القاعدة طيب فى حالة طلب رقم الترخيص من فضلك انسخ رقم الـ Activation Number من النموذج من خلال زر الامر Copy وقم بلصقه هنا فى مشاركة للتأكد من فاعلية الفكرة سوف أرسل لكم رقم ترخيص License Number لفتح القاعدة وبعد ذلك سوف تعمل بنجاح الى ان يتم نقلها لجهاز اخر وستتوقف عن العمل ولن يتم فتحها بنفس الرقم السابق والذى أرسلته اليكم ملاحظة رقم الترخيص يتغير من جهاز لاخر يعنى الشخص الذى سوف ارسل لع رقم الترخيص يخص جهازه الحالى فقط ولن ينفع مع شخص غيره ممكن نجرب سويا Anti Copy 3.zip

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

يعنى ممكن تضيفه كنموذج فرعى للنموذج الرئيسى بتاعك لو مفتوح دايما فالبرنامج او اجعل هذا النموذج فردى كما هو واجعله مفتوح ومخفى دائما طول فتره عمل البرنامج طبعا جزاكم الله خيـرا استاذى القدير واخى الحبيب الاستاذ @الفلاحجى ولتمام القائدة للجميع تم التعامل مع المشكلة لايف ريموت اكسس لوحظ عدم وجود النموذج frmChkCon اصلا بالقاعدة والقليل من الاكواد التى على بعض النماذج فى الحدث Error والتى لا تثمن ولا تغنى من جوع بيدوا انه تم الدمج بين طريقتين لنفس السبيل بعد تدارك الموقف وظبط الاكواد كما ينبغى واضافة النماذج اللازمة من المثال الأصلى وبعد التجربة لوحظ مشكله بعدم اغلاق القاعدة لوجود احد النماذج مفتوحة وبالتالى تم تعليق القاعدة تم تلاشى هذه المشكلة باضافة الروتين الاتى ليقوم باغلاق كل شئ اولا Public Sub Logout() Dim F As Access.Form Dim i As Long ' Loop all open forms, from last to first, to avoid problems due to closing forms ' (removing them from the Forms collection) in the loop For i = Forms.Count - 1 To 0 Step -1 Set F = Forms(i) ' Close all forms except the login form If F.Name <> "frmLogin" Then DoCmd.Close acForm, F.Name End If Next i End Sub رجاء من الاستاذ @ahmus فضلا وكرما وليس امرا ارفاق قاعدة البيانات النهائية بعد التعديلات اللازمة لتعم القائدة على الجميع وشكرا

ارفع قاعدتك افضل على https://top4top.io/

تقصد ما يقدر حد ينسخها من جهاز لجهاز أخر

تحمى ايه بالضبط

خيرا

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

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

وهاد تعديل طفيف تنيسق شرطى انظر عندم عدم وجود نتيجة فى ال sCOR وعند التحديث للقيم وعند التركيز داخل الحقل وبما انك رجل منذ القدم معنا ياريت تختار افضل اجابة ليتم العلم انه تم الرد وتوصلت للنتيجة المطلوبة ولا يحتاج الى متابعة وو... Evaluation-HR- Final.zip

شوف يا سيدى انا كنت ناوى اعمل جدول تانى زى ما قلت لك فى الرد النظرى على اعتبار ان التقييم شهرى ولكن بما انه هناك EvalID فتمام انظر الى الجدول tblEvalDetails تم اضافة حقل EvalID ليكون لكل موظف تقيمه الخاص تم ربط الحقول EvalID , EmpID , QuestionID مع بعضهم كمفتاح اساسى حتى لا يتم تكرار نفس الاسئلة لنفس الموظف لنفس رقم التقييم تم عمل استعلام الحاقى باسم qryAddQusToEvaDtils وظيفته الحاق كل الاسئلة فى الجدول tblEvalDetails واضافة رقم الموظف ورقم التقييم فى النموذج الخاص بالتقيم وعند اختيار موطف يتم تشغيل الاستعلام لان الكود تم وضعه عند تحديث مربع سرد الموظف بس خلاص هو بس بيتم احضار كل الاسئلة دفعة واحدة وبيتم وضع التقييم على كل سؤال فى النموذج الفرعى واحد بعد الاخر لان قبل التحديث كان لابد ان يضيف الاسئلة فى النموذج الفرعى تباعا من خلال مربع السرد

هو انت تريد تعديل ام شرح ؟ انت قلت تريد تعديل والان صار التعديل معك كما تمنيت تماما

اتفضل يا سيدى الشرح بعد التجربة ان كان المطلوب تم تنفيذه Evaluation-HR- Final.zip

سؤال لو تكرمت EvalID كيف يتم تحديده ومتى يتم تغيره ومن اين ؟

انت انضممت منذ 4 ساعات وعلمت وتيقنت جيدا ايضا ... ماشاء الله عليك ابشر ان شاء الله جارى عمل اللازم

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

طيب انا فتحت القاعدة اعمل ايه بقى ؟!

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

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

ماشاء الله استاذى الجليل ومعلمى القدير الاستاذ @Barna انا انسان معقد , وافكارى مثلى

تعديل رقم (2).. افضل واسرع بعد التمعن فى الاكواد واحساسى بعدم الرضا عن النتيجة السابقة بفضل الله تعالى تم تغيير الفكرة للأفضل اولا الروتين العام فى الوحدة النمطية: يقوم بعمل دوران على النص لتعريته من اى شئ يخالف المستخدم داخل الروتين عن طريق استخدام الـ Unicode Public Function StripSpChars(strString As String) As String Dim lngCtr As Long Dim intChar As Integer If strString & "" = "" Then Exit Function For lngCtr = 1 To Len(strString) intChar = AscW(Mid(strString, lngCtr, 1)) If intChar = 13 Or _ intChar = 32 Or _ intChar = 40 Or _ intChar = 41 Or _ intChar = 45 Or _ intChar = 46 Or _ intChar = 58 Or _ intChar = 91 Or _ intChar = 93 Or _ intChar = 95 Or _ intChar = 171 Or _ intChar = 187 Or _ intChar = 1548 Or _ intChar >= 1569 And intChar <= 1594 Or _ intChar >= 1601 And intChar <= 1610 Or _ intChar >= 1648 And intChar <= 1649 Or _ intChar >= 1632 And intChar <= 1641 Or _ intChar >= 48 And intChar <= 57 Then StripSpChars = StripSpChars & ChrW(intChar) End If Next lngCtr StripSpChars = Trim(StripSpChars) End Function ثانيا : الاكواد داخل النموذج روتين فرعى لتغيير مصدر التحكم لمربع النص فقط الذى يحتوى على النص + حركات التشكيل - تيم تغيير مصدر التحكم لمربع النص فقط الذى يحتوى على النص + حركات التشكيل حسب حالة المرجع X الذى تم الاعلان عنه فى بناء الروتين Sub GoRecdSource(ByRef x As Boolean) Select Case x Case Is = False Me.txtnass.ControlSource = "[nass]" lblChkCase.Caption = ChrW("1573") & ChrW("1582") & ChrW("1601") & ChrW("1575") & ChrW("1569") & ChrW("32") & ChrW("1581") & ChrW("1585") & ChrW("1603") & ChrW("1575") & ChrW("1578") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1578") & ChrW("1588") & ChrW("1603") & ChrW("1610") & ChrW("1604") Case Is = True Me.txtnass.ControlSource = "=StripSpChars([nass])" lblChkCase.Caption = ChrW("1573") & ChrW("1592") & ChrW("1607") & ChrW("1575") & ChrW("1585") & ChrW("32") & ChrW("1581") & ChrW("1585") & ChrW("1603") & ChrW("1575") & ChrW("1578") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1578") & ChrW("1588") & ChrW("1603") & ChrW("1610") & ChrW("1604") End Select End Sub وبعد اذن استاذى الجليل ومعلمى القدير و والدى الحبييب الاستاذ @jjafferr النظر الى التعديل الجديد لرؤية التعديل الجديد وابداء الرأى عن هذه الفكرة وإرشادى الى ما ينقص تمام العمل واخيرا مرفق التطبيق 12446-1 (3).accdb

الحل الامثل تبعا للمرفق ان شاء الله اولا الروتين العام فى الوحدة النمطية: يقوم بعمل دوران على النص لتعريته من اى شئ يخالف المستخدم داخل الروتين عن طريق استخدام الـ Unicode Public Function StripSpChars(strString As String) As String Dim lngCtr As Long Dim intChar As Integer If strString & "" = "" Then Exit Function For lngCtr = 1 To Len(strString) intChar = AscW(Mid(strString, lngCtr, 1)) If intChar = 13 Or _ intChar = 32 Or _ intChar = 40 Or _ intChar = 41 Or _ intChar = 45 Or _ intChar = 46 Or _ intChar = 58 Or _ intChar = 91 Or _ intChar = 93 Or _ intChar = 95 Or _ intChar = 171 Or _ intChar = 187 Or _ intChar = 1548 Or _ intChar >= 1569 And intChar <= 1594 Or _ intChar >= 1601 And intChar <= 1610 Or _ intChar >= 1648 And intChar <= 1649 Or _ intChar >= 1632 And intChar <= 1641 Or _ intChar >= 48 And intChar <= 57 Then StripSpChars = StripSpChars & ChrW(intChar) End If Next lngCtr StripSpChars = Trim(StripSpChars) End Function ثانيا : الاكواد داخل النموذج الاعلان عن متغير للاحتفاظ برقم السجل الحالى من خلال الحقل txtid Dim idRec As Integer روتين فرعى للذهاب للسجل حسب قيمة المتغير السابق idRec للحافظ على الذهاب الى السجل الحالى Sub GoRec() With Me.Recordset .FindFirst "ID=" & idRec End With End Sub روتين فرعى لتغير مصدر بيانات النموذج - يحتفظ الروتين برقم السجل الحالى بالحاق الرقم الى المتغير idRec - تيم تغيير جملة بناء الاستعلام حسب حالة المرجع X الذى تم الاعلان عنه فى بناء الروتين - تغيير عنوان مربع الاختيار تبعا لحالة مصدر البيانات المطلوب استخدانه Sub GoRecdSource(ByRef x As Boolean) idRec = txtid Select Case x Case Is = False Me.RecordSource = "SELECT book.nass, book.id, book.part, book.page FROM book;" GoRec lblChkCase.Caption = ChrW("1573") & ChrW("1582") & ChrW("1601") & ChrW("1575") & ChrW("1569") & ChrW("32") & ChrW("1581") & ChrW("1585") & ChrW("1603") & ChrW("1575") & ChrW("1578") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1578") & ChrW("1588") & ChrW("1603") & ChrW("1610") & ChrW("1604") Case Is = True Me.RecordSource = "SELECT StripSpChars([book]![nass]) AS nass, book.id, book.part, book.page FROM book;" GoRec lblChkCase.Caption = ChrW("1573") & ChrW("1592") & ChrW("1607") & ChrW("1575") & ChrW("1585") & ChrW("32") & ChrW("1581") & ChrW("1585") & ChrW("1603") & ChrW("1575") & ChrW("1578") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1578") & ChrW("1588") & ChrW("1603") & ChrW("1610") & ChrW("1604") End Select End Sub الكود المستخدم على مربع الاختيار يتم استدعاء الروتين الفرعى المختص بتغيير مصدر بيانات النموذج تبعا لحالة مربع الاختيار الذى يدرج قيمته الى المتغير المستخدم كمرجع فى الروتين الفرعى السابق GoRecdSource (ChkCase) ما سبق اجتهاد شخصى >>---> قد تكون هناك طرق افضل وفى انتظار رأى استاذى الجليل ومعلمى القدير الاستاذ @Barna واخيرا مرفق التطبيق 12446-1 (2).accdb