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

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

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

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

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

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

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

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

ارفق مثال عشان نقدر نساعدك

السلام عليكم ورحمة الله وبركاته .. خدمات علم الإلكترونية تسعد باستقبال طلباتكم بتوفير برنامج خاص بك لإدارة شركتك أو مؤسستك والعمل بشكل أكثر انتظاما على بيئة الاكسس اوفيس. يمكنك مشاهدة قواعد بيانات الاكسس اوفيس عبر موقعنا س/ لماذا برامجنا تعتمد على الاكسس اوفيس؟ 1- سهولة التعامل مع البرنامج حيث أنه متوافق مع مايكروسوفت اوفيس. 2- السعر في متناول الجميع وارخص بكثير من تلك البرامج التي تتطلب مبالغ باهضه الثمن واشتراكات. 3- التعديل وإضافة أي خدمة ببرنامجك الخاص في أي وقت وبكل سهوله مثال : ترغب في إضافة خدمة معينة او إضافة جدول وإضافة تقارير للطباعة . 4- لا يتطلب أي تثبيت فقط تحتاج بأن برامج الاوفيس مثبت مسبقا بجهاز الكمبيوتر الخاص بك. 5- بعض الشركات لا يتطلب إلى برامج كبيره وبأسعار باهضه وهو يحتاج إلى تنظيم عمله وعلى هذا فإنه خيار جيد التعامل مع الاكسس اوفيس وبسعر مناسب جدا. س/ ما الذي يمكنك طلبه من خلال خدمات علم الإلكترونية ؟ 1- بإمكانك عرض الفكرة التي تريدها ونحن نحول فكرتك إلى برنامج تطبيقي عبر الاكسس اوفيس ليساعدك على تنظيم أعمالك بدقه وسهوله. 2- تستطيع أن تعرض لنا مجال عملك ونحن نقوم بعرض لك عدة أفكار والاختيار بينهما. 3- تستطيع طلب برنامج من عدة برامج نقوم بإنشائها يساعدك في تنظيم عملك ومنها : أ/ برامج مكاتب العقارات - برنامج لإدارة العقارات - برنامج لتنظيم الإيجارات لمكاتب العقار - برنامج لإدارة الشقق المفروشة، إدارة العمائر وتنظيم الإيجارات ب/ برامج للوزارات والمؤسسات الشركات - برنامج الصادر والوارد الإلكتروني للقطاعات العامة والعسكرية - برامج للاتصالات الإدارية - برامج إدارة الموظفين - برنامج الموارد البشرية HR قاعدو بيانات اكسس اوفيس للموارد البشرية تسجيل بيانات الموظفين وتسجيل الحضور والانصراف - برنامج متابعة الأعمال المنجزة - برنامج سجلات الافراد للقطاع العسكري الحرس الوطني وزارة الدفاع امن المنشئات وغيرها من القطاعات بحيث يمكن إدارة الافراد وتسجيل بياناتهم ليسهل البحث وطباعه بياناته وإصدار معروض اجازه له بكل سهوله - برنامج حسب الفكرة التي تريدها وحسب العمل الذي تطلبه الوزارة والإدارات ج/ برامج متنوعه - برنامج متابعة وإدارة الطلاب للمدارس - برنامج للجمعيات - برنامج الحضور والانصراف - برنامج لمتابعة الأقساط اذا كنت تعمل على التقسيط يمكن متابعة التقسيط وتسجيل بيانات القسط شهريا وطباعه سير القسط لإرساله للعميل في حال طلب ذلك س/ ما هي الخدمات والإضافات التي يمكنك طلبها لبرنامجك الخاص؟ 1- البحث الفوري لأسم موظف مثلا او صنف معين وعرض بياناتها بكل سهوله 2- طباعة تقرير لأي موظف او سجل او صنف بكل سهوله 3- إضافة شعارات الوزارة او الشركة والاسم في تقارير الطباعة 4- خدمة المعرفات بحيث يمكن ان يكون لبرنامجك مستخدمين كل مستخدم لدية كلمة سر خاصه وتستطيع إدارة المعرفات من يستطيع التعديل،الاضافة،الحذف. 5- خدمة الدعم الفني عن بعد عبر الاتصال بكمبيوترك الخاص (TeamViewer) لأي مشكلة تواجهك يخص البرنامج وحلها فورا بإذن الله 6- خدمة مشاركة قاعدة البيانات حيث تستطيع توزيع القاعدة لعدة اجهزه ويمكن استخدامها لأكثر من مستخدم بنفس الوقت وتحدث التغييرات فورا وهذا يتطلب بأن تكون الأجهزة متصلة بشبكة محلية ويمكن طلب ذلك ونقوم بتنفيذها عبر الاتصال عن بعد بأجهزتك وتأهيل القاعدة لمشاركتها بأكثر من جهاز. التواصل عبر واتس اب 966539410054 https://wa.me/message/EYZAUCCRGN5EF1

السلام عليكم اسعد اله اوقاتكم احتاج غالبا ان اعرف بعض البيانات لجهاز العميل اما لغرض ارساله نسخة للتجربة للبرنامج وربطها برقم المذربورد لعدم النسخ او لغرض معرفة توافق البرنامج والاخذ بعين الاعتبار عند التصميم خطرت لدي فكرة قبل وهو تصميم برنامج بسيط اقوم بارساله للعميل حيث بدورة سيقوم بتشغيله وتصوير النتائج للمصمم وفكرتها هو جلب معلومات جهاز العميل مثل : الرقم التسلسي للقرص الصلب - الرقم التسلسي للمذربورد - نسخة الاوفيس - اصدار الويندوز - مقاسات الشاشة عملت عليها لفترة وافادتني كثيرا وحرصت كثيرا ان تكون في شاشه واحده وسهله وبدون تدخل العميل فقط عند تشغيله تظهر البيانات القصد من موضوعي هذا هو الاستفاده منه للاعضاء الكرام وكذلك تطويره لتحسين تجربة العميل عند استخدام البرنامج ويكون للمصمم نظره واسعه لجهاز العميل وجعلها متوافقا مع جهازه نريد ان تضيفو لمساتكم التي من الممكن تفيدنا ك مصممين ومنشئين قواعد بيانات م الذي نحتاجه من جهاز العميل عند البدأ بتصميم قاعدة البيانات التطوير المراد اضافته حاليا هو : 1- جلب نسخة الويندوز 10 او 11 وهكذا .. 2- جلب مقاسات الشاشه 3- اللغه الادارية الحالية بجهاز العميل (اللغه الادارية وليست لغة الاوفيس او لغة الجهاز) هذا ما يحضرني الان وإذا فيه شيء تعتقدون انه مهم اذكره برد حتى نستفيد ونضيفها في شاشة المعلومات تحيات مرفق لكم PC_INFO PC_info.accdb

مدري اذا هذا مطلوبك او لا افتح مصدر السجلات حق التقرير واضف معيار بحقل NO : >=[Forms]![Head]![Text18] 2.accdb