ناقل

جرب كده Private Sub Form_Current() Dim ctl As Control ' التحقق من قيمة الحقل MAN If Me.MAN = "HTM" Then ' اجعل جميع الحقول غير قابلة للتحرير For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then ctl.Locked = True End If Next ctl ' السماح بتعديل الحقول الثلاثة فقط Me.INFU.Locked = False Me.MUR.Locked = False Me.POL.Locked = False Else ' إذا لم يتحقق الشرط، اجعل جميع الحقول غير قابلة للتعديل For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then ctl.Locked = True End If Next ctl End If End Sub

هل شاهدت ما رسالة اخي محمد من صورة. gif قصدك لكل واحد منهم فرصة واحدة خلال سنتين يعني الاب فرصة والزوجة فرصة والابن فرصة

ما شاء الله تبارك الله ... كفيت و وفيت ... وننتظر صاحب الموضوع

طيب ماذا لو كان المبلغ أقل هل يحق له المنحة مرة أخرى في خلال سنتين .... يعنى لو استحق في المرة الأولى وكان المبلغ 2000 دينار وطلب منحة اخرى لعمل أيضا نظارة بمبلغ 5000 دينار هل يستحق ام لمرة واحدة فقط دون اعتبار مجموع المبالغ ب 7000 دينار

ممكن شرح مفصل لهذه الجزئية ... حتى لا نفهم خطأ وندخل مشاوير التعديلات ... اشرح بشكل مستفيض لو تتكرم علينا

احسن انه في تناقض في كلامك ..... كيف برنامجك ترقيم غير مكرر وانت تتعمد اضافة سجل برقم مكرر ولا تريد رسالة الخطأ ....!!!!!!!!!! ؟؟؟؟؟ اضف السجل بدون اضافة رقم والبرنامج هو المسؤل عن الترقيم .... ثم يعيد ترتيب الارقام حسب تسلسل التاريخ ....... جرب ملفي بالطريقة التي ذكرتها لك دون ان تسجل او تغير الرقم الظاهر في مربع النص ....

مشاركة مع الاخوة ..... انظر هذا .... ADD (1).accdb

هذه مقانة عن طريق الذكاء الاصطناعي بينها والاكسس :::::: يعتبر LibreOffice Base و Microsoft Access كلاهما برامج لإدارة قواعد البيانات، إلا أن هناك فروقاً رئيسية بينهما تتعلق بمميزات كل برنامج، توافقه، تكامله مع البرمجيات الأخرى، وتكلفته. إليك أبرز الفروقات: 1. التكلفة والترخيص LibreOffice Base: مجاني ومفتوح المصدر، مما يعني أنه يمكن تحميله واستخدامه بدون تكاليف إضافية، ويتيح للمستخدمين تخصيصه وتعديله حسب احتياجاتهم. Microsoft Access: جزء من حزمة Microsoft Office التي تتطلب شراء ترخيص مدفوع، وهو برنامج مغلق المصدر. 2. التكامل والتوافق LibreOffice Base: يدعم قواعد بيانات خارجية متعددة مثل MySQL، PostgreSQL، وFirebird. قد لا يكون بنفس السلاسة مع برامج Microsoft، لكنه يعمل بشكل جيد مع التطبيقات المفتوحة المصدر. Microsoft Access: يتميز بتكامله القوي مع منتجات Microsoft الأخرى، مثل Excel وSharePoint، ويُستخدم بشكل واسع في بيئات العمل التي تعتمد على نظام Windows. كما يمكنه الاندماج بسهولة مع قواعد بيانات SQL Server وغيرها من برامج Microsoft. 3. النظام التشغيلي LibreOffice Base: يعمل على أنظمة Windows، وmacOS، وLinux، ما يجعله متعدد الأنظمة ومتوافقًا مع مختلف الأجهزة. Microsoft Access: متاح بشكل رسمي فقط على نظام Windows، وهو غير متوفر على macOS أو Linux. 4. سهولة الاستخدام وواجهة المستخدم Microsoft Access: يتميز بواجهة مستخدم متقدمة وسهلة الاستخدام للمبتدئين، وهو مجهز بأدوات ونماذج تساعد في إنشاء قواعد البيانات بسرعة. LibreOffice Base: لديه واجهة مستخدم بسيطة ومرنة، لكنها قد تكون أقل جاذبية من Access، وقد تحتاج لبعض الوقت لتعلمها خاصةً لمن اعتادوا استخدام برامج Microsoft. 5. المميزات والقدرات الوظيفية Microsoft Access: يحتوي على ميزات قوية للمستخدمين المتقدمين مثل بناء استعلامات معقدة، إنشاء تقارير مفصلة، دعم وحدات الماكرو والبرمجة باستخدام VBA، مما يجعله مناسباً للأعمال الصغيرة والمتوسطة. LibreOffice Base: يوفر ميزات أساسية مشابهة لكنه لا يدعم VBA أو وحدات الماكرو بنفس المستوى المتقدم، مما يجعله أقل قوة في بعض السيناريوهات المعقدة. ومع ذلك، فهو يكفي للاستخدامات الشخصية والمشاريع البسيطة. 6. الدعم الفني والتوثيق Microsoft Access: يحتوي على دعم فني متكامل من Microsoft، إلى جانب موارد واسعة من الوثائق، والدورات التعليمية، والمنتديات. LibreOffice Base: يعتمد بشكل أكبر على المجتمع والمصادر المفتوحة، وقد تكون هناك موارد تعليمية أقل بالمقارنة مع Access، رغم أن هناك مجتمعًا نشطًا يوفر الدعم والمساعدة. باختصار: LibreOffice Base هو خيار مناسب للأشخاص الذين يبحثون عن برنامج مجاني ومفتوح المصدر لإدارة قواعد البيانات، خاصةً إذا كانوا يعملون على أنظمة تشغيل مختلفة. أما Microsoft Access، فهو ملائم للشركات والأعمال الصغيرة التي تعتمد على نظام Windows وتحتاج إلى تكامل مع بقية منتجات Microsoft وبرمجة متقدمة.

