كل الانشطه

السلام عليكم و رحمة الله و بركاته شكرا علو مرورك و تعليقك المشكلة هي في بعض الاحيان لما ادخل معلومات في الخانات و الاحظ اني ارتكبت خطا فاغلب الاحيان اغلق البرنامج و لما افتحه من جديد اجد ان رقم هته الصفحة قد اختفى و اليا ينتقل الى الرقم الموالي لهذا تجد بعض ارقام الصفحات محذوف. فكيف الحل؟؟

🙂👌 الأوفيس :

مشاركة مكررة ... وجب الحذف فنفس المشاركة موجودة هنا :

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بكل خير لدي درس في أحدى المواد وارغب في عمل عجلة حظ تكون فيها مسميات الدروس أو مثلاً مشاركات حل التمارين للطلاب ، تكون في الشريحة الأولى تعريف للمادة والشريحة الثانية عجلة الحظ والشرائح الباقية شريحة فيها سؤال والتي بعدها حل من ثلاث خيارات تكون عند النقر عليها تظهر الإجابة الصحيحة وهكذا لباقي الشرائح ، احتاج إلى 7 أسئلة يعني المجموع : 16 شريحة [ المقدمة وعجلة الحظ وشرائح الأسئلة ] [ أعتذر إذا لم يكن طلبي واضح أو بلهجة لا تفهم ]

وعليكم السلام ورحمة الله وبركاته .. 🙂 حسب الظاهر أنه توجد لديك سجلات محذوفة في المنتصف وهذا سبب اختلاف الأرقام .. والعدد الذي يظهر في الأسفل هو رقم ترتيب السجل بين السجلات .. وليس له علاقة برقم السجل في حقل الترقيم التلقائي أو حتى الترقيم اليدوي .. ولو أردت أن تجعلهما متساويين .. ممكن تستخدم هذي الدالة اللي تعطيك أيضا ترتيب السجل بين السجلات حتى لو تم فلترة السجلات على شروط محددة .. *كود RowNum لعمل ترقيم متسلسل للسجلات في النموذج المستمر أو المفرد في حقل غير منظم* *شرح الكود:* يوضع في موديول منفصل .. ثم في حقل المسلسل في النموذج ويكون حقل غير منظم يكتب في مصدر بياناته هكذ : =RowNum([Form]) *الكود:* Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Form]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function *طريقة الاستدعاء (الاستخدام):* =RowNum([Form]) تكتب نصا كما هي *مرجع:* #https://www.officena.net/ib/topic/117111-%D9%85%D8%B3%D9%84%D8%B3%D9%84-%D9%84%D9%84%D8%B5%D9%86%D9%81-%D9%81%D9%8A-%D8%A7%D9%84%D9%86%D9%85%D9%88%D8%B0%D8%AC/#comment-705668 *مكتبة الأكواد*

للأسف ، وبشكل واااااضح وملموس .

والله ملاحظ هذا الشيء فالمنتدى أصبح شبه مهجور

وعليكم السلام ورحمة الله وبركاته .. أعتقد كان لك موضوع مشابه لهذه المشكلة أخي حافظ فيما سبق ، في هذا الموضوع :- فلا أعلم فعلاً أن كانت نفس المشكلة المتعلقة باستعمال حقل الترقيم التلقائي أم لا .. على العموم ارفق ملفك لرؤية معطيات السؤال .

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

أثق بأنك ستحصد ثمار النجاح من خلال دعائهم لك على هذه الفكرة الذهبية 😇

أخي منتصر ، فعلاً قد يؤدي إلى تعطيل قاعدة البيانات وتلفها ، إن كان التعديل غير مدروس بعناية وتركيز .. فعلى سبيل المثال لو تم تغيير قيمة داخل جداول النظام فقد يحدث خلل في القاعدة وعدم عملها ، فما بالك بقلب آكسيس نفسه 😇 . وهذا ما سأعتمده بنشره قريباً إن شاء الله ، ولكن كما ترى فردود التفاعل بالتجارب والإفادة غير مشجعة على الإطلاق 😅 . آكسيس قوي بما يكفي فعلاً قولاً واحداً في تأمين نفسه - تجاهل عبثي به - فتجاربي كانت من باب الفضول وليس له أي هدف شخصي ، إلا من باب التعلم . ولهذا لم ولن أطلق أي أداة تساعد على كسر هذه الثقة التي لدى 95% من مصممي قواعد البيانات ومطوري البرامج . عن نفسي وأنا ما زلت أتعلم كانت محاولاتي هي نقل آكسيس إلى بُعد أبعد بكثير من كونه حاوية بيانات رهيبة . أحترم جميع الآراء ، وأعتذر من الجميع عن أسلوبي وطريقتي في العمل سابقاً 🥰 .

