jjafferr

نعم هذا صحيح 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) جعفر

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

اي نموذج ؟

🙂

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

ممكن عمل هذا الكود في الاستعلام ، ولكنك وبسبب اللغة العربية في الكود ، فلن تعرف ان تغير شيء لاحقا ، لهذا السبب ، الافضل عمل وحدة نمطية ، ويمكنك تعديلها بكل بساطة ، اسميتها 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 الاقسام قسم الأكسيس