كل الانشطه

شكرا جزيلا تم التعديل

تمام .. جميل جدا ملاحظة لا تنقص من عملك .. لاحظت تكرر هذه القيمة رغم انها ثابتة : Me.tsmya2.Caption = funSanahDrasyahDate() لو وضعتها في اعلى الكود قبل الشروط .. يعني قبل IF لن تحتاج لتكرارها وملاحظة اخرى : ما دمت ميزت الذكور عن الاناث في العنوان .. ارى ان حقل النوع في التقرير يعتبر زائد او تحصيل حاصل

شكرا جزيلا أخي الفاضل وبارك الله فيك وزادك الله من علمه

هي فكرة جميلة جدا عملت توفير جامد بصراحة ووفرت عدة تقارير وعدلت عند فتح الصفحة في التقرير Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize Dim i, ii As String If Forms!frm_Reports!termNum = 2 And Forms!frm_Reports!ComboResult = 1 Then i = "الدور الأول" Me.tsmya1.Caption = "كشف بأسماء الطلاب الناجحين والمنقولين للصف الأول الإعدادي" Me.tsmya2.Caption = funSanahDrasyahDate() Me.tsmya3.Caption = i ElseIf Forms!frm_Reports!termNum = 2 And Forms!frm_Reports!ComboResult = 2 Then i = "الدور الأول" Me.tsmya1.Caption = "كشف بأسماء الطالبات الناجحات والمنقولات للصف الأول الإعدادي" Me.tsmya2.Caption = funSanahDrasyahDate() Me.tsmya3.Caption = i ElseIf Forms!frm_Reports!termNum = 3 And Forms!frm_Reports!ComboResult = 1 Then i = "الدور الثاني" Me.tsmya1.Caption = "كشف بأسماء الطلاب الناجحين والمنقولين للصف الأول الإعدادي" Me.tsmya2.Caption = funSanahDrasyahDate() Me.tsmya3.Caption = i ElseIf Forms!frm_Reports!termNum = 3 And Forms!frm_Reports!ComboResult = 2 Then i = "الدور الثاني" Me.tsmya1.Caption = "كشف بأسماء الطالبات الناجحات والمنقولات للصف الأول الإعدادي" Me.tsmya2.Caption = funSanahDrasyahDate() Me.tsmya3.Caption = i Else Me.tsmya1.Caption = "." Exit Sub End If End Sub بحيث اميز بين الذكور والإناث تظهر بالشكل ده

استكمال وتحديث 1- معالجة التشغيل خاصة التقارير بوضع الاقلاع اكسس مصغر عند ملف اختصار سطح المكتب كود بنموذج الاقلاع 2- عرض التقارير كامل الجدول , الاستعلام , الفلترة بنافذة التقارير 3- اضافة وتحسين بعض الخيارات ... '========( اعتقد عدد السجلات مفتوح ولطباعة بنافذة معاينة قبل الطباعة ونافذة السجلات المستمرة مع تنسيق الشرطي ثابت ومستقر ما توقف على تلريون اتكمل تحميل المرفق https://www.mediafire.com/file/hdhrjlj4t4srt7o/Update_3_Miluon_Record_IN_One_Speed_Read_db_Caption_Filter.rar/file يجب اختيار زر انشاء عشر جداول ثم زر الاتصال ثم زر اضافة بيانات وهمية ثم التشغيل😇 للتجرب الى تحديث التالي مع الاستكمال والمعالجة

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

غير محذوفة .. هي فعالة .. ولكنها لا تظهر في الاستعلام الاستعلام يعرض فقط هذا اذا انا فاهم استفسارك السؤال ؟ ما الفائدة من عرض صورة المفاتيح ؟

لا ليس المقصود أنا عايز اعرف ازاي حذفت المفاتيح من qry_Temp في التقرير بتاع المنقولين للصف الأول الإعدادي في الملف السابق

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

تمام لحضرتك أخي الفاضل بس عايز أعرف اتعملت ازاي علشان أطبقها

في الرابط التالي ، سلسلة من دروس الأستاذ محمود عبدالغفار ، متأكد أنها ستقدم لك الإجابات الشافية بشكل مرئي .. https://www.youtube.com/hashtag/mahmoudtrainingmicrosoftvba_dao والدرس الأول أعتقد جواب لسؤالك

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

حلوة منك 😄 المفاتيح في الجدول وجدت لضبط وتنظيم الادخالات بينما الاستعلام يعرض فقط

شكرا جزيلا أخي الفاضل تمام ربنا يبارك فيك نفس اعرف ازاي جعلت qry_Temp في التقرير من غير مفاتيح مع انه في الجدول فيه ثلاث مفاتيح

وعليكم السلام ورحمة الله وبركاته .. حياكم الله أخي أسعد ، الأداة منفصلة بذاتها للآن .. تستطيع استدعائها وفتحها من خلال زر مثلاً بأحد الخيارين التاليين :- On Error GoTo ErrorHandler Dim dbPath As String dbPath = CurrentProject.Path & "\PDF Converter - 64.accde" Application.FollowHyperlink dbPath Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء محاولة فتح قاعدة البيانات" & vbCrLf & Err.Description, _ vbExclamation + vbMsgBoxRight, "خطأ" أو استخدام الكود التالي :- On Error GoTo ErrorHandler Dim dbPath As String Dim ws As Object dbPath = CurrentProject.Path & "\PDF Converter - 64.accde" If Dir(dbPath) = "" Then MsgBox "ملف قاعدة البيانات غير موجود", vbExclamation Exit Sub End If Set ws = CreateObject("WScript.Shell") ws.Run Chr(34) & dbPath & Chr(34) Set ws = Nothing Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء فتح قاعدة البيانات" & Err.Description, vbExclamation + vbMsgBoxRight, "خطأ" Set ws = Nothing مع ضرورة تغيير اسم قاعدة البيانات في الكود ، وحيث أن مسار المشروع سيكون بجانب قاعدة بياناتك . وكلاهما يعملان ولكن الكود الأول قد ينتج عنه رسالة التنبيه هذه على سبيل المثال :- والسبب في بعض الأجهزة ونسخ الأوفيس عدم تعيين موقع قاعدة البيانات كمصدر موثوق ، لذا في الكود الثاني سيتجاوز هذا التحذير فقط لا غير ..

أخي الفاضل شكرا جزيلا علي الأداة الجميلة كيف أضيف الأدارة لمشروعي ؟ آسف كيف أضيف الأداة لمشوعي ؟

شكرا جزيلا تم حل المشكله بارك الله فيك

تأكد من إعدادت اللغة للجهاز و أن اللغة العربية ممكنة افتح خيارات الاكسيل و تأكد منها

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

أسعدكم الله أخي @Hamtoooo ، وبإذن الله قريباً جداً مميزات وتحسينات وإضافات جديدة ترقى بكم وبهذا المنتدى .

شكرا جزيلا علي الرد ولكن النتائج بتظر بهذا الشكل لا أدري أين المشكله

شكرا جزيلا أخي الفاضل وبارك الله فيك وأكثر الله من أمثالك وزادك الله من علمه ساجرب وأوافيك بالنتيجة

في التحديث الجديد تم إضافة ميزات وتحسينات كثيرة إن شاء الله 😇 . قريباً بإذن الله

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

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