jjafferr

تقريبا صحيح ، ولكن تحتاج تفصيل شوي: لما تجيب البيانات من الجدول ، ثم تشتغل عليها في النموذج/الاستعلام/التقرير/الكود ، تستخدم Sum ، مثل في النموذج (كما هو الحال في مثالك)، ومثل استخدام الامر Sum في الاستعلام ، ولكن ، وبغض النظر اين كنت ، وقد تكون قد جلبت البيانات من الجدول ، فعند استخدام DSum ، فانت تطلب البيانات من الجدول مرة اخرى جعفر

وعليكم السلام اخي عبد اللطيف الاوامر Dcount و Dsum و Dlookup و Dmax Dmin و Dlast ، هي عبارة عن استعلام يأخذ بياناته من الجدول او الاستعلام (في نهاية الامر المعلومة تكون مأخوذه من الجدول) ، ولهذا السبب ، وخصوصا اذا كان البرنامج في شبكة ، فيجب علينا اخذ اكبر قدر من البيانات في كل مرة نزور فيها الجدول ، يعني نقلل عدد الزيارات للجدول قدر الامكان ، حتى يقل الضغط على الشبكة ، ويقل الضغط على الجداول ، فتعمل الخلفية/الجداول بطريقة افضل ، فعليه ، واذا اخذنا البيانات من الجداول الى النموذج في الواجهة (كما هو الحال في برنامجك المرفق) ، فيجب ان نستفيد من هذه البيانات لحساب/جمع/طرح المطلوب ، ولا نرجع للجدول لأخذ بيانات صارت موجودة في النموذج ، فبدل ان نستعمل DCount ونأخذ البيانات من الجدول ، نستطيع استعمال Count ، والتي ستحسب البيانات من النموذج ، هكذا: . ولمزيد من التوضيح عن اخذ بيانات اكثر من حقل واحد من الجدول ، دفعة واحد ، بإستخدام اوامر DLookup : https://www.officena.net/ib/topic/61152-سؤال-فى-الاختيار-من-كمبوبوبكس/?tab=comments#comment-394338 ولتوضيح الرابط اعلاه https://www.officena.net/ib/topic/77349-dlookup-للبحث-فى-حقلين-مدموجين-ثم-توزيع-الناتج-على-مربعى-نص-بالتقرير-إبداعات-الأخ-جعفر/?do=findComment&comment=496423 جعفر

وعليكم السلام يا سيد جمال لم اضطر لعمل الذي تقوم به ، لذلك فليس عندي خبرة في الموضوع ، ولكن وبعد البحث ، توصلت الى الروابط الاجنبية التالية: 1. الخطوات كامله ، بدون كود https://www.askvg.com/guide-how-to-take-ownership-permission-of-a-file-or-folder-manually-in-windows/ 2. استخدام الكود ، من الرابط: https://answers.microsoft.com/en-us/windows/forum/windows_7-security/in-windows-7-getting-error-access-denied-when/42e8d16a-6f7a-e011-9b4b-68b599b31bf5 Method 2: Taking ownership of a folder from command line Open an elevated Command Prompt window. To do so: 1. Go to > Start > All Programs > Accessories 2. Right-click on Command Prompt, and then click Run as Administrator. 3. Type the following command and press ENTER: takeown /f <foldername> /r /d y 4. To assign the Administrators group Full Control Permissions for the folder, use this syntax: icacls <foldername> /grant administrators:F /T The /T parameter is added so that the operation is carried out through all the sub-directories and files within that folder. 5. To know more information about the above commands, run these commands from a Command Prompt window. takeown /? icacls /? Once you take ownership, you can grant permissions on those folders. . 3. الإستعانة ببرنامج خارجي ، وبدون كود: https://www.askvg.com/add-take-ownership-option-in-file-folder-context-menu-in-windows-vista/ جعفر

وعليكم السلام تفضل مع مراعاة الملاحظة: بدل If ctl.ControlType = acTextBox Then اكتب If ctl.ControlType = acTextBox or ctl.ControlType = accombobox Then جعفر

