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

بداية دعونا نتفق طالما فكرنا فى الموضوع ده ووصلنا له اذن نريد اضافة حماية لتطبيقاتنا طالما سوف نتحدث عن الحماية فلسوف يتم ان شاء الله العمل على افكار تطبيق ذلك خطوة بعد خطوة تدريجيا للارتقاء بالتوازى برفع مستوى الحماية مع الانتهاء من التطبيق مشروحا خطوة بعد خطوة تفصيليا 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 ولكني انصحك بالتصفية كما تقوم به الآن ، بحيث يبقى فقط السجلات التي بها كلمة البحث. جعفر

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

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

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

مثل ما دائما اقول: المبرمج مثل الطباخ ، من نفس المكونات يصنع عشرات الوجبات وبنكهات مختلفة 🙂 جعفر

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

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

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

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

بل هو مختلف ..... ولكن غيرت التكنيك ... غيرت اسم الفانك بنفس الاسم السابق حتى يسهل التعديل .... والدليل المديول القديم محذوف من القاعدة .... بارك الله فيك ...

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

تفضل اخي الكريم Dim db As Object Dim rst As DAO.Recordset Dim mySQL As String Dim i As Integer mySQL = "Select * From table_name" Set rst = CurrentDb.OpenRecordset(mySQL) If Not rst.BOF Then rst.MoveFirst Dim ctl As Control For i = 1 To 300 Me.Controls("Textbox" & i) = rst.Fields(i) rst.MoveNext Next i rst.Close Set rst = Nothing تحياتي

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

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

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

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

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

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

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

حلال عليك أخي .. هذي سرقة جائزة 😅 نعم صحيح 100% 👌🏻 ، نِعمَ ما فعلت 👍🏻

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

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

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

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

أعتقد أنها ممكنة بدالة lookup وليس vlookup يمكنك تجربة هذه المعادلة =LOOKUP(2,1/($A$2:$A$12="value"),$B$2:$B$12) حيث يتم التوصل لآخر نتيجة في العمود B أمام القيم في العمود A والتي تساوي value ويمكن استعمال مرجع الخلية التي بها القيمة المراد البحث عنها بدلا من كلمة value بالتوفيق

السلام عليكم أستاذ عبداللطيف البرنامج مصمم على 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

Sub TestCode() Dim v, w, m As Long With Sheet1 m = .Columns(3).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row v = .Range("B6:O" & m).Value w = Application.Index(v, Evaluate("ROW(1:" & UBound(v, 1) & ")"), [{1,2,3,14}]) Sheet2.Range("K3").Resize(UBound(v, 1), UBound(v, 2)).Value = w End With End Sub

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

تفضل هذا ملفك بعد إضافة الكود وتعديل أسماء الشيتات من المسافات الزائدة وتعديل الأعمدة التي سيتم الترحيل لها حيث كان بها خلايا في الأسفل (مكتوب فيها) تمنع من دقة معرفة آخر صف مكتوب فيه بالتوفيق البرنامج 1-1.xlsm

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

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

أخي الكريم أنا لا أتحدث عن مكان التوقيع وإنما مكان الصورة التي بالتوقيع فلو مثلا اضفت صورة على القرص المحلي 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 وكل عام أنتم جميعا بخير