ابوخليل

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

افتح القاعدة باشتخدام الشيفت على التصميم الكود واضح وعليه بعض الشروحات

هل هذا ما تريد ؟ Function ProcessorSpeed() ' shows the processor name and speed of the computer Dim MyOBJ As Object Dim cpu As Object Dim strComputer As String Set MyOBJ = GetObject("WinMgmts:").instancesof("Win32_Processor") For Each cpu In MyOBJ 'MsgBox cpu.Name & " " & cpu.CurrentClockSpeed & " Mhz", vbInformation strComputer = cpu.CurrentClockSpeed Next ProcessorSpeed = strComputer End Function ايضا انظر في سطر الرسالة المعطل ان اردت اسم المعالج ايضا Clock2.rar

اقرأ ما كتبته لك جيدا ((( احذفها من جدول الفاتورة .. لأنها مكررة ))) وليس من جدول رأس الفاتورة

تفضل top 10 fsl Up.rar

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

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

اختلف الموضوع .. فضلا افتح موضوعا بعنوان جديد بطلبك

النسخة هنا في موضوع وعنوان جديد

نسخة تجريبية للعميل _ تشفير لوقت محدد السلام عليكم اخوتي الكرام : احببت ان افرد العمل بعنوان مستقل ليكون قريبا للباحث وكنت وعدت بطرح مثالي المفتوح في موضوع سابق هنا وعندما راجعت مثالي بعد انقضاء الفترة تبين لي وجود ثغرات ، فقمت باصلاح الخلل وتجربة المثال اكثر من مرة للتأكد من عمل الأكواد على اكمل وجه . الفكرة : تحديد تاريخين من قبل المبرمج يتم تشفيرهما ، ولن يعمل البرنامج الا بين هذين التاريخين فقط بهذه الطريقة اغلقنا الطريق على من يحاول تغيير تاريخ الجهاز بعد انقضاء فترة التجربة والاتفاق على شراء البرنامج يتم ارسال نسخة دائمة الى العميل . يجب تقسيم قاعدة البيانات الى واجهات وجداول من اجل الحفاظ على بيانات العميل التي تم ادخالها خلال التجربة . ختاما ؛ اليكم الاكواد الخاصة مع المرفق دعواتكم ،،، Function EncryptDecrypt(strIn As String, strPass As String) As String Dim intLen As Integer Dim intCounter As Integer Dim varTmp As Variant Dim strTmp As String intLen = Len(strPass) strTmp = strIn For intCounter = 1 To Len(strIn) varTmp = Asc(Mid$(strPass, (intCounter Mod intLen) - intLen * ((intCounter Mod intLen) = 0), 1)) Mid$(strTmp, intCounter, 1) = Chr$(Asc(Mid$(strIn, intCounter, 1)) Xor varTmp) Next EncryptDecrypt = strTmp End Function Private Sub cmd1_Click() 'لإدراج التاريخ في الحقلين ثم تعديل الحقول يدويا حسب الفترة المطلوبة ' يستخدم مرة واحدة قبل التشفير Me.regEnd = Now() Me.regStart = Now() Me.Requery End Sub Private Sub cmd2_Click() ' تشفير الحقلين ولاحظ ان الزر يشفر ويفك التشفير في نفس الوقت Dim strPassword As String strPassword = "EnDecryptAccessOfficna" Me.regStart = EncryptDecrypt(Me.regStart, strPassword) Me.regEnd = EncryptDecrypt(Me.regEnd, strPassword) End Sub Private Sub Form_Current() On Error Resume Next Dim strRegStart, strRegEnd, vNowv As Date Dim strPassword As String vNowv = Now() strPassword = "EnDecryptAccessOfficna" strRegStart = EncryptDecrypt(Me.regStart, strPassword) strRegEnd = EncryptDecrypt(Me.regEnd, strPassword) 'عند العبث بالشفرة في اي من الحقلين If Not IsDate(strRegEnd) Or Not IsDate(strRegStart) Then MsgBox "تم التلاعب بالشفرة .. سيتم اغلاق البرنامج" DoCmd.Quit End If ' عند نهاية الفترة If vNowv > strRegEnd Then MsgBox "انتهت الفترة التجريبية .. تواصل مع المبرمج " DoCmd.Quit End If ' عند تغيير تاريخ الكمبيوتر لان النسخة المؤقتة ستعمل فقط بين التاريخين المرصودين If vNowv <= strRegStart Then MsgBox "تم تغيير تاريخ الجهاز .. سيتم غلق البرنامج " DoCmd.Quit End If End Sub تشفير.rar