هلا والله بأخوي كاسر if obj.name <>"tbl_2" or obj.name <>"tbl_3" or obj.name <>"tbl_4" then بينما ، وعلشان يكون المثال اعم ، اذا اردنا حذف بيانات مجموعة معينة من الجداول فقط ، فيمكننا عمل: if obj.name ="tbl_2" or obj.name ="tbl_3" or obj.name "tbl_4" then او طبعا dbs.execute ("delete * from tbl_2") dbs.execute ("delete * from tbl_3") dbs.execute ("delete * from tbl_4") . جعفر جعفر

تفضل if MsgBox "...هذا الفصل " & الاحد1 & "..لديه مادة.." & vbCrLf & _ " باسم : " & txtc2 & vbCrLf & _ " للمدرس : " & txtc3, _ vbYesNo + vbCritical + vbMsgBoxRight, "تنبيه" = vbno then cancel=true end if جعفر

السلام عليكم حيالله اخوي محمد ، من زمان ما سمعنا منك . اذا افترضنا ان الجدول الذي لا نريد حذف بياناته ، اسمه tbl_2 ، فيصبح الكود: Sub AllTables() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentData For Each obj In dbs.AllTables if obj.name <>"tbl_2" then 'docmd.setwarning false 'docmd.runsql("Delete * From " & obj.Name 'docmd.setwarning true dbs.execute("Delete * From " & obj.Name end if Next obj End Sub جعفر

وعليكم السلام غالبا لتصغير البرنامج ، عمل ضغط واصلاح يكون كافي. ومن الاكسس ، اخذت هذا الكود وعدلت عليه ، يقوم هذا الكود بحذف البيانات من جميع الجداول ، ولاحظ بأني استخدمت طريقة اخوي @kanory ، لأني ما اريد احصل على رسائل اكسس ، ومن ضمن الرسائل ممكن تكون رسالة بعدم امكانية حذف بيانات جدول بسبب ارتباطه بجدول آخر !! : Sub AllTables() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentData For Each obj In dbs.AllTables 'docmd.setwarning false 'docmd.runsql("Delete * From " & obj.Name 'docmd.setwarning true dbs.execute("Delete * From " & obj.Name Next obj End Sub . وبعد هذا اعمل ضغط واصلاح. جعفر

سؤالك غير واضح اخوي وضاح ، رجاء توضح اكثر جعفر

شو هذه الوحدة النمطية؟ وشو الغرض منها؟ جعفر

وعليكم السلام اخوي حربي اعصابك اعصابك ، تعطينا ساعة ونص ، ومستعجل علينا ، بينما اكيد كان الموضوع عندك ايام وايام وما كنت مستعجل عليه الاستعلام هو اساس كل شيء في موضوعك ، فالجمع يتم من هنا . والنتيجة . ورجاء ، لما تخلص الاشياء الثانية من التقرير ويصبح بصورته النهائية ، رجاء ارفقه لنا ، حتى يستفيد منه الجميع جعفر 941.DBCollg1.mdb.zip

وعليكم السلام واهلا وسهلا بك في المنتدى رجاء اعطاء معلومات إضافية ، مثل الكود ، ومتى تحصل على الرسالة ، واي معلومة اخرى ممكن تفيدنا في الرد قواعد المشاركة فى الموقع و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر

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

تفضل كودك كان سطر واحد ، فمن الصعب معرفة تفاصيله وتغييره ، ولكن لما تفكه الى عدة اسطر ، تستطيع تغييره بسهولة: MsgBox "...هذا الفصل " & الاحد1 & "..لديه مادة.." & vbCrLf & _ " باسم : " & txtc2 & vbCrLf & _ " للمدرس : " & txtc3, _ vbYesNo + vbCritical + vbMsgBoxRight, "تنبيه" . ولكن هذا الكود يعطيك زر نعم/لا ، ولا فائدة منه بدون ان يعرف البرنامج ماذا يعمل ، اذا نقر المستخدم على الزر نعم او لا !! جعفر

وعليكم السلام اخوي حمدي ادخل في اكواد VBA عن طريق: Ctrl+G او Alt+F11 ، ثم : 1. اضغط على F1 من الكيبورد ، بيظهر لك مساعد الاكسس: 2. اكتب msgbox للبحث عن هذا الامر ، 3. ستجد شرح كامل عن جميع مكونات هذا الامر ، والاوامر التي تستطيع استعمالها فيه ، 4. بالاضافة الى وجود مثال جاهز تستطيع ان تأخذ نسخه منه ، وتغيره حسب حاجتك جعفر

السلام عليكم فقط ملاحظة عن الامر CurrentDb.Execute: 1. هناك حالات لا يمكن للاكسس استخدامه ، 2. ميزة الامر انه يقوم بالعمل بدون رسائل تحذيرية ، ولكن اذا لم يستطع اكسس ان ينفذ الامر ، فلن تعرف السبب ، فهو لا يعطي رسالة الخطأ ، لذا ، يمكنك استعمال: docmd.runsql ("Delete * From Tbl_reg") جعفر

السلام عليكم اخوي خلف شكرا على هذه الكلمات الجميلة ، وهذا من حُسن ظنك فيني ذكرتني ببرنامج قديم عملته من زمان ، فرفعته بالشرح جعفر

السلام عليكم ورحمة الله وبركاته اللي يعتقد بأننا نستخدم الاكسس في الحسابات فقط ، فاليلقي نظرة على برنامج القافية هذا برنامج عملته في 2007 ، لإختيار الكلمات من بين حوالي 618 الف كلمة ، لأعمل قافية لأبيات الشعر الواجهة: 1. اكتب الحرف/الحروف التي تريد ان تكون عليها القافية (اي ان تنتهي الكلمة بهذا الحرف/الحروف) ، 2. اكتب الحرف/الحروف التي تبدأ الكلمة بهذا ، 8. كلمات البحث في #1 و #2 تظهر هنا ، 3. عند كتابة الحروف في #1 او #2 ، فالبحث يكون عن طريق هذا الزر ، (وتستطيع الكتابة في #1 او #2 ، و رقم 4) ، 4. اكتب الكلمة التي تريدها ، وستظهر لك الكلمات المرادفه لها ، 5. للبحث للرقم 4 ، 9. كلمات البحث في #4 تظهر هنا ، 6. لحذف جميع كلمات البحث ، بالاضافة الى انه يمكن النقر مرتين على #1 او #2 او #4 لحذف الكلمة/الحرف/الحروف من الحقل ، 7. نريد ان نختار من الكلمات الموجودة في #8 ، فننقر على #7 لحفظها مؤقتا في نموذج جديد . البحث في الكلمات التي تنتهي بالحروف ليل . وعند النقر على الزر A فتنتقل الكلمة الى النموذج هذا . البحث في الكلمات التي تبدأ بالحروف خل . البحث عن الكلمات المرادفة لكلمة شجاع . البحث عن الكلمات المرادفة لكلمة شجاع ، والتي تنتهي بالحرف ت . وعند الانتهاء من اختيار الكلمات ، وعند النقر على زر Copy to Notepad ، سيتم حفظها في ملف باسم Poem.txt في نفس مجلد البرنامج ، . المربع الاحمر: الكلمات في النموذج اعلاه يتم البحث عنها في الحقل #2 ، وإظهار نتائج الحقل #1 ، ومعاني الكلمات موجودة في الحقل #3 ، المربع الازرق: الكلمة في #4 هي عكس الكلمة في الحقل #2 ، والحقل #5 فيه معنى هذه الكلمة . بدأت بأخذ كلمات القرآن الكريم ، ثم بكسر الحماية من ملف الكلمات/القاموس في برنامج Ms Word واخذ كلماته ، فأصبح عندي حوالي 48 الف كلمة ، ولكن لم تكن الكلمات كاملة ، فأنزلت من الانترنت جميع القواميس العربية ومعانيها ، وادخلتها جميعا في البرنامج ، فوصل عدد الكلمات الى حوالي 618 الف كلمة ، عملت عدة كودات (والتي تركتها في البرنامج للذي يريد ان يستفيد منها) لتصفية الكلمات و اكواد اخرى للتعامل مع MS Word ، حيث ارسل الكلمة للوورد ، ثم آخذ المعاني منها ، وكذلك لمعرفة مقلوب الكلمة ، اذا كان لها معنى ، وإلا فلم اكتب الكلمة. ارجوا ان تستفيدوا من البرنامج ، مثل ما انا استفدت منه يوما ما ونظرا لكبر حجم البرنامج ، فهو موجود في الرابط التالي: جعفر

اعرض الملف قافية السلام عليكم ورحمة الله وبركاته برنامج عملته في 2007 ، لإختيار الكلمات من بين حوالي 618 الف كلمة ، لأعمل قافية لأبيات الشعر الواجهة: 1. اكتب الحرف/الحروف التي تريد ان تكون عليها القافية (اي ان تنتهي الكلمة بهذا الحرف/الحروف) ، 2. اكتب الحرف/الحروف التي تبدأ الكلمة بهذا ، 8. كلمات البحث في #1 و #2 تظهر هنا ، 3. عند كتابة الحروف في #1 او #2 ، فالبحث يكون عن طريق هذا الزر ، (وتستطيع الكتابة في #1 او #2 ، و رقم 4) ، 4. اكتب الكلمة التي تريدها ، وستظهر لك الكلمات المرادفه لها ، 5. للبحث للرقم 4 ، 9. كلمات البحث في #4 تظهر هنا ، 6. لحذف جميع كلمات البحث ، بالاضافة الى انه يمكن النقر مرتين على #1 او #2 او #4 لحذف الكلمة/الحرف/الحروف من الحقل ، 7. نريد ان نختار من الكلمات الموجودة في #8 ، فننقر على #7 لحفظها مؤقتا في نموذج جديد . البحث في الكلمات التي تنتهي بالحروف ليل . وعند النقر على الزر A فتنتقل الكلمة الى النموذج هذا . البحث في الكلمات التي تبدأ بالحروف خل . البحث عن الكلمات المرادفة لكلمة شجاع . البحث عن الكلمات المرادفة لكلمة شجاع ، والتي تنتهي بالحرف ت . وعند الانتهاء من اختيار الكلمات ، وعند النقر على زر Copy to Notepad ، سيتم حفظها في ملف باسم Poem.txt في نفس مجلد البرنامج ، . المربع الاحمر: الكلمات في النموذج اعلاه يتم البحث عنها في الحقل #2 ، وإظهار نتائج الحقل #1 ، ومعاني الكلمات موجودة في الحقل #3 ، المربع الازرق: الكلمة في #4 هي عكس الكلمة في الحقل #2 ، والحقل #5 فيه معنى هذه الكلمة . بدأت بأخذ كلمات القرآن الكريم ، ثم بكسر الحماية من ملف الكلمات/القاموس في برنامج Ms Word واخذ كلماته ، فأصبح عندي حوالي 48 الف كلمة ، ولكن لم تكن الكلمات كاملة ، فأنزلت من الانترنت جميع القواميس العربية ومعانيها ، وادخلتها جميعا في البرنامج ، فوصل عدد الكلمات الى حوالي 618 الف كلمة ، عملت عدة كودات (والتي تركتها في البرنامج للذي يريد ان يستفيد منها) لتصفية الكلمات و اكواد اخرى للتعامل مع MS Word ، حيث ارسل الكلمة للوورد ، ثم آخذ المعاني منها ، وكذلك لمعرفة مقلوب الكلمة ، اذا كان لها معنى ، وإلا فلم اكتب الكلمة. ارجوا ان تستفيدوا من البرنامج ، مثل ما انا استفدت منه يوما ما جعفر صاحب الملف jjafferr تمت الاضافه 01 يول, 2018 الاقسام قسم الأكسيس

اخي ابو زاهر الاهتزاز اللي تتكلم عنه هو نتيجة تغير/اختلاف اللون الى الابيض ، والكود اللي ارفقه سبق ان نظرت فيه ولم اتوصل الى نتيجه!! جعفر

همم انا استعملت حقول اخرى: . ونفس النتيجة . جعفر 940.لون_الخط.mdb.zip