نجوم المشاركات

بداية دعونا نتفق طالما فكرنا فى الموضوع ده ووصلنا له اذن نريد اضافة حماية لتطبيقاتنا طالما سوف نتحدث عن الحماية فلسوف يتم ان شاء الله العمل على افكار تطبيق ذلك خطوة بعد خطوة تدريجيا للارتقاء بالتوازى برفع مستوى الحماية مع الانتهاء من التطبيق مشروحا خطوة بعد خطوة تفصيليا 1- كل اسماء الجداول والنماذج والاستعلامات والموديول التى تخص المستخدمين ونظام الحماية سوف تبدأ بالمقطع Usys حتى يتعامل معها االاكسس على انها من كائنات النظام فيخفيها اليا عن المستخدم العادى 2- تشفير / فك تشفير البيانات التى تخص تطبيق نظام الصلاحيات وبما اننا سوف نبدأ بتلك الجزئية يستوجب تقديم الشكـر والامتنان لاستاذى الجليل ومعلمى القدير الدكتور @SEMO.Pa3x لاننى ان شاء الله سوف استخدم نظام التشفير الذى تقدم به استاذى الجليل اولا ـــــــــ الروتين المستخدم فى تشفير الكلمات والذى يتم وضعه فى موديول Function Encoder(ByVal strWordDecrypt As String) As String Dim iIndex As Integer Dim iEncoder As Integer Dim iEncodedVal As Integer Randomize Encoder = "" For iIndex = 1 To Len(strWordDecrypt) Do iEncoder = Int(98 * Rnd + 89) iEncodedVal = Asc(Mid(strWordDecrypt, iIndex, 1)) Xor iEncoder Loop While iEncodedVal = 1000 Or iEncodedVal < 99 Encoder = Encoder & Chr(iEncodedVal) & Chr(iEncoder) Next iIndex End Function ويتم استدعاءه كلاتى Encoder(text) حيث ان text هو النص المراد تشفيره أو انه اسم الحقل ( تيكست بوكس , كمبو بوكس ..) المراد تشفير القيم الموجوده بهم ------------------- العملية العكسية وهى فك تشفير الكلمات واعادتها الى وضعها الطبيعى الروتين المستخدم فى فك تشفير الكلمات والذى يتم وضعه فى موديول Function Decodeder(ByVal strWordEncrypt As String) As String Dim iIndex As Integer Dim iDecodedVal As Integer Decodeder = "" For iIndex = 1 To Len(strWordEncrypt) Step 2 iDecodedVal = Asc(Mid(strWordEncrypt, iIndex, 1)) Xor Asc(Mid(strWordEncrypt, iIndex + 1, 1)) Decodeder = Decodeder & Chr(iDecodedVal) Next iIndex End Function ويتم استدعاءه كلاتى Decodeder(EncoderText) حيث ان EncoderText هو النص المشفر المراد فك تشفيره أو انه اسم الحقل ( تيكست بوكس , كمبو بوكس ..) المراد فك تشفير القيم الموجوده بهم واخيرا المرفق Encrypt&Decrypt.mdb

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

المشكلة عندك بأن حقل التاريخ عندك عبارة عن نص ، فنستعمل الامر CDate ومعناه حوّل البيانات الى تاريخ Convert to Date ، ومنها تستطيع عمل الفرز 🙂 هي نفس المشكلة في اسماء الملفات في المجلد ، اذا كانت الاسماء عبارة عن تاريخ ، لا يمكن فرزها بالطريقة الصحيحة !! جعفر