تم رفع اشعار لادارة وفريق الموقع

بالنسبة لنا في السعودية يوجد اكثر من قناة لتوصيل التبرعات ومن اهمها وآمنها في وصول التبرعات الى مستحقيها وهي منصة ساهم التابعة لمركز الملك سلمان للإغاثة والأعمال الإنسانية . مركز الملك سلمان للإغاثة ///// التبرع لمساعدة ضحايا الزلزال في سوريا وتركيا من خلال #منصة_ساهم عبر الرابط الآتي: https://sahem.ksrelief.org/SYTR

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

على كل حال غدا سأرفع النسخة المفتوحة ولكن يهمني محاولة ورأي من يهمه الأمر جرب آخر مرفق هنا عند تحويل قاعدة البيانات الى Accde او mde لا يمكن الاطلاع على الاكواد

أأأأأه هذه معلومة جديدة لدي

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

هذا هو المرفق معدل _ اعبث بتاريخ جهازك كيف شئت 2010 _ 32 بت من دون الاستعانة بالانترنت تشفير فترة زمنية.rar

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

اهلا اخوي @Moosak يمكن من الاصدار ، والا فالمثال لا يوجد الا فنكشن بسيط تفضلوا غيرت قاعدة البيانات الى الاصدار 2010 المرفق في المشاركة الاخيرة

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

ملحوظة : عند فتح المثال لأول مرة يجب ربط الجدول الواجهة بجدول القاعدة الخلفية

تفضل اخي الكريم في المرفق نموذج وجدول يشتمل على حقل واحد سوف يفتح معك خلال الــ 24 ساعة القادمة .. بعدها لن تتمكن من فتح الفورم والبرنامج سوف يغلق تلقائيا كلمة السر لفتح البرنامج تجدها في الجدول .. لذا حاول ان تفك التشفير انتبه !! اذا اختل النص المشفر فلن يمكنك فتح الفورم ايضا ، فقبل العبث به قم بنسخه ولصقه بعيدا كي ترجع اليه عند حاجتك لفتح الفورم الفكرة .. هي ان يكون الفورم هذا هو فورم البداية في النسخة المؤقته .. بعد تجربة العميل وموافقته على شراء البرنامج ترسل اليه نسخة من الواجهات مفتوحة ولا تحتوي على هذا الفورم المشفر ولا جدول التشفير وانما تحتوي على ادوات الحماية المعروفة لعدم استخدام النسخة في اجهزة اخرى . وهذا يعني ان النسخة التجريبية لا تحتوي على اي نوع من انواع الحماية سوى هذا التشفير المثال على صيغة mde المثال المفتوح سوف ارفعه بعد اقتناعك بقوة الحماية مع بساطتها المرفق في آخر مشاركة

الافضل ينقل الموضوع الى القسم المفتوح في الموقع ليطلع عليه اكبر شريحة من مرتادي الموقع ايضا يتم اشعار مدير الموقع للمشاركة وابداء الرأي

لا اعتقد نرجوا من الاخوة الكرام تجربة المثال

اخي احمد للاسف لا يوجد عندي مثال بهذا الخصوص ، ولو كان عندي لم ابخل عليك به ثانيا هذا منتدى تعليمي ، للمساعدة والتعلم ، ولو بدأت بعمله وتصميمه لساعدناك