ابوخليل

نعم ممكن

هل ستتحف اخوتك بنسخة من البرنامج ؟ ام هذا اعلان ؟

ليه لا ؟ اذا توفر جهاز قارىء لبصمة الوجه يدعم الواجهات ( enterface) اتوقع مثله مثل جهاز قارىء بصمة اليد

السلام عليكم اخي ابو مهند قد تلاحظ تأخر الرد على طلبك اولا احييك على حسن تصميم الجداول واتباع القواعد في كتابة اسماء الكائنات والعناصر ثانيا نصيحة من محب : اعد تصميم برنامجك ، واستعن باخوتك هنا بعض التوجيه حول التصميم : 1- جدول الحضور يجب ان يشتمل على التالي فقط واكرر فقط - معرف الموظف - حقل تاريخ ووقت جنرال / والبعض يفضل ان يكونا حقلين منفصلين واحد للتاريخ والآخر للوقت - حقل رقمي لنوع الشفت ( صباحي /مسائي / ليلي ) وهكذا ... 2- جدول خاص باوقات الدوام ( الشفت) : - حقل لرقم تعريف الشفت - حقل الوقت / من - حقل الوقت / الى ............................. احب لأخيك ما تحب لنفسك

آمل ان يكون هذا هو مطلوبك Public Function OrderAwael(Roundx As Double) As String Set rs = CurrentDb.OpenRecordset("SELECT COUNT(*) + 1 FROM (SELECT qryRank.Rounded FROM qryRank GROUP BY qryRank.Rounded) As temp WHERE temp.Rounded > " & Roundx, dbOpenSnapshot) OrderAwael = rs(0) rs.Close End Function Ranks.accdb

عليكم السلام هل تريد تقريب 249.5 الى 250 ام الى 249 ؟

الامر يسير .. نضع معيار حسب تاريخ التسديد الذي يعتبر تاريخ اليوم هنا لن يظهر ما تم تسديده في تاريخ سابق ، وايضا يسمح باظهار اكثر من سجل واحد تم تسديدها الآن printfactur3.rar

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

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

هل هذا ما تريد ؟ 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

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