Hawiii

كما طلبت مع تعديلات في تحويل صناديق الدرجة القصوى من تسمية إلى نص ووضع تحقق من القيم المدخلة لدرجات الطالب بناء على الدرجة القصوى. دالة_جمع.accdb

لقد عملت نسخة من النموذج وعدلت عليه وتركت الأصل كما هو للمقارنة. أبجد_هوز.mdb

حاول اختيار هذه القيمة لهذه الخاصية كما هو في الصورة ، فستتخلص من التداخل في تحرير نفس السجل لأكثر من مستخدم.

هذا حل سيناسبك ويرضيك Data_Hawiii_01.accdb

هناك حل آخر ولكنه عند النقر المزدوج ستلحظ رمشة خفيقة - أولا قلل من عرض النموذج ، فعرض النموذج مبالغ فيه. - ثانيا فعل حدث Form_Resize ليكون بالشكل التالي: Private Sub Form_Resize() DoCmd.Maximize End Sub

للعلم فقط بما أنك حولت نوع الحقل إلى رقمي فلا داعي لدالة Int لا تستخدم أسماء عربية للجداول ولا للحقول ، وإذا كانت إنجليزيتك ضعيفة فاستخدم العربية بحروف انجليزية مثل السيارات تكتبها Sayyarat وللإحتراز ضع كل الأسماء العربية للجداول والحقول بين الأقواس المربعة [ ]

مثال الحل سيكمل 24 ساعة وكأنه غطي بطاقية إخفاء ، الله المستعان.

كل ما سيأتي لاحقا هو أسهل مما تم 🙂 ، وحساب عرض الصندوق لنص أصعب بكثير لصندوق نوعه رقمي. عموما أنا لم أعمل تفاضل بين التمدد الأفقي/العرضي والعمودي/الإرتفاع وكذلك لم أنصح بأي منهما ، أنا عملت بموجب طلب السائل. لاحظ كذلك السائل لم يرفع مثال لطلبه فلا علم لي بعدد الحقول التي ستظهر في تقريره ولكن نوهت في مشاركتي السابقة لموضوع تحدد سقف لعرض الصندوق. عموما الموضوع لم ينتهي بعد ، وبانتظار حلول أخرى من الأساتذه ونستطيع بعدها المقارنة والتفاضل بينها ثم ننصح بالأفضل أو بتلاقح مجموعة أفكار للخروج بحل نموذجي.

مرفق مثال ، وأعتذر لصاحب قاعدة البيانات لأنها تحتوي على أسماء حيث أنزلتها من المنتدى هنا لعمل تعديلات. الفكرة: - عمل استعلام Top 10 لطول الأسماء - استخدام نفس فكرة Accessna في استخدام الإكسل لمعرف عرض الصندوق. وأعتقد هذه أسرع تطبيق للفكرة وخصوصا أن نتائج الاستعلام إن شاء الله تغني عن المزيد من الفحص. بالتوفيق. لو أردتم تحديد أقصى عرض للصندوق سنعمل عليه لاحقا إن شاء الله. المثال مطبق على نموذج وتقرير. ResizeTextBox_01.rar

إذا مربع النص رقمي فالحل عند الأستاذ جعفر فله مساهمة قريبة ، أما إذا كان مربع النص حرفي فالعملية ستحتاج جهدا ليس بالقليل. - قد أبدأ بالحصول على الطول العددي لعدد الحروف ثم أحسب المقاس الطولي المساحي إن صح التعبير ، مع اعتقادي أنها لن تتجح مئة في المئة وذلك لأن أطوال الحروف غير متساوية مثل الأرقام فخمسين حرفا لـ "الألف" ليس كخمسين حرفا لـ "الصاد". - بعدها إن لم تكن النتيجة مرضية فسأنتقل إلى حساب المقاس الطولي لكل السجلات وهذا سيتسبب في تأخير فتح التقرير حسب عدد السجلات إن كانت ألفية أو مليونية ، أما إذا كانت السجلات بالمئات فالأمر هين. - طبعا كما قال @د.كاف يار يجب أن يكون هناك سقفا لطول الصندوق. إن استطاع أحد أن يقوم بالنيابة عني فله شكري وتقديري ، وإلا انتظرني الليلة أو الليلة القادمة إن شاء الله.

