jjafferr

همممم الظاهر لازم اثبت لك 🙂 طيب ، انا حذفت جميع الجداول ، ما عدا جدول واحد فقط ، علشان يكون البرنامج خفيف 🙂 وادخلت بيانات في الحقول (حقول النص) ، فرجاء ادخل اي معلومة تحب في اي من حقول النص، مثلا الحقول Remarks400 وما بعد ، وبعدها نتكلم ان شاء الله 🙂 جعفر Database1.zip

برامج التصليح تعمل لإسترجاع بيانات الجداول ، والقليل منها لإسترجاع الاستعلامات ، اما النماذج والتقارير والوحدات النمطية والماكرو ، فيمكنك استيرادها من النسخة الاحتياطية Backup 🙂 جعفر

هذا الذي اشرت اليه لما قلت: جعفر

وعليكم السلام 🙂 عندك مشكلة في تصميم قاعدة بياناتك ، ويجب اعادة النظر فيها !! ملاحظاتي هي: عندك 5 جداول مطابقة لبعض في حقولها ، ويمكن استعمال جدول واحد فقط بدلا عن هذه الخمسة ، وذلك بإضافة حقل "الفرع" في الجدول ، عدد حقول الجدول الآن = 136 حقل ، والعدد المعقول حوالي 30 حقل ، لذا يجب عليك تفكيك الجدول الى عدة جداول ، تفكيك الجدول الى عدة جداول يكون حسب نوع الحقول ، فممكن جمع كل مجموعة في جدول واحد ، وعمل حقل serial في كل جدول ، ويأخذ نفس رقم الجدول الاساس ، ويكون هذا بعد عمل علاقة بين هذه الحداول بواسطة هذا الحقل ، عندك بعض الحقول مكررة مثل: Number1 ، Expire Date1 ، Remarks1 وتصل الى 15 ، مما يعني ان الجدول الخاص بهذه الحقول يكون فيها حقل واحد من هذه الحقول ، وبياناته مكرره ، لا تستعمل lookup للحقول ، وانما اعمل جدول خاص بهذه البيانات ، ثم من النموذج تختار القيمة التي تريدها ، لا يجعل الصور مضمنه في الجدول ، وانما احفظها في مجلد على الكمبيوتر ، واربطها بالبرنامج ، سواء بربطها برمجيا ، او عمل حقل مسار الصورة في الجدول. وبعد ان تعمل هذه التغييرات ، فيكون نقل الموظف من فرع الى آخر ، يكون فقط بتغيير قيمة حقل الفرع فقط ، وبدون نقل البيانات بين الجداول 🙂 جعفر

تفضل يا سيدي ، الكود السابق بواجهه : . جعفر Convert_mdb _n_accdb_to_mde_n_accde.mdb.zip

وعليكم السلام 🙂 انزل البرنامج من رابط هذا المرفق ، واصلح برنامجك جعفر

لعمل الفرز بالحقل ، EmployeeID ، انت استعملت: val (EmployeeID) والامر VAL يغير قيمة الرقم من نص الى رقم ، مثلا : VAL("84") = 84 ولكن VAL("F2") = 0 . بينما قيمة الحقل عندك هكذا: . فلا يمكن فرزها بطريقتك ، وانما استعمل الفرز العادي بدون الامر val ، وبسبب ان استعلامك مهول بمعنى الكلمة ، فلم اعرف بدايته من نهايته ، والعمل عليه 🤢 جعفر

همممم سؤالك: وما علاقة التقرير بقفل السجل !! جعفر

نعم ، اغلب البرامج تعتمد على الكود في عمل البرنامج ، وتعتمد على الكود في عمل كائنات النموذج/التقارير ، وهنا قوة الاكسس في التفوق عليهم جميعا في سرعة عمل البرنامج بواجهات الاكسس 🙂 جعفر

نعم هذا صحيح 100% اعطني دليل 😁 جعفر

وهل من ميزة اذا عملت البرنامج بالـ VBA ، عن لو عملته بواجهات الاكسس التلقائية ؟ واجهات الاكسس التلقائية = كل شيء يقوم به الاكسس بدون VBA طريقة العمل الصحيحة في برمجة الاكسس : اعمل اكثر شيء ممكن تعمله بطرق الواجهات التلقائية السهلة ، و اكمل بقية احتياجاتك بالـ VBA 🙂 هذه قوة الاكسس والتي يتفوق بها على اكبر برامج قواعد البيانات و برامج NET. ، وهي السرعة في تصميم برنامج الاكسس ، باستخدام الواجهات التلقائية اللي يساعدك اكسس فيها ، سواء النماذج او الاستعلامات او التقارير ، ولا تزال استعلامات الاكسس التلقائية ، هي الافضل من جميع البرامج الاخرى ، لسهولة عملها. جعفر

وعليكم السلام 🙂 في اعدادات النموذج ، اعمل Allow Edits = False جعفر

اذن كانت عندنا مشكلة في التاريخ ، وتم حلها بهذه الطريقة : والوحدة النمطية هي: Function DateFormat(varDate As Variant) As String 'Purpose: Return a delimited string in the date format used natively by JET SQL. 'Argument: A date/time value. 'Note: Returns just the date format if the argument has no time component, ' or a date/time format if it does. 'Author: Allen Browne. allen@allenbrowne.com, June 2006. ' 'calling the Function: DateFormat(The_Date_Field) 'a = dlookup("[some field]","some table","[id]=" & me.id & " And DateFormat(The_Date_Field)") ' If IsDate(varDate) Then If DateValue(varDate) = varDate Then DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#") Else DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#") End If End If End Function . ونناديه من الاستعلام هكذا : B: CCur(Nz(DSum("[Credit]-[Debit]","[TransactionS]","[SupplierID]=" & [TransactionS].[SupplierID] & " And DateFormat([Date])<='" & DateFormat([Date]) & "'"),0)) . جعفر

