نجوم المشاركات

بعد اذن اخي احمد معادلة واحدة تكتب في الخلية D3 و تسجب يساراً عامود واحد و نزولاُ 3 صفوف =CHOOSE(COLUMNS($A$1:A1), ROUND(MOD(OFFSET(Sheet1!$A$1,,ROWS($A$1:A1)-1),1),2)*100, INT(OFFSET(Sheet1!$A$1,,ROWS($A$1:A1)-1))) مرفق الملف تقسيم .xlsx

السلام علكم ورحمة الله وبركاتة بمناسبة العودة الميمونة لاستاذي ومعلمي القدير الاستاذجعفر @jjafferr اقدم لكم هذه الهدية المتواضعه جدا تطبيق نظام الصلاحيات على ازرار التحكم نظام صلاحيات المستخدمين يقوم بالتحكم في صلاحيات المستخدم من حيث الاضافة والتعديل والحذف لكن عند تنفيذ احد هذه الاوامر عن طريق زر تحكم فأنه يتم تنفيذه دون الرجوع او الاتصال بالوحدات النمطية الخاصة بتطبيق نظام الصلاحيات لذا رأيت عمل هذاتعديل غلى نظام صلاحيات المستخدمين الذي قام بعمله الاستاذ مهند عبادي اذا لم تخذلني الذاكرة وقام بتطويره عدد من الاساتذة نسحه بعد نسخه قمت باضافة بعض الاكواد على ازرار التحكم والتي يمكن من خلالها تطبيق نظام الصلاحيات للمستخدمين على ازرار التحكم عن طريق الاتصال بالوحدة النمطية قبل تنفيذ الامر للتأكد من وجود صلاحية للاجراء المطلوب تنفيذه مثلا اذا كان المطلوب اضافة سجل عند التركيز على زر الامر يتم الاتصال بالوحدة النمطية للتأكد هل المستخدم لديه صلاحية اضافة سجلات اذا كان نعم يتم تنفيذ الامر واذا كان لا فيتم اظهار رسالة تفيده بأنه ليست لديه صلاحية لهذا الاجراء يوجد ايضا بالامثال بعض الاكواد لتأمين و الغاء تأمين الحقول دفعة واحدة اترككم مع المثال اترككم مع المثال اسم المستخدم لمسؤول النظام : 1 الباسورد:1 اسم المستخدم: 100 الباسورد: 100 Usrse.rar

وبعد عناء طويل ، اتضح ان مشكلتك في الحقل ctlBack اللي وراء الحقول ، اللي تستعمله علشان تظليل السجل ، لما تحذفه كل شيء يرجع تمام!! هذا خلاني اتذكر اني عملت لك موضوع تظليل السطر باللون الازرق ، وما صادفتنا اي مشكلة: . جعفر

انا استعملت نفس الكود تقريبا ، ولكن في استعلام ، فشو المشكلة؟ هل النتائج عندك غير صحيحة او ايش؟

وعليكم السلام هل هذا قصدك: . جعفر 922.PROGRMS_STORY.rar

الحمدلله ان تعليمي كان مفيد جعفر

تفضل المطلوب لعله يفي الغرض تقسيم الاستاذ احمد والاستاذ سليم.xlsx

لما كان يعطيك مجموعة سجلات ، قلت تريد سجل واحد ، ولما اصبح يعطيك سجل ، عندك مشكلة فيه!! شو المطلوب

وعليكم السلام ورحمة الله وبركاتة نعم ممكن ذلك بعدة طرق بقى وضع المثال لوضع الحل المناسب ::بالتوفق:: اذا كنت ترى ان هذه المشاركة مفدة فلا تنسى التقم

وعليكم السلام اخوي حمدي انا قرأت الموضوع الذي بينك وبين الاستاذ عبدالله كاظم ، واخبرك فيه ان الكود غير نهائي ، لهذا السبب قد تكون تحصل على اخطاء!! ارفق لك برنامج حصلت عليه ، لا ادري من اين ، وبالصدفة وجدته امامي الآن ، لعل فيه ضالتك جعفر Teacher-Class --.rar

وعليكم السلام في الاستعلام بدل Like "*" & [Forms]![mainf]![مربع_تحرير_وسرد13] استعمل IIf(Len([Forms]![mainF]![serialx] & '')=0,[serialx],[Forms]![mainF]![serialx]) او استعمل اسم الحقل [مربع_تحرير_وسرد13] جعفر

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

وعليكم السلام اذا كان عدد الحروف اكثر من 255 ، فلن يسع حقل النص ، ويجب عليك الانتقال الى حقل مذكرة حيث يتسع لـ 1 جيجا بايت من المعلومات ويُظهر 65535 حرف في النموذج و التقرير ، (في احد برامجي ، لم نكن بحاجة الى حقل مذكرة ، وانما كنا بحاجة الى بيانات تسع 3 حقول نص: 255 حرف * 3 حقول = 765 حرف ، فاللي عملته هو عمل 3 حقول نص في الجدول ، وبرمجيا عند قراءة البيانات في النموذج/التقرير من الجدول ، ادمجهم في حقل نص واحد ، وعند الحفظ ، اقسم مجموع الحروف على 255 ، واحفظ في كل حقل جزئه) ، ولكن ، وبدل ان تفتح 15 نموذج او 15 حقل نص كبير ، تستطيع ان تعمل حقول صغيره من سطر واحد ، ثم عند التركيز عليها تضغط Shift + F2 والذي يفتح لك هذا الحقل عن طريق ZoomBox ، او تستطيع ان تفتح نموذج به البيانات الكاملة لهذا الحقل عند النقر المزذوج على الحقل مثلا ، هذه مجرد افكار ، ولكن الموضوع يعتمد على واقع برنامجك وتصميمك. جعفر

60 هيرتز كذلك ما فيه اشكال ، وجربته على شاشتي وما فيها اهتزاز

تسلم يا غالي

وعليكم السلام اذا كنت من جيلنا ، فالمفروض ان تذكر قول حسني البرظان في مسلسل صح النوم حين كان يقول: «إذا أردنا أن نعرف ماذا في إيطاليا، علينا أن نعرف ماذا في البرازيل» هذا سر الحصول على النتائج الصحيحة لطلبك 1. من النموذج tollab_data اخترت "دورة الاكسس" ، 2. استعلام qry_Received_Dorat ليعطينا اسماء الطلاب الذين اخذوا الدورة ، وفي المستقبل ستحتاج ان تختار الدورات بين تاريخين كذلك ، فاستعمل حقل تاريخ الدورة في الاستعلام ، 3. يمكنك استعمال استعلام qry_non1 او qry_non2 للحصول على اسماء الطلبة الذين لم يدخلوا "دورة الاكسس" ، 4. الاستعلام qry_non2 يعتبر استعلام تقليدي ، ونطلب منه جميع الطلبه في جدول tollab_data حتى وإن لم يأخذوا اي دوره (مثلا اسم الطالب j لا يوجد في جدول الدورات) ، 5. الاستعلام qry_non1 يستعمل استعلام فرعي لتصفية اسماء الطلبة (ونطلب منه جميع الطلبه في جدول tollab_data) ، وتلاحظ بأننا قلنا Not in اي غير موجودة في الاستعلام qry_Received_Dorat ، . والنتيجة: . جعفر 919.الطلاب والدورات.accdb.zip

أشكر حضرتك على هذه المعلومة

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

وضع فاصله بدلاً من فاصلة منقوطة هذا الشيء يتعلق ياعدادات الجهاز الذي تسعتمله (عندي مثلا تعمل الفاصلة و في بعض الاجهزة الفاصلة المنقوطة) , يمكن التعديل بهذه الاعدادات من Control panel انظر الصورة

أخي الفاضل ومعلمي الأستاذ /سليم حاصبيا أشكر مرورك لأنه زادني علمًا ولكن هناك تعديل بسيط كي تعمل المعادلة فقط حدث سهوًا وضع فاصله بدلاً من فاصلة منقوطة =CHOOSE(COLUMNS($A$1:A1);ROUND(MOD(OFFSET(Sheet1!$A$1;;ROWS($A$1:A1)-1);1);2)*100;INT(OFFSET(Sheet1!$A$1;;ROWS($A$1:A1)-1))) ويارب يزيدك علمًا ولا يحرمنا من إبداعاتك

وعليكم السلام اقدر اعملها بطريقتين: الاولى: عن طريق نموذج كائن نموذج فرعي (هو نموذج فرعي لا يوجد به نموذج) . حيث نعامل كل شيء في هذا الكائن كأنه نموذج فرعي ، عليه ، فأول مرة نفتح النموذج ، نضع فيه نموذج الازرار: Private Sub Form_Load() Rem===== DoCmd.Maximize Me.sfrm.SourceObject = "frm_1" End Sub . وعند النقر على زر-هيكلية المدرسة ، نفتح النموذج Form100 هكذا: Private Sub ComdIntOrg_Click() 'Call ActiveCommand Me.Parent!sfrm.SourceObject = "Form100" End Sub . يعني : بدل استعمال الكود التالي لفتح النموذج docmd.openform "Forms100" نستعمل Me.Parent!sfrm.SourceObject = "Forms100" . وبما ان هذه الطريقة غير مألوفة ، فيحتاج لك تمرين الى ان تأخذ يدك عليه المرفق فيه مثال. الطريقة الثانية: استعمل الكود التالي لفتح كل نموذج: docmd.openform "Form100" DoCmd.MoveSize 1440, 2400, 2000, 2000 والامر عبارة عن حجم النموذج ومكانه DoCmd.MoveSize(Right, Down, Width, Height) . والارقام هذه بمقياس twips c1 cm = 567 twips c1 in = 1440 twips المشكلة في هذه الطريقة هو معرفة حجم شاشة/شاشات الزبون وتحديد المكان على اساسها جعفر 915.Aziz.accdb.zip

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

تم التعديل على الملف كلما كتبت شيئاُ معيناً في الخلية B2 تظهر لك النتيجة فوراً saerch_salim.xlsm

وعليكم السلام اخي مازن الله يطول في عمرك ، هذه الواجهة فقط !! على العموم ، انا بعمل موضوع خاص للتقسيط ، وبترك لك الرابط هنا ان شاء الله جعفر

قم بتجربة التنقل بين أوراق العمل وذلك بالضغط عليها بزر الماوس الأيسر يظهر لك قائمة بأسماء الشييتات اضغط على اسم الشييت فينقلك الكود إليه 121212-1.xlsm

شوف كده بالتوفيق OptionButton.xlsm