Foksh

أهلاً بك أخي الكريم في عالمنا التواضع .. ويسعدنا انضمامك لأسرة أصدقاء المنتدى .. بداية سنقوم أولاً بتصور ما تريد وترتيب تسلسل الأفكار والأحداث كما يلي ، كي تتوضح لك الفكرة في انشاء كمثل هذه الأفكار في النماذج مستقبلاً . ستقوم بإنشاء جداولين واحد للمستندات ، والآخر لتفاصيل المستندات ( Documents و DocumentDetails ) ، حيث الحقول التالية فرضاً لا حصراً .. 1. الجدول Documents سيحتوي على الحقول التالية :- DocumentID = ترقيم تلقائي DocumentNumber = حقل رقمي DocumentDate = حقل من نوع تاريخ 2. الجدول DocumentDetails وسيحتوي على الحقول التالية :- DetailID = ترقيم تلقائي DocumentID = حقل رقمي DetailDescription = حقل نصي 3. في العلاقات سنقوم بربط العلاقة بين الحقلين DocumentID في الجدولين ، ونختار فرض تكامل المرجعية لتأمين البيانات وربطها . 4. وهذه فكرة لما بعد ذلك في تصميم النماذج ، ولك حرية التعديل حسب رغبتك ومتطلباتك 0.accdb

تفضل أخي الكريم ، هذه فكرة لما تصورته في طلبك 00.accdb

اللهم آمين يا رب العالمين ،، أشكرك والدنا الحبيب ومعلمنا يا أهلاً بالتعديلات ,, نورتني يا غالي ويسعدني لمساتك الفنية فكرة جميلة أيضاً إضافة الوصف لكل حقل ، وأيضاً Use ChkUnder Score شكراً يا صديقي .. اللهم آمين يا رب العالمين , ولكم جميعاً مروراً وحضوراً النصيب الأكبر من الدعاء لكم و لوالديكم ولأمه محمد أجمعين

بناءً على إقتراح أستاذنا @Moosak تم إضافة ميزة " التسمية التوضيحية - Caption " للحقول . تم إضافة ميزة " التعرف على حقل الترقيم التلقائي " عند وجوده والتخيير بين جعله مفتاح أساسي أو لا . في حال عدم وجود حقل ترقيم تلقائي ، سيتم التنبيه بعدم وجوده وإنشاء حقل جديد ID = AutoNumber ؛ والتخيير أيضاً بإنشائه أو لا . وعند إنشائه سيكون له خاصية مفتاح اساسي PrimaryKey . 💡ملاحظة : في التعديل القادم سيتم إتاحة الفرصة للمستخدم بالتعديل على الحقول قبل إنشاء الجدول كخطوة أخيرة 🤗 TBL Maker.accdb

اخي الكريم ،، الرقم هو فعلاً 9 مليار ( 9000000000 ) أما 9 مليون ( 9000000 ) 😅

مرفق لنفس الكود في مشاركتي السابقة !! 00.accdb

وعليكم السلام ورحمة الله وبركاته ،، حسب ما فهمت ، التعديل بسيط جداً .. تفضل :- Private Sub tmanu_AfterUpdate() If Me.tmanu.Value >= 900000000 Then Me.cost = "مسار الطرح قيمة مرتفعة" End If End Sub

اهااا ، فهمت ما تقصده مهندسنا الغالي ، امممم تمام . توضحت لي الصورة

صديقي الأستاذ عمر ضاحي ، أشكرك مرورك وكلامك الطيب

أشكرك على ردك مهندسنا الغالي هل التسمية التوضيحية أو Lebels من مكونات الجداول ؟؟؟؟؟؟ تم الأمر في التحديث التالي إن شاء الله .

وعليكم السلام ورحمة الله وبركاته ,, تم انشاء الدالة حساب التكاليف :- Private Sub CalculateTkalef() Dim contractType As String Dim months As Integer Dim costPerMonth As Currency Dim totalCost As Currency contractType = Me.elt3qod.Value months = Nz(Me.elmohla.Value, 0) Select Case contractType Case "ايجار" costPerMonth = 300 Case "ايجار تمليكي", "تمليك" costPerMonth = 500 Case Else costPerMonth = 0 End Select totalCost = costPerMonth * months Me.eltkalef.Value = totalCost End Sub واستدعائها في حدثي بعد التحديث لـلكومبوبوكس (elt3qod) ومربع النص (elmohla) . برنامج.accdb

إنا افتكرت انك بتحسد 😂 ، إذا كان كدة معلش 😇 انت الأروع صديقي فريد 🥰 . من غير ما تستأذني أخت حنان ، لكي الحرية المطلقة ، وسعيد برؤية إبداعاتك في التعديلات 😉 .

اذا كان النموذج له مصدر بيانات ( جدول ) ، فإنك عندما تذهب الى سجل جديد فسيتم حفظ البيانات في الجدول بشكل تلقائي. DoCmd.GoToRecord , , acNewRec