هل تاريخ جهازك انجليزي او هجري ؟ رجاء تجرب هذا المرفق 1307.1.يومية مورد.accdb.zip

تفضل 🙂 . 1307.1.يومية مورد.accdb.zip

الله يطول في عمرك ، ما هذا النموذج اللي عملته انا ، وارفقته في مشاركتي السابقة !! . انا قلت: . هذه نتائج نموذجي اللي في مرفق مشاركتي السابقة ، وحسب التواريخ اللي وضعتها انت : . جعفر

السلام عليكم 🙂 علشان نحصل على الرصيد التراكمي ، نستعمل هذا الكود في الاستعلام (ويجب ان يكون التاريخ تصاعدي) : B: CCur(Nz(DSum("[Credit]-[Debit]","[TransactionS]","[SupplierID]=" & [TransactionS].[SupplierID] & " And [Date]<=#" & [Date] & "#"),0)) . . والنتيجة . وفي الاستعلام النموذج ، تم حذف الحقل RecNo ، واستعملنا الحقل B (من الاستعلام) في حقل الرصيد ، فكانت النتيجة : . 1307.يومية مورد.accdb.zip

وعليكم السلام 🙂 اسهل الطرق : اذا كان النموذج/التفرير هكذا . وفي العرض يصبح . . ليعمل هكذا : . . وهذه بعض الطرق الاخرى لتكبير/تصغير جميع كائنات النموذج لتتناسب مع حجم الشاشة : . جعفر

وعليكم السلام 🙂 يمكنك عمل التسلسل في التقرير مثل ما قلت ، ولكن لعمل تسلسل في النموذج ، هذه الطريقة لا تعمل ، ويمكنك استعمال احد هذه الطرق في الاستعلام مصدر بيانات النموذج : جعفر

الحمدلله 🙂 ولكني لا انصح ابدا بوضع Dlookup في استعلام ، لأن Dlookup هو استعلام بحد ذاته ، فما بالك اذا وضعت 2 Dlookup ، فسيكون استعلامك بطيء اذا زادت البيانات !! في استعلام التوحيد ، اضف Order By في الاستعلام الاخير فقط (ولا داعي ان تضعه في كل استعلام داخلي ، فتضيف وقت فرز كل استعلام ، على الاستعلام العام) 🙂 جملة ORDER BY Val (EmployeeID) التي كتبتها انت ، لم تضعها في آخر استعلام ، وانما في احد الاستعلامات الاخيرة في الـ union الاخير : . بينما يجب وضعها بعد امر Where الاخير : . هكذا : . وملاحظ ان عندك مجموعة من GROUP BY ، وهي تجعل الاستلام بطيء ايضا ، فيجب النظر في فائدتها ايضا 🙂 جعفر

اخي الفاضل انا ما عندي برنامج جاهز فيه نفس مشكلتك ، ولا اعرف كيف عمل برنامج فيه نفس مشكلتك ، وجواب طلبك ليس من النوع الذي نضع له كود متعارف عليه ، لذلك ، رجاء ارفق لنا مثال به مشكلتك ، واخبرنا من بياناته متى تريدنا ان نعطي اي رسالة ، وماهو المفروض ان يكون في الرسالة 🙂 يعني ، انا قدرتي تتوقف بدون مرفق لموضوعك 😁 جعفر

لا حول ولا قوة إلا بالله العلي العظيم أحسن الله لكم العزاء ، ولا اركم الله مكروها فيمن تحبون وفد على رب غفور ورسول كريم هم السابقون ونحن اللاحقون إنا لله وإنا اليه راجعون

الآن تم اخفاء زر Show Pedo ، والصورة تظهر حسب اختيارك من الحقل Kind ، لا يوجد مكان خاص للكيار وآخر للاطفال ، هو مكان واحد للإثنين معا ، 1. التنسيق الشرطي : لعمل لون جديد (او لتغيير لون سابق) ، يجب هذا اللون ان يتطابق مع لون الضرس في الصورة : - لا تختار اللون مباشرة ، وانما اذهب الى more colors . الآن اختار الالوان (تستطيع ان تختارها من التبويب Standard ) ، ولكن يجب ان تأتي الى هذا التبويب لمعرفة ارقام الالوان ، هنا الارقام R=احمر=0 ، G=اخضر=51 ، B=ازرق=102 . 2. اما في الكود ، فنعمل نسخ من المربع الاحمر (جميع الاسطر الاربعة) الى الشرط الجديد (الحشو) ، مع تغيير اللون RGB ليطابق اللون الذي تم اختياره اعلاه : . جعفر 1303.1.YOUSSEF_2020 OK.accdb.zip

جرب هاي : بدل هذا السطر Set Rst1 = db1.OpenRecordset("temp", dbOpenSnapshot) اكتب هذا السطر Set Rst1 = db1.OpenRecordset("Select * FROM temp ORDER BY stuname", dbOpenSnapshot) جعفر

الظاهر طريقتي في العمل تختلف عن طريقتك !! انت تعطي المعلومات بالقطارة ، قطرة قطرة ، ووقت السؤال 😁 لازم اسالك اي نموذج ، والآن لازم اعرف اي زر في النموذج 😁 جعفر