وجدت المثال في جهازي وهو للمبرمج أكسسنا Accessna بس لا أعرف من أي منتدى Accessna_ResizeTextBox_20190118.mdb

أتذكر مثال قوي لتحجيم صناديق النص أو التسمية باستخدام الإكسل بس لا أتذكر هل هو في منتدانا هنا أو منتدى الأكسس في موقع الفريق العربي ، لا أتذكر أعتقد المثال للمبرمج أبو هادي. أين ذهب موقع الفريق العربي للبرمجة؟

جربتها قبل أن أرفع مثالي ولم تنجح ، لماذا؟ ، لأنها بكل بساطة سوف تختار الحقل وسيظل السجل ثابتا لا يتبدل.

وأنا كل هالوقت اعتقد أنه زر وفي الأخير يطلع صندوق تسمية!!! شكرا يا @مسفر على كرم أخلاقك وردك على سؤالي. أخي أيو الحسن مشكلتك كانت من شقين أولهما أمر requery لا أعرف ترجمته الصحيحة ولكنه إعادة لتحميل البيانات والآخر هو استخدامك لصندوق التسمية فهو لا يستجيب عند النقر عليه باختيار السجل وقد عمل على صندوق النص وزر الأمر.

حياك الله أخي مسفر ، الكود ليس به الجديد والسؤال كيف استطعت بعد النقر على الزر أن يختار السجل .. شيء غريب .. هناك سر لابد تخبرنا به 🙂

أخي لم ترد على سؤالي ، هل جربت المثال الذي رفعته لك؟ وأنا أوصي المتابعين بتجربته وسأقبل بحكمهم.

أخي أبو الحسن ، هل جربت مثالي؟!!!!!!!!!!!!!!. الموضوع حل/انتهى ولكن يبدو أنك لا تريد الحل إلى من الدكتور. وأنا الصراحة ألوم الدكتور كذلك ، الدكتور لما وضع الكود الأخير ما الجديد فيه؟!! بل بالغكس أرجع السطر الذي نصحت بحذفه ولكنه أتي به بعد أمر الحذف وهو في الأساس لا قيمة له!!. أمركم غريب والله ، الحل بين أيديكم ولا تودوا العمل به ، وهل وقتنا رخيص لهذه الدرجة؟!

جرب الآن ، منظر الحقل مو حلو كالسابق ، ولكن هذا اللي أقدر عليه. DATA14_Hawiii_1.mdb

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

أخي أبو الحسن لا تزعل مني ، من مثالك الذي أنزلناه لم أرى فيه الكود كما اقترحته عليك أنا!! وهذا يثبت أنك تستعجل في تطبيق التعليمات/النصائح وينتج عنه أخطاء ، تحتاج تركيز أكبر وحاول هذه المرة تعد الأسطر للتتأكد أنك استخدمت الكود بحذافيره غير كذا يمكن الأكسس عندك "ملبوس"

Private Sub DELL_ROW_Click() On Error Resume Next If IsNull(Select3) Then a2.Visible = True MsgBox "íÌÈ Êãßíä ÇáÍÐÝ ", vbCritical + vbMsgBoxRight, "ÊäÈíå" Exit Sub End If If Not IsNull(Select3) Then a2.Visible = False End If If MsgBox("ÇäÊ Úáì æÔß ÍÐÝ ÓÌá ", vbYesNo, "ÑÓÇáÉ ÊÍÐíÑíÉ") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If End Sub هذا عمل عندي بشكل صحيح

أعتقد الكود لا د أن يكون هكذا ، سطر الاختيار لابد من وجوده ويتم حذف السطر الذي أوصيتك بحذفه فقط.

هذا الأمر سوف ينقلك دائما لأول سجل ، جرب أن تتخلص منه.

لا داعي لاستخدام اسم اليوم يكفي استخدام رقمه sat_Days = DCount("HoliDays", "tblHoliDays", _ "weekday(HoliDays)=7 and " & _ "HoliDays between #" & begdate & "# and #" & enddate & "#")

في حالة الحصول على نتائج الدالتين بالناقص تحدف دالة Abs