السلام عليكم 🙂 بالاضافة الى طريقة استاذنا ابوجودي ، اليك طريقة اخرى متوفرة على كمبيوترك : افتح برنامج الوورد . استخدم خط Wingdings3 : . انقر نقر مزدوج على الاسهم اللي تريدها (ونصيحة ، اختار اكبر كمية من الاسهم ، لأن شكلها وهي كبيرة قد تجعلك تختار الافضل) ، فتراها في ملف الوورد ، اغلق النافذة ، اعمل نسخ للسهم ، ثم الصقه في الحقل في الاكسس ، وطبعا تختار نوع الخط Wingdings3 🙂 . بس ما تقدر تعمل اي حروف مع السهم ، لأن الحقل في الاكسس يأخذ نوع واحد من الخطوط ، وخط Wingdings3 ما فيه حروف 🙂 ولكن ، يمكنك الحصول على بعض انواع الاسهم في الخطوط العادية ، مثل Arial او اي نوع آخر من الخطوط الموجودة اصلا على كمبيوترك: . وبعد نسخ السهم من الوورد ، ولصقه في حقل الاكسس ، تم كتابة الحرف L مباشرة خلف اللصق : . وصرت اغيّر الخطوط الى ان عجبني سهم هذا الخط 🙂 جعفر

يغجبني كثيرا متابعة الاخوة استاذ @ناقل واستاذ @Moosak لكن غلب علي النعاس ومتابعتهم تحتاج قهوة الصباح بالعراقي نقول .. فدوة لهذا المنتدى ولعطيته 😂

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هذا برنامج رسم قطاعات الترع من بيانات رفع المساحي رسم قطاعات الترع 1.rar

ممكن ان تستعمل النموذج الجديد (واعمل فيه حقل البحث txt1) ، كنموذج بحث وتتخلّص من النموذج book : استبدل اسم الحقل المحلي بدل عن حقل النموذج : فبدلا عن: str_Search = Forms!Book!tx1 يكون: str_Search = Me.tx1 ولكني انصحك بالتصفية كما تقوم به الآن ، بحيث يبقى فقط السجلات التي بها كلمة البحث. جعفر

حياك الله وبياك جعفر 😄 🌹 بصراحة أحس بالأنس وانت موجود في المنتدى 👍🏼😁 وشكرا على النصيحة 🌹

حياالله ولد بلادي 🙂 استخدم Trim ، وابتعد عن Like قدر الامكان ، لأنها بطيئه نوعا ما 🙂 جعفر

وهو الذي عملته انا في آخر مرفق

هلا فعلا النتائج لم تتأثر بالمسافات الزائدة عندك حسب تجربتك؟ أنا كنت أفكر في دالة like أو دالة Trim كحلول لهذه المشكلة ..

في المديول القديم كان يتطلب متغيرين ( نص التشفير و الحقل المشفر ) اما المديول الاخير يتطلب فقط ( الحقل المشفر ) هذا الفرق فقط ....

كنت اريد التأكد هل وجود المسافات الزائدة تشكل فارق النتيجة المرجو الحصول عليها اما عن سؤال حضرتك كيف اضفتها هههههههه انا لا اعرف المرفق كان هكذا من احد رواد المنتدى فى سؤال له لا اعرف هل هذا ناتج عن مشكلة ام ماذا قصدت بأننى تعمدت ذلك اى تعمدت التأكد من ان الحلول لن تأثر تلك المسافات عليها لأفكر ان كان لها تأثير على اقوم بعمل حسابات فى الكود لازالتها اولا ـــــــــــــــ لكن بوجه عام انا ان احببت اضافة مسافات وانا متعمدا لذلك اضغط على زر Alt من لوحة المفاتيح ضغط مستمر وفى نفس الوقت اكتب الارقام 255 تلك طريقة الـ Asci

وإضافة بسيطة لم استطع اكمالها البارحة: 1. يخبرك تسلسل كلمة البحث الواقف عليها ، 2. الاسهم تبدا التضليل من جديد عندما تصل الى آخر كلمة (طبعا مع اختلاف ذلك ، صاعدا او نازلا) : . جعفر تلوين2.zip

اتمنى ان تنشر في كل ساعة موضوعا استاذنا العزيز @السبيل1 استمتع واطرب كثيرا للغتك العربية ولمفرداتك الجميلة

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

السلام عليكم 🙂 لا وانت الصادق ، من 1-2-2021 الى 1-3-2021 يعتبر شهر 🙂 لأن يوم 28-2-2021 بعد منتصف الليل يكتمل اليوم ، وهذا معناه ان اليوم اصبح 1-3-2021 🙂 جعفر

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

