Hamtoooo

لقد تركت اثرا طيبا بعد مشاركتك شكرا لك تمت تجربة الكود وعمل بشكل فعّال اكرر شكري لسعادتك

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

جميل ورائع وهذة الادوات التي نحتاجها فعلا لانها تحل مشكلة انا افضّل تكون الاداة مستقلة عن القاعدة الاساسية حيث اقوم بارساله للعميل اولا واطلب منه تشغيلة واذا كانت اللغه هي العربية تفتح نافذه فيها معلومات احتاجها انا مثلا سيريال الجهاز نسخة الاوفيس نسخة الويندوز وهل هو 64 او 32 وهكذا .. واذا كانت اللغه انجليزية تفتح نافذتك الجميله لتحويل اللغه من قبل المستخدم ايضا لو تستطيع دمج اداة تقوم بتمكين محتوى الاكسس و active بشكل دائم ايضا هذي مشكلة شكرا لافكارك الجميلة وننتظر التحديث

عمل رائح كنت احتاج هذه الافكار 03P8-04U3-06AE-01T8

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

السلام عليكم واسعد الله اوقاتكم بكل خير المشكلة : بعد الانتهاء من عمل قاعدة لعميل يطلب نسخة للتجربة, ارسل له نسخه تجريبية فيقوم بتسجيل البيانات مثلا قام بإدخال 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