علاء محمد علي

الرجاء ارسال نسخة الى الايميل apdohagp222@gmail.com

بعد تعديل الكود ظهر خطا آخر

يا ليت لو تسوي شرح بالفيديو لكيفية تثبيت الادوات الذي عملتها لاني ما قدرت اثبتها ولا حتى فهمت كيف اثبتها بصراحة وهذا بسبب جهلي وليس بسببكم شاكرين ومقدرين لكم هذا الابداع 🌹🌹 علاء محمد

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

السلام عليكم اولا اعد النظر بحساب قيمة الغسالات كيف مجموع الغسالات 1200؟ الغسالة ب2200 مع الربح يعني ثمن 5 غسالات مع الربح 10٪ هو 11000 اما فينا يخص المعادلة اللي طلبتها اقترح عليك أن تجعل برنامجك يخصم 25٪ من اجمالي كل صنف على حدة وليس من اجمالي الفاتورة واعمل اجمالي للخصم بنهاية الفاتورة والخصم يظهر أمام كل صنف محسوب بناء على نسبة الخصم المدخلة من المستخدم مثلا قيمة الغسالات الخمس هو 11000 مع الربح يظهر امامها في حقل الخصم (لأنك لازم تضيف حقل للخصم لكل صنف بالفاتورة) مبلغ 2750 وهو 25٪ وعند الرغبة بارحاع سلعة يتم حساب سعر البيع بقسمة مبلغ الخصم للصنع على العدد لانتج الخصم الخاص بالقطعة الواحدة اتمنى ان تكون وصلت الفكرة وستجد افكار افضل في المنتدى بالتأكيد اخوك علاء

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

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

كنت قد وضعت بين أيديكم الإجابة قبل أن تتوصلون إليها في النهاية وهي تعمل معي بشكل صحيح مع كلمة مرور لقاعدة الخلفية لكن لا أعلم لماذا تم تجاهل مشاركتي 😔😔

معي هذه الطريقة التي تشترط وجود الجداول في نفس مجلد الواجهات ضع هذه الوظيفة في موديول ثم قم باستدعائها في النموذج الافتتاحي في حدث عند التحميل Public Function connect() Dim dada Dim wrkJet0 As Workspace Dim dbs0 As DAO.Database adad = CurrentProject.Path & "\DATA.accdb" Set wrkJet0 = DBEngine.Workspaces(0) Set dbs0 = wrkJet0.OpenDatabase(adad, False, False, ";PWD=" & "PASSWORD") Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb() For Each tdf In db.TableDefs If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then On Error Resume Next tdf.Connect = ";DATABASE=" & adad tdf.RefreshLink End If Next End Function عليك تغيير كلمة PASSWORD بكلمة السر الخاصة بقاعدة بيانات الجداول ولاحظ تن قاعدة البيانات عندي اسمها Data.accdb. وعليك كتابة اسم قاعدة البيانات الخاصة بك بدلا منها اتمنى ان تكون الطريقة مفيدة لك اخوك علاء

انشى textbox وقم بربطه بتاريخ الانتهاء في الجدول واكتب بالكود Me.Textbox1=me.end_date تحت الكود السابق. او غير التسميات كما تحب لان الفكرة واحدة المعذرة لاني ارد عليك من الجوال تحياتي علاء كود رائع صراحة وأفضل من الذي عملته انا بمراحل

محذوف اتمنى يتم اضافة ميزة حذف المشاركة او توضيح الطريقة ان كانت موجودة

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

جميل جدا شكرا جزيلا على الجهد المبذول وانا بانتظار اضافة التقارير للبرنامج 😁

السلام عليكم اخوتي الأعزاء انا عملت طلبك بطريقة مختلفة شوي عن الاستاذ @محمد أبوعبدالله شوف الذي يناسبك اخوك علاء New Microsoft Office Access Application.rar

أبشر