هههههه ..... تفضل .... encoder replacement 2.rar

تفضل ، الاستعلام مصدر بيانات النموذج : . والنتيجة: . جعفر

السلام عليكم 🙂 في الاستعلام ، اعمل حقل جديد للفرز : D: CDate([اسم حقل التاريخ]) جعفر

حقول جدول المستخدمين من وجهة نظرى سوف تكون كالاتى فهل لكم وجهة نظر أخرى فى الغاء احد الحقول او الزيادة عليها ومن جهتكم اى حقول تريدون تشفر بياناتها ؟! كلمة المرور , الاسم الرباعى , البريد الالكترنى , الاجابات على الاسئلة

يمكن الوصول لذلك تعديل هذا السطر الذي يحدد بداية النص ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1 وتغييره إلى هذا الشرط If Me.OptionButton2 = 0 Then ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) >= 1 Else ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1 End If لاحظ أن اكبر من او تساوي 1 تعني في أي مكان في النص ويفضل جعل القيمة الافتراضية value في خيار بحث بأي حرف تساوي true بالتوفيق

انظر الى هذا الموضوع

حياك الله 🙂 اسمح لي اوضح لك بعض النقاط عن التاريخ : الاكسس يأخذ تنسيق التاريخ من اعداداتك في الوندوز ، إلا اذا قمت انت بعمل تنسيق آخر للتاريخ في قاعدة بياناتك (لاحظ ان كلامنا كله عن التنسيق ، وليس عن اصل التاريخ) ، انت لما عملت التنسيق هكذا: "mm/dd/yyyy" ، لأنه يتناسب مع التنسيق الذي رأيته في كمبيوترك ، بينما التنسيق في كمبيوتر مستخدم آخر يكون غير (وهذا ما حصل معي) ، فعليه لن يعمل الكود هناك !! وللتغلب على هذه الاشكالية ، استخدم التنسيق للطرفين: "Format([DateOfBirth], 'mm/dd/yyyy') ='" & Format(Me.txtDateOfBirth, "mm/dd/yyyy") & "'" لاحظ ان Format غيّرت نوع الحقل من تاريخ الى نص ، فتعاملي لها هنا هو نص ، ابحث في الانترنت عن "date format used natively by JET SQL" حتى تعرف ان المشكلة دولية 🙂 داخليا واثناء تنفيذ العمل ، الاكسس يتعامل مع التواريخ بالتنسيق الامريكي: شهر/يوم/سنه ، لهذا السبب ، بعض الاوقات ترى في الاستعلامات ان الاكسس قلب بين اليوم والشهر (1 الى 12) !! الدالة DateFormat تقوم بتحويل التاريخ الى النظام الامريكي ، ومنها يكون التاريخ صحيح ، هناك حوار جميل عن تنسيق التاريخ ، وطريقة اخرى للقيام بالعمل ، كما هو موضح بطريقة الاستاذ @Hawiii : جعفر

شكرا لك أبا جودي .. أفادتني جدا في مشروعي القادم بإذن الله 😉

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

استبدلها بـ dim dBase As DAO.Database

الاجابة هنا ان شاء الله

اتفضل يا دكتور فكرتى من خلال استخدام الـ Unicode وهذا موقعالـ Unicode https://www.ssec.wisc.edu/~tomw/java/unicode.html ابحث عن .... Arrows SYMBOLS .mdb

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

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

تم الأمر أخي الحبيب ... عدلت الاستعلام وصار اسمه TAB_RMZQ وغيرت اسم العمود المحسوب الى TOTAL وجعلت هذا الكويري هو مصدر بيانات النموذج FRM_RMZ وأضفت له حقل ال TOTAL هكذا: MusndWZwayid 004.accdb

السلام عليكم أستاذ عبداللطيف البرنامج مصمم على 32 بت وما يفتح عندي لأنه انا عندي 64 بت ما العمل لحل المشكلة كي يعمل البرنامج عندي ؟ وشكرا

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

