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

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

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

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

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

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

احسن الله إليك تمت التجربة وتعمل بشكل فعَال

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

السلام عليكم اسعد الله اوقاتكم بكل خير شرح المشكلة | اقوم بعض الاحيان بكتابة كود ثابت واستخدمه في اكثر من مكان مثلا لدي امر زر الحذف بكافة النماذج ثابت قمت بكتابتة الكود مسبقا وتم تنسيق الرسالة واضافة كل الاكواد الازمة لامر الحذف واقوم بتكراره بكل زر كذلك لدي رساله منبثقه تبين ان هناك خطأ غير متوقع واقوم بتحزيم الاكواد بهذه الرساله كذلك لدي نص ثابت اسم البرنامج + اصداره بهذه الصيغة مثلا ( اوفيسنا | الاصدار 3.8 ) واقوم بوضعه في عناوين الرسائل المنبثقه وكذلك في مواقع عدة من البرنامج م الذي افكر فيه ؟ هو ان اعمل وحدة نمطيه بداخلها كل الاكواد اللي ذكرتها سابقا وهي الاكواد الثابته والمستخدمه في اكثر من مكان واناديها في كل مره احتاج الكود مع العلم ان الاكواد متنوعه منها كود امر ومنها فقط عرض نص وهكذا اعتقد انني قللت من كتابة الاكواد وتكراره ووفرت لنفسي جهد التعديل اخيرا م الذي اريده من الساده الكرام هو كيف اضع الكود في الوحده النمطيه وكيف استدعيه والاهم من ذلك هل ما افكر فيه جيد او ان هناك طرق افضل لكم المرفق للتعديل عليه استدعاء الاكواد.accdb

مرحبا فيك استخدم هذا المعيار : Between [من تاريخ] And [إلى تاريخ] value11.accdb

شوف المرفق طبقه في برنامجك نفس الفكرة

تفضل هذا المثال ان شاءالله نفس ما تريد تغيير المسمى.accdb