لا تعرف مدى سعادتي بكلامك هذا فإذا كنت ستستخدمها وأنت ذلك الأستاذ الكبير فإن شاء الله يجد بقية الأعضاء فيها الفائدة ويستخدمونها في أعمالهم ألف شكر لك

ولكن أليس في هذا الأمر بعض الخطورة فقد يؤدي إلى تعطيل النظام وأنا أعتبر أن هذا هو أفضل حل يقضي على المشكلة تماماً وهو حل لم أجد أن أحد قد توصل إليه قبلك ياخي العزيز إذا كنت قد إستطعت إختراق الكود المصدري للأوفيس فهذا لايعني أن الجميع قادر على ذلك فجميعنا نعلم أن أكبر عيوب الأكسس هو الأمان (وهذا لايعني أنه لا يمكن تأمينه بمستوى أمان يستحيل على الغالبية العظمى من المستخدمين تجاوزه) ولكن هذا العيب يعتبر ثمن بسيط مقابل الخدمة التي يقدمها أكسس خصوصاً لنوعين من الأشخاص - الراغبين في تعلم تصميم وبرمجة أنظمة قواعد البيانات فطريقة تصميم قاعدة بيانات في أكسس هي نفسها لجميع قواعد البيانات الأخرى بالإضافة لتعلم التفكير المنطقي والخوارزميات لتصميم النماذج والتقارير - أصحاب المشاريع الصغيرة والمتوسطة في الحصول على أنظمة آلية تساعد في تنظم أعمالهم بدون تحمل أي تكاليف ضخمة للعتاد والدعم الفني

تبارك الله ،، فكرة جميلة جداً ، وأكثر ما أعجبني بها هي حركة الماوس وتبديل الحرف جزاك الله عنا كل الخير على هذه الفكرة الجميلة .. وقد اقوم باستعمالها بدلاً من فكرتي السابقة الغبية في الفيديو التالي للتوضيح 😅

بارك الله فيك و جعله في ميزان حسناتك

بسيطة أخي الكريم .. إذا أردت الإعتماد على المعادلة السابقة في الخلية لكل اسم ، فيمكن استخدام المعادلة التالية في الخلية N9 كمثال ، ونفس الأمر تقوم بسحبها لأسفل :- =TRIM(MID(TRIM(Q9), LEN(O9) + 1, LEN(Q9))) أما إذا كنت تريد معادلة مستقلة ولا تعتمد على المعادلة الأولى لاستخلاص اللقب ( كعدم وجودها أساساً ) ، استخدم المعادلة التالية كمثال :- =TRIM(MID(TRIM(Q9), FIND("^", SUBSTITUTE(TRIM(Q9)&" ", " ", "^", IF(OR(LEFT(TRIM(Q9), 3)="بن ", LEFT(TRIM(Q9), 4)="أبو ", LEFT(TRIM(Q9), 4)="ابو "), 2, 1))) + 1, LEN(Q9))) ملفك بالمحاولتين :- فصل.xlsx

والله هذا المراد الله يبارك فيك ملاحظة :لو تتكرم و تضيف استخراج الاسم

تمام ، إذا جرب المعادلة التالية في الخلية O9 على سبيل المثال ، ثم اسحبها من زاويتها لأسفل ليتم تطبيقها على الخلايا كاملة التي تريدها .. =LEFT(TRIM(Q9), FIND("^", SUBSTITUTE(TRIM(Q9)&" ", " ", "^", IF(OR(LEFT(TRIM(Q9), 3)="بن ", LEFT(TRIM(Q9), 4)="أبو ", LEFT(TRIM(Q9), 4)="ابو "), 2, 1))) - 1) ملفك :- فصل.xlsx