السلام عليكم 🙂 البارحة ، سؤالك كان يوجه تفكيري في اتجاه معين ، فعليه كان جوابي ، ولكن هناك طريقتين اتت على بالي اردت ان اوضحهم لك: 1. الآن عندك 3 طرق للبحث ، نموذجين وتقرير : 2. النموذج الاول ، وهو الذي ارفقه البارحة: لما تنقر على اي سجل ، سترى ان الكلمة التي تبحث عنها والمؤشرة باللون الاحمر ، اصبحت في منتصف السجل ، ويمكنك قراءة السطر ، 3. النموذج الثاني: يخبرك عدد كلمات البحث في السجل ، ويقوم بتضليل الكلمة ، وبالاسهم ، تستطيع الذهاب الى الكلمة التالية ، ويتم تضليلها : . 4. التقرير: بصيغة عرض التعيين: ويعرض السجل كاملا ، بلون كلمة البحث: . جعفر تلوين2.zip

قبل ان اتكلم عن الجداول حابب اعرف راى اساذتى واخوانى واحبائى الكرام عن الاتى فلنسمى الجزء النظرى الاتى هو جزء التحليل للنظام ووضع التصور والخارطة التى سوف نكمل دربنا ان شاء الله على خطاها اولا حابب ابدأ كل اسماء الجداول والاستعلامات والنماذج والموديول ان وجدت بــ lvl حتى يكونون مميزين ومرتبين فى العمل مستقبلا على سبيل المثال جدول الـ users احب ان يكون اسمه tbllvlUsers ان اردنا عدم اخفاء الجدول على انه من جداول النظام ان اردنا اخفاء الجدول على انه من جداول النظام يكون UsystbllvlUsers وباقى الكائنات على نفس المنوال فما رأيكم على اى درب تحبون ان نسيـــــر ثانيا حقول جدول المستخدمين من وجهة نظرى سوف تكون كالاتى فهل لكم وجهة نظر أخرى فى الغاء احد الحقول او الزيادة عليها ومن جهتكم اى حقول تريدون تشفر بياناتها ؟! اسم المستخدم , كلمة المرور , الاسم الرباعى , البريد الالكترنى , الاجابات على الاسئلة هذا من وجهة نظرى هل لكم رأى اخر فى انتظار ارائكم احبابى فى الله

أها اعتقد اني فهمت بشكل خاطئ المشكلة بالنسخ اذا ربما حسب ما فهمت Myrow = Val(TextBox1.Text)+3 Rows(Myrow).Copy

إن شاء الله يكون المطلوب مع ملاحظة تغيير رقم العمود إلى معادلة حتى يتم سحب المعادلة أفقيا ورأسيا بالتوفيق جداول المدرسين.xlsm

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

