jjafferr

تفضل 🙂 . 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) جعفر

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

اي نموذج ؟

🙂

وعليكم السلام 🙂 في قواعد البيانات ، غير مهم طريقة حفظ فرز البيانات ، والمهم عند عرض البيانات ، النموذج اللي يعرض البيانات ، اذهب الى الاستعلام مصدر بياناته ، واعمل الفرز على الاسم 🙂 جعفر

ممكن عمل هذا الكود في الاستعلام ، ولكنك وبسبب اللغة العربية في الكود ، فلن تعرف ان تغير شيء لاحقا ، لهذا السبب ، الافضل عمل وحدة نمطية ، ويمكنك تعديلها بكل بساطة ، اسميتها qry_values ، ونرسل لها قيمة الحقل من الاستعلام (في المثال السابق ، اسم الحقل كان 2020 ) ، وفي الوحدة النمطية تسمية هذا المتغير هو H : Public Function qry_values(H As Integer) As String If H = 0 Or Len(H & "") = 0 Then ' Zero and Null qry_values = "لا يوجد" ElseIf H = 7 Then ' any other value qry_values = "تم الانتهاء" Else ' return the original value qry_values = H End If End Function . ثم نناديها من الاستعلام ، هكذا : . والنتيجة : جعفر 1306.مثال.accdb.zip

السلام عليكم 🙂 اخي عبدالعليم ، رجاء تخبرنا المطلوب بالتفصيل !! انت اخذت هذه الصور من احد المواضيع اللي رد عليها اخوي @أبو إبراهيم الغامدي ، واللي تم عملها عن طريق HTML . ولكن طلبك في موضوعك الاول كان عبارة عن عرض مجلدات ثم عرض الملفات في تلك المجلدات !! جعفر

عفوا ، شو الفرق بين هذا السؤال ، وهذا جعفر

السلام عليكم 🙂 استعملت احد جداول هذا الملف : . عملت مقارنة للسرعة لـ 3 طرق مختلفة على جدولين بنفس البيانات (2,844,047 سجل في كل جدول) : . الاستعلام 1 ، كما عمله اخي حسام : DELETE salaries1.*, salaries1.emp_no1, salaries1.from_date1 FROM salaries1 WHERE (((salaries1.emp_no1) In (SELECT emp_no2 FROM [salaries2])) AND ((salaries1.from_date1) In (SELECT from_date2 FROM [salaries2]))); . واستغرق الاستعلام 28 ثانية لفتح البيانات (وليس لحذف البيانات) : . الاستعلام 2 ، كما عملته انا : DELETE salaries1.emp_no1, salaries1.* FROM salaries1 WHERE (((salaries1.emp_no1) In (Select emp_no1 from qry_Similars))); . واستغرق الاستعلام 18 ثانية لفتح البيانات (وليس لحذف البيانات) : . الاستعلام 3 ، بطريقة جديدة : DELETE salaries1.*, salaries1.emp_no1, salaries1.from_date1 FROM salaries1 WHERE (((salaries1.emp_no1) In (SELECT emp_no2 FROM [salaries2] WHERE salaries1.[emp_no1]=[salaries2].[emp_no2] AND [salaries1].[from_date1]=[salaries2].[from_date2]))); . واستغرق الاستعلام لفتح البيانات (وليس لحذف البيانات) : . جعفر

اعرض الملف ملف قاعدة بيانات اكسس يحتوي على 3,919,015 سجل ، لتجربة سرعة برنامجك السلام عليكم 🙂 لعمل برنامجك ، فلا يكفي ان تجربه على بضع سجلات ، وانما يجب تجربته على اكبر قدر ممكن من السجلات ، وخصوصا اذا كان برنامجك سيعمل في شبكة 🙂 لذا ، انزل هذا الملف الى مكتبتك ، واعمل منه نسخة لكل تجربة تريد تعملها 🙂 لا اذكر من اين انزلت هذا الملف ، ولكنه من الملفات المفيدة جدا 🙂 قاعدة البيانات هذه ، تحتوي على بيانات وهمية ، وحجم الملف المضغوط حوالي 30 ميجابايت ، بينما عند فك الضغط يكون حجم الملف حوالي 219 ميجابايت ، يمكن انزال برنامج مجاني من هذا الرابط لكي تفك ضغط الملف (انا استعمله كأحد برامجي الاساسية 🙂 ) : https://www.7-zip.org/ جعفر هنا رابط لمقارنة سرعة الحلول ، باستعمال هذا الكم من البيانات : صاحب الملف jjafferr تمت الاضافه 08 ديس, 2020 الاقسام قسم الأكسيس

1 و 2 فهمتها ، ويجب تجربتها على مثال ، 3. ما فهمت هاي !! جعفر

كلمة And لا محل لها من الاعراب !! جعفر

وعليكم السلام 🙂 لازم يكون عندك مجلد اسمه Save_Me ، في نفس مجلد برنامجك : Private Sub cmd_rpt_Click() Dim file_name As String file_name = Application.CurrentProject.Path & "\Save_Me\Blah.pdf" DoCmd.OutputTo acOutputReport, "rpt_Name", acFormatPDF, file_name, False, , , acExportQualityPrint Shell "C:\Windows\explorer.exe /select," & file_name, vbNormalFocus End Sub . جعفر 1305.zip

وعليكم السلام 🙂 اول خطوة هي عمل حقل ترقيم تلقائي Auto_ID في كلا الجدولين ، هذه الجداول والبيانات الموجودة ، والبيانات المتشابهة بين الجدولين : . نعمل استعلام يأتي هذه النتائج : . . ثم نعمل استعلام حذف ، بحيث معيار Auto_ID الجدول TB1 نأخذه من نتائج الاستعلام qry_Similars : . وبعد تشغيل الاستعلام ، هذه نتائج الجداول : . جعفر 1304.مثال اوفيسنا استعلام حذف بيانات من جدول بناء على جدول اخر.accdb.zip

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