الحمد لله الذي علّمنا من علمه ، وما أوتينا من العلم إلا قليلا 🥰

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

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) قمت بتنفيذ فكرة لأنشاء الجداول بطريقة مختلفة عن الطريقة التقليدية التي نعرفها .. إلا أنها ما زالت قيد التطوير الفكرة تعتمد على نموذج واحد فقط يمكّن المستخدم من إنشاء جداوله والحقول التي تحتويها ونوع الحقول بشكل سهل وبسيط . أولاً انقر على الزر " أنشاء حقل جديد ... " ثانياً قم بملئ الحقول ( اسم الجدول ، اسم الحقل ، نوع الحقل ) ، عند اختيار نوع الحقل سيتم إضافة الحقل الجديد الى الـ List Box تسلسلاً حسب الإدخال . عند الإنتهاء من إدخال جميع الحقول وأنواعها ، انقر الزر " إنشاء الجدول ... " ، وهنا سيتظهر رسالة تفيد بأنه ( لابد من وجود حقل مفتاح أساسي ، هل ترغب بتعيين حقل مفتاح أساسي ؟ ) عند اختيار Yes - نعم سيتم تعيين أول حقل كمفتاح أساسي ؛ وإذا تم اختيار No - لا سيتم انشاء الجدول دون مفتاح أساسي . عند إنشاء الجدول سيتم تصحيح عدة نقاط بشكل تلقائي وهي :- إزالة المسافة من اسماء الجداول واستبدالها بـ " _ " . إضافة الجزء "_Tbl" الى اسم الجدول عند انشائه . أيضاً إزالة المسافة من أسماء الحقول واستبدالها بـ " _ " . الملف مفتوح المصدر TBL Maker.accdb بناءً على إقتراحات أستاذي وصديقي @Moosak ، والتعديلات التي تقدم بها صديقي وأستاذي @ابو جودي ، تم دمج وإضافة تعديلات جديدة أرجو أن تنال رضاكم وإعجابكم . تم إضافة ميزة أن يكون في الجدول أكثر من حقل مفتاح أساسي . تم إضافة ميزة التعديل على الحقول أو حذف أحد الحقول قبل إنشاء الجدول من خلال زر " تعديل الحقول " ، وبعد إجراء التعديلات انقر زر " تأكيد التعديل ". تم دمج ميزة حرية إضافة " _Tbl " الى اسم الجدول عند انشائه ( فكرة الأستاذ أبو جودي مع إجراء تعديل بسيط ) - إختياري . تم دمج ميزة أن يكون أسماء الجداول والحقول ( الإنجليزية ) تبدأ بحرف كبير Capital Letter . تم إضافة ميزة فتح الجدول بعد انشائه لرؤية النتيجة أو لإدخال البيانات - إختياري . تم إضافة زر " مفتاح أساسي " لتمكين المستخدم من اختيار الحقول التي يريدها أن تكون مفتاح أساسي . تم إضافة زر " إضافة حقل " لإضافة حقل جديد . تم تعديل التصميم بشكل بسيط ليتناسب مع محتوياته والميزات الجديدة . ✔ لا حاجة لأي مكتبات أو مديولات عند نسخ النموذج لمشروعك والبدء بالإستفادة من ميزاته . ✔ أتطلع لأي أفكار جديدة أو اقتراحات TBL Maker.accdb680 kB · 7 downloads تم تعديل منذ 7 ساعات بواسطه Foksh

امممم ، حسناً في بعض الأحيان لاحظت أن معظم إصدارات أوفيس التي يكون فيها خلل ناتج عن التحديث أو التحميل .... الخ تحتوي خطأ في VBA عند أكواد عشوائية ( حسب منطقة الخلل ) . على العموم جرب إكمال الجملة الشرطية بوضع Else If response = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True MsgBox "تم حذف السجل بنجاح.", vbInformation else DoCmd.CancelEvent End If

ارسل ملفك أخي الكريم ، ولكن جرب اعمل ضغط وإصلاح لقاعدة البيانات !!!! وهلا وضحت السطر التالي :

بدايةً ارجو أن تقوم بإنشاء تقريرك الذي تريد ان يتم طباعته بين التاريخين .. ثانياً هل تريد البحث بين التاريخين لتاريخ ميلاد الطالب ، أو تاريخ التسجيل ؟؟ اذا كان لتاريخ التسجيل ، فإليك الخطوات دون ملف مرفق :- 1. انشئ استعلام وحدد الحقول التي تريد جلب قيمها من الجدول ومن ضمنها طبعاً الحقل Reg كحقل أساسي . 2. في الحقل Reg من داخل الإستعلام وفي جزء الـ Criteria - الشروط اكتب السطر التالي :- Between [Forms]![بيانات الدور الثاني]![n1] And [Forms]![بيانات الدور الثاني]![n2] 3. احفظ الإستعلام ، وانشئ تقريرك المبني على هذا الاستعلام .

وإياكم أخي العزيز ,, شكراً لك

أخي الكريم أهلاً وسهلاً بك معنا ، تقيداً بقوانين المنتدى ، أرجو منك التوضيح أكثر حيث أنك لم تذكر اسم الجدولين أولاً ..

حسناً ، جرب هذا التعديل لنفس الوظيفة بفكرة مختلفة ؟؟ Private Sub del_Click() On Error GoTo ErrorHandler Dim response As VbMsgBoxResult response = MsgBox("سوف يقوم البرنامج بحذف بيانات العميل هل توافق علي ذلك", vbYesNo) If response = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True MsgBox "تم حذف السجل بنجاح.", vbInformation End If Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء محاولة حذف السجل: " & Err.Description, vbCritical DoCmd.SetWarnings True End Sub

جرب هذا التعديل للمرفق الأخير :- 2.zip تم إضافة حقل جديد في الجدول Reg_Status من نوع Yes/No ، وإضافة حدث في الحالي لتحديث القيمة لـ check1 بناءً على قيمة Reg_Status ، وتعديل الكود السابق في المشاركة السابقة لتحديث هذا الحقل أيضاً .

اعتذر منك أخت @hanan_ms ، ولكني هل يمكنك التوضيح للمطلوب بشكل أوضح ؟؟؟؟ اعتذر منك ولكن فعلاً لم افهم المطلوب رغم قراءتي له أكثر من مرة

أخي الكريم ،، جملة الحذف تبدو صحيحة ولا تحتوي على مشكلة ، ولكن قد يكون هناك معوقات أخرى غير معروفة وليست في الكود . لذا ارسل ملفك لرؤيته ومعرفة السبب والتعديل عليه