أخي العزيز أنا حليت هذي المشكلة ولله الحمد والفضل عن طريق وضع نسخة التحديث في مجلد على الشبكة الداخلية مثلما ذكرت أنت .. وبالاستعانه ببرنامج ال WinRAR يقوم بتنصيب النسخة الجديدة في جميع الأجهزة .. لعلي أجد فرصة لشرح ذلك في مقطع فيديو لاحقا بإذن الله .. ولكن في عجالة هذه هي الطريقة : 1- إنشاء جدول في ملف الواجهات ال Front End ووضع حقل واحد فيه وسجل واحد وهو حقل تاريخ يكتب فيه [تاريخ النسخة الحالية] وهذا الجدول لا يتم نقله إلى ملف الجداول ال Back End بل يضل في نسخة الواجهات . 2- جدول آخر يكون في ملف الجداول ال Back End وهو جدول إداري تضع فيه حقلين الأول [تاريخ آخر تحديث] و الثاني حقل نعم/لا [هل تريد تحديث النسخة؟] وتتحكم به من عندك (النسخة الإدارية) . 3- تعمل ماكرو AUTOEXEC يعمل عند فتح قاعدة البيانات .. وهذا الماكرو يشغل بدوره كود وظيفته كالتالي : أولا يذهب لخانة [هل تريد تحديث النسخة؟] ... إذا كنت وضعت عليها ☑️ ينتقل للخطوة التالية ، وإذا فاضي يخرج من ال sub . ثانيا يقارن بين التاريخين ، التاريخ الموجود في الجدول الذي أنشأته لمعرفة [تاريخ النسخة الحالية] في الخطوة رقم (1) وبين التاريخ الموجود في الجدول الإداري [تاريخ آخر تحديث] في الخطوة رقم (2) ، فإذا كان [تاريخ آخر تحديث] أصغر من أو يساوي <= [تاريخ النسخة الحالية] يخرج من ال sub ، وإذا كان [تاريخ آخر تحديث] أكبر من > [تاريخ النسخة الحالية] فإنه ينتقل للخطوة التالية ويقوم بتحديث النسخة . بعد عملية التحقق من أن هناك تحديث جديد كما مر في الخطوتين السابقتين ، تطلق رسالة بزر واحد [OK] مفادها (( أن هناك تحديث جديد ستقوم بتحميله بعد قليل )) .. بعدها يقوم الأكسس بفتح برنامج ال WinRAR الذي بدوره سيقوم بتنصيب التحديث الجديد في جهاز المستخدم واستبدال النسخة القديمة بالجديدة . قبل أن يعمل برنامج ال WinRAR بتنصيب التحديث الجديد ، تتأكد من إغلاق الأكسس (عن طريق الكود نفسه) وذلك مباشرة بعد تشغيل ال WinRAR ، وإلا فسيواجه ال WinRAR مشكلة في استبدال الملف القديم . سيقوم برنامج ال WinRAR تلقائيا بفتح النسخة الجديدة بعد تثبيتها. وبذلك يتم تحديث ملف الواجهات فقط بنقرتين .. 😉 طبعا يجب الانتباه إلى تحديث [تاريخ النسخة الحالية] إلى نفس تاريخ [تاريخ آخر تحديث] في الجدول الموجود في النسخة المطورة وإلا فستقع في دوامة التحديث اللانهائي . بالنسبة لبرنامج ال WinRAR هناك إعدادات خاصة به أيضا لتحويله إلى ملف تنفيذي exe وإعطائه أمر استبدال الملفات القديمة بالحالية وتشغيل النسخة الجديدة ( وهذا جزء هام طبعا في هذه العملية كلها) ولكن للأسف لا يسعني ذكرها الآن ، ولكنك قد تجد ضالتك في هذا الفيديو بإذن الله .. https://www.youtube.com/watch?v=MZHuoV7pd7E&t=410s هذا والسلام عليكم

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

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

جميعا بإذن الله تعالى @حمادة عمر

أخي الكريم أنا لا أتحدث عن مكان التوقيع وإنما مكان الصورة التي بالتوقيع فلو مثلا اضفت صورة على القرص المحلي E إلى توقيعك يكون كود html الخاص بهذه الصورة هو <img src="e:\yourpicture.jpg" width="100%" height="100%" /> وعلى هذا حينما يعرض التوقيع داخل الرسالة في جهاز آخر لا يكون عنده صورة بنفس الاسم وفي نفس المسار ولذلك يجب أن يكون مسار الصورة موجود في مكان يتم قراءته في الجهازين جهاز المرسل وجهاز المستقبل وأعتقد أن أفضل مكان للصور هو الانترنت أتمنى أن يكون اتضح الأمر

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

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

أخي الكريم علي ما توصلت إلى فهمه من خلال ما ذكرته هو أنك تريد عمل رسالة تنبيه إذا كان فرق السنوات بين التاريخين يساوي صفر أو طبعا بالسالب يمكن عمل هذا بكود بسيط في حدث عند تغيير القيم في الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Sheets("sheet1").Range("c2").Value < 1 Then MsgBox "ضع نص رسالتك هنا" End If End Sub أتمنى أن يكون هذا هو المطلوب

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

بعد إذن أخي نادر هذه روابط لتحميل البرنامج http://www.multiupload.com/AEG8Q4B18J أو http://www.mirrorcreator.com/files/U2FTSCLC/_______________________________________________________________230.rar_links وكل عام أنتم جميعا بخير