jjafferr

تفضل يا سيدي ، الكود السابق بواجهه : . جعفر 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) جعفر

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

اي نموذج ؟

🙂

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

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