تفضل اخي ابو الحسن @abouelhassan

بارك الله فيك .... عند اختيار المنتج من نموذج اختيار المنتجات تجد كود في كود المنتج حسب الصورة وفي داخل الكود تجد استعلام الحاق وهذا الاستعلام كما في الصورة وبهذا يتم الحاق التراكيب الخاصة بالمنتج والبيانات المطلوبة واضافة رقم المنتج ورقم الحركة ( طبعا عن طريق النموذج ) وبهذه الطريقة تم الحاق التركيبات الخاصة بالمنتج مع اضافة رقم المنتج ورقم الحركة وكل هذا تم الحاقة في الجدول المسمى Adb_TableExchanj الخطوة الاخير تم الربط بين النموذج الرئيسي والنموذج الفرعي في نموذج المنتجات كما في الصورة

جرب المرفق هذا ما توصلت اليه ........ ولكن انتبه لالية العمل اولا :::: ادخال التركيبات ثانيا :::: الانتاج والتصنيع 1- اضافة 2- دبل كليل على كود المنتج لاختيار المنتج 3- ( عند الاختيار تظهر المواد الخام التي تدخل في تركيبها ) حتى الان لا يتم الخصم من مخزن المواد الخام 4- عند الضغط على اعتماد ( يتم الان الخصم من كميات المخزن مباشرة ولا يمكن التراجع ) ‏‏‏‏‏‏‏‏‏‏‏‏‏‏تصنيع.accdb

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

امين ... الله يجمعنا واياكم وجميع المسلمين في الفردوس الاعلى ... على سرر متقابلين ... الله يديم المحبة اخي الحبيب محمد ...

انا كاني سامع حد بينادي .... مين بيتكلم ...... انا اسمي موجود ..... انا هنا .... وانا حاضر يا بشمهندس

هناك كود في التقرير لرسم الخطوط ..... مثل هذا

اوفيس 16 32 بت .... يعمل الملف

طبق كما في الصورة ................ ولماذا لايكون التاريخ تلقائي حسب السنة الدراسية .... دون الحاجة لارتباطها بالنموذج ؟؟؟

مشاركة مع الاستاذ @Foksh كما ذكر اخي الفاضل .... لكن لو كان الاطار عبارة عن خط اعتقد يمكن رسمه بالكود حول التقرير ... والله اعلم

جرب كده ..... ‏‏جديد - نسخة.accdb

تفضل ........................... Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT TP1.ID, TP1.[اسم الموظف], TP1.[الدرجة الوظيفية], TP1.[العنوان الوظيفي] FROM TP1;", dbOpenSnapshot) With rs .MoveLast .MoveFirst Me.text1.AddItem "اسم الموظف" & ";" & "الدرجة" & ";" & "العنوان الوظيفي" For i = 1 To .RecordCount xfld = 0 Call Allfld(rs![العنوان الوظيفي]) If xfld = 0 Then Beep Me.text1.AddItem rs![اسم الموظف] & ";" & rs![الدرجة الوظيفية] & ";" & rs![العنوان الوظيفي] Else End If .MoveNext Next i End With

هل هذا ما تريد .... Test-11.accdb

اختلاف تنسيق التاريخ .... انظر لنفس تاريخ التشغيل4

اخي الكريم .... في ملف الاكسل ورقتين وليس ورقة واحدة ...... لان الورقة الثانية مخفية .... اظهرها من الاكسل ارجو سرعة مسح ملفاتك المرفقة لان فيها بيانات ظاهرة

تم الاستيراد ........................ تم مسح المرفقات لأن بها مواد حساسة .....................