Hamtoooo

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

السلام عليكم واسعد الله اوقاتكم بكل خير المشكلة : بعد الانتهاء من عمل قاعدة لعميل يطلب نسخة للتجربة, ارسل له نسخه تجريبية فيقوم بتسجيل البيانات مثلا قام بإدخال 20 سجلا بعد ذلك يطلب النسخه الكامله ويضطر إلى اعادة ادخال البيانات من جديد الفكرة : خطرت لي فكرة اولا استبعاد فكرتي القديمة وهي الاعتماد على تاريخ معين ثم بعد ذلك يتوقف البرنامج وكذلك يتم تفعيل النسخه دون الحاجه إلى ارسال نسخه جديده واعتماد فكرة ان العميل يقوم بادخال عدد من السجلات ثم بعد ذلك يتوقف الادخال (تقييد السجلات بعدد معين) بعد الوصول لعدد السجلات المتاحه يظهر (INBUTBOX) تفيد بأن النسخه للتجربة للاستمرار يرجى ادخال رمز التفعيل عندما يتم ادخال الرمز الصحيح يستمر البرنامج بالعمل .. مع ملاحظة ما يلي : 1- التفعيل يتم عن طريق ريجستري الجهاز 2- رمز التفعيل لا يتم حفظه في جدول وإنما داخل الكود لتأمينة التطبيق : 1- اضافة هذا المديول في قاعدتك ' التحقق من التفعيل Public Function IsActivated() As Boolean On Error Resume Next IsActivated = GetSetting("MyApp", "Activation", "Activated", "False") = "True" End Function ' تفعيل البرنامج Public Sub ActivateSoftware(pw As String) If pw = "1020" Then SaveSetting "MyApp", "Activation", "Activated", "True" MsgBox "تم تفعيل النسخة بنجاح يمكنك الاستمرار في ادخال السجلات!", vbInformation Else MsgBox "كلمة مرور خاطئة!", vbCritical End If End Sub 2- في نموذج ادخال البيانات عند حدث قبل الادراج اضف : If IsActivated() Then Exit Sub Dim recordCount As Long recordCount = DCount("*", "t1") If recordCount >= 3 Then Dim pw As String pw = InputBox("هذه نسخة للتجربة. يرجى التواصل لطلب رمز التفعيل:", "تفعيل النسخة") Call ActivateSoftware(pw) If Not IsActivated() Then Cancel = True End If End If مرفق لكم التجربه ونستقبل افكاركم الجميله لتحسين هذه الفكرة تقييد النسخه بعدد سجلات محدده.accdb

ماشاءالله الله يجزاك خير عمل رائع تمت التجربة وتعمل بشكل فعّال دون اخطاء ارحتنا كثيرا من رفع الملف لمواقع اجنبيه الان رسميا استخدم الاداة

عمل جميل تشكر عليه ملاحظتي البسيطه واعتقد انك تستطيع حل هذه المشكله وهو عندما اريد ارسال رساله عن طريق ادخال الرقم مباشره او عن طريق السجل يبدو لي ان العمل يكون اكثر سلاسه وتجنبا للأخطاء هو : انه عندما نقوم بادخال الرقم 055555555 واضف الصفر اليس من الافضل ان يقوم البرنامج بحذف الصفر تلقائيا ويقوم بادراج +966 مثلا سواء بادخال الرقم مباشره او عندما اضيفه في سجل تجنبا للاخطاء

اشكركم جميعا على تنويري بالرد على سؤالي شكرا لكم مافائد هذه المكتبات ؟

تمت التجربه على اوفيس 365 64بت جميل وشغل تشكر عليه لكن انا استغرب من الذين لم يواكبو عصرهم سؤال يحيرني دائما لماذا حتى هذه اللحظه الناس تستخدم اوفيس 32بت ؟؟ ولماذا يقوم البعض بصنع برامجه عبر النسخ القديمة اليس من ذكاء الذي يصنع قاعدة بيانات انه يقوم بإنشاءه عبر الاصدارات الحديثة وبنواة 64بت !! لا أعلم م الفائده من بقاء البعض في النسخ القديمة وصنع برامجه منها والتمسك بها على الرغم من ان الاغلبية يستخدم النسخه الجديده +2013

احسنت وبارك الله فيك شكرا لتجاوبك تمت التجربة مع بعض التعديلات البسيطه وكانت فعاله Dim ctrl As Control For Each ctrl In Me.Controls If (ctrl.ControlType = acTextBox Or ctrl.ControlType = acComboBox) Then If (Nz(ctrl.Value, "") = "") Then MsgBox "يرجى تعبئة جميع الحقول قبل الحفظ." & vbCrLf & _ "الحقل الفارغ: " & ctrl.Name, vbExclamation ctrl.SetFocus Exit Sub End If End If Next ctrl ' إذا جميع الحقول تم تعبئتها، يتم الحفظ DoCmd.RunCommand acCmdSaveRecord MsgBox "تم الحفظ بنجاح بنجاح", 0 + 64 + 1048576, "مؤكد" DoCmd.Close

السلام عليكم اسعد الله مساؤكم احبابي الكرام لدي نموذج فيه حقول كثيرة حوالي 30 حقلا المطلوب هو ان المستخدم لا يمكن الحفظ إلى بعد ملئ جميع الحقول كاملة لدي فكرة وهو ان اقوم بضبط كل حقل على حده ولكن اعتقد انه غير عملي اريد بكود واحد فقط يتم التأكد قبل الحفظ ما إذا كانت الحقول غير فارغه جميعها فيتم الحفظ وإلا تظهر رساله ان هناك بعض الحقول فارغه شكرا من القلب اليكم مرفقا للتجربة الحقول الفارغة.accdb

عمل جدا متقن جربت اغير الصوره png وحاولت اجعل الاكواد تخطأ لكنك مُدرك في كل كود كتبته شكرا لك وبعتمده بإذن الله في مشاريعي القادمه

السلام عليكم اسعد الله اوقاتكم بكل خير لدي نموذج بسيط فيه حقل المعرف و حقل اللون وهو قائمة منسدله ( red - orang - black ) وفي النموذج زر يفتح تقرير اريد عند فتح التقرير يتغير لون خلفيته إلى اللون الموجود في حقل اللون الموجود في النموذج مثلا إذا كان orang تتغير خلفية التقرير إلى البرتقالي جربت الطريقه في النموذج لكن لم ينجح عندما طبقته في التقرير شكرا لكم إليكم المرفق تغيير لون خلفية التقرير.accdb

@ابو جودي والاخوه الاعزاء مع التحيه لشخصكم إذا تشوفون حل اللي في ردي فوق ^^^

@ابو جودي حبيبنا الله يعطيك العافية لو كان الزر بنموذج اخر واريده ينقل اسم الزر إلى الحقل النصي الموجود بالنموذج الاول اعتقد اغير مساره ("LABLEE") هنا =CopyCaptionToTextBox("LABLEE") لكن ما عرفت كيف افهمه اني اريد نقل اسم الزر للحقل النصي الموجود بالنموذج الاول

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

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

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