أبو معاذ=اللقب

وعليكم السلام ورحمة الله وبركاته .. طلبك تشوبه بعض الملاحظات .. ففي ملفك المرفق ، وتحديداً الإسم الثالث ، هل اللقب هنا "أبو معاذ" أم "الأزهري" هنا أنت وضعت الإحتمالات المنطقية و الغير منطقية عند التعامل مع الإسماء وفصلها .. وكما أشار عليك أي الأستاذ @أبوعيد في موضوعك الأول ( وهذا الموضوع مكرر = ونرجو دمجه من المشرفين ) . لذا نصيحتي لك هي إما ضبط نمط أو نمطين محددين من الأسماء الكاملة التي تحتاج فصلها ( اللقب ) .. وهنا سيكون العمل أسهل .

كيف افصل اللقب عن الاسم بطريقة كود برمجي و التعامل مع اللقب المركب فصل.xlsx

ايف الملف

وعليكم السلام ورحمة الله وبركاته أنصح باستخدام البرنامج العالمي لعمل الجداول المدرسية aSc Timetable وللاسف لا استطيع تحميل البرنامج هنا لأن حجمه أكبر من المسموح به ولكن يمكن إرساله عبر البريد الالكتروني , أو واتساب مع تحياتي

وعليكم السلام ورحمة الله وبركاته واجهت هذه المشكلة م قبل وكنت احتاجها لطباعة شهادات الطلاب آخر العام لأنه يوجد في الشهادة خانة : الاسم الرباعي , وخانة اللقب (المجموع اسم خماسي ) حاولت عمل عدة حلول وبعضها تحتاج إلى عمودين : عمود للاسم الرباعي وعمود للقب ولم أرتضي هذا الحل حتى توصلت في النهاية إلى حل ولا زلت أستخدمه إلى الآن منذ 6 سنوات وهو يعمل معي بدون مشاكل وبدون أعمدة مساعدة اكتب الاسم في خلية واحدة فقط . الحل من قسمين : القسم الاول : هو فصل اللقب بمسافتين وكتابة بقية الاسماء (سواء كانت ثلاثية أو رباعية أو غيره ) بمسافة واحدة بين الأسماء مثال : أحمد سعيد أحمد الأحمدي (خطأ) أحمد سعيد أحمد الأحمدي (صحيح) تلاحظ مسافتين قبل كلمة الاحمدي وبقية الاسماء بينها مسافة واحدة فقط وبعدها عملت تنسيق شرطي على كامل عمود الاسم , فأي اسم لا يحوي على مسافتين يلون الخلية بالأحمر وأذا كان الاسم سليما تكون الخلية بلون ابيض عادي نحرص على كتابة الاسم الرباعي للطالب ثم اللقب يكون الخامس أحيانا يأتي لنا طالب لا نعرف اسمه الخماسي فأضطر اكتبه كله بمسافة واحدة فقط حتى يتم تلوين الخلية بلون أحمر حتى يلفت نظري كلما فتحت الملف , وأن هذا الطالب فيه مشكلة بالتالي يسهل الرجوع إلى الأسماء الناقصة في المدرسة كلها القسم الثاني : أحيانا عند الكتابة السريعة و ادخال أسماء الطلاب أضيف بالخطأ في بداية أو نهاية الاسم مسافة مما يسبب ظهور الاسم في الشهادة بشكل ناقص , فأحرص على الغاء المسافات في البداية وفي النهاية عملت تنسيق شرطي يلون لي كل الأسماء التي فيها مسافة في البداية أو النهاية بلون أخضر ثم أقوم بالدخول للاسم ومسح المسافة (في البداية أو النهاية وترجع الخلية بلونها الأبيض تقبل تحياتي

وهذا ردي على الفكرة التي تم تنفيذها .. ولكنها كما أسلفت في ردي السابق أنها غير محل نقاش ( مع التحفظ ) 😥 وقريباً سأعلن اعتزالي التعامل مع آكسيس بشكل كامل 😥