jjafferr

هلا والله بأخوي كاسر 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

وعليكم السلام هو كما تفضلت وقبل ان اعرض جوابي ، في انتظار جوابك جعفر

وعليكم السلام اذا كان حقل العمر Age دائما هكذا: 2 سنه 30 سنه فنستطيع استعمال: Y = val([Age]) او Y = val(replace([Age],"سنه","")) واذا عندك 5 سنوات 30 سنه فتستطيع استعمال: Y = val([Age]) او Y = val(replace([Age],"سنه","")) Y = val(replace([Age],"سنوات","")) او ندمج السطرين اعلاه في سطر واحد (ولكن لأننا نستخدم كلمات عربيه ، فللأسف لا تستطيع ان ترى الامر بصوره صحيحة) Y = Val(Replace(Replace([age],"سنه",""),"سنوات","")) . جعفر

السلام عليكم انا كنت متابع الموضوع بصمت ، شكرا اخوي شفان حيالله اخوي السيد جمال شو المشكلة؟ رجاء قراءة مناقشات الموضوع في الرابط اللي اعطاك اخوي شفان ، ثم اخبارنا الخطوات التي اتخذتها ، والمشكلة التي صادفتك جعفر

وعليكم السلام القيت نظرة على النماذج الفرعية ، والفرز فيخا صحيح برقم الصنف!! ولأنك لم تخبرنا وين المشكلة ، فلازم اقول الظاهر قصدك: لما تقوم بعمل ادراج مواد جديدة ، فالمواد تكون بالتسلسل الذي تقوم بإدخالها ، واذا اردت بعد كل ادراج ، ان يكون الفرز بالتسلسل ، فيجب عليك بعد ادراج كل مادة ، ان تعمل Requery او Refresh للنموذج الفرعي ، هكذا: Forms!frmSales!SubSales.Form.requery جعفر

وعليكم السلام وانا قلت لك هذه هي المعادلة ولما نريد إضافة سنه على تاريخ الترقية ، ناقصا يوم dateadd("yyyy",1,dateadd("d",-1,[تاريخ الترقية])) . وانا قلت لك: وين اخلي هذه المعادلة؟ والجواب: في نفس المكان اللي تُدخل البيانات يدويا ، ويمكنك وضعه على حدث زر مثلا تفضل: نفس الكود اعلاه ، ولكن على حدث زر Private Sub cmd_To_Click() Me.الى = DateAdd("yyyy", 1, DateAdd("d", -1, [تاريخ الترقية])) End Sub . وهذا هو الزر جعفر 935.الترقيات.accdb.zip