علاء محمد علي

الرجاء ارسال نسخة الى الايميل 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

أبشر

تفضل اتمنى ان هذا هو ما تريد علاء المؤهلات الجامعية.rar

تأكد أن جهازك مش مثبت به برنامج deep freeze

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

اخي العزيز الملف الذي أرسلته شغال 100٪ كما طلبت انت بالضبط دون زيادة او نقصان مرفق الملف مرة أخرى مع صور توضيحية TEST-1.rar

تفضل التعديل ان شاء الله يكون طلبك ملاحظة: اذا حاولت اضافة صورة قبل اضافة رقم الموظف تظهر رسالة تنبهك لضرورة إدخال رقم الموظف اولاً. اقترح تخليه ترقيم تلقائي وتخلص TEST.rar

شكرا لمروركم الكريم المشكلة ان قاعدة البيانات كبيرة وأن شاء الله سأقوم بإنشاء قاعدة بيانات مختصرة مع ملف PDF وارفقها لاحقا بالنسبة للمسار فهو مسار قاعدة البيانات نفسها currentproject path المطلوب هو كود الطباعة المباشرة لملف PDF بدون فتحه بغض النظر عن مساره واسمه

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

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

تفضل تم تعديل الدالة واستبدال ال(و) ب (_) Database1 - Copy.rar

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