Hawiii

مثال الحل سيكمل 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

مع أني لي دارية بدوال التاريخ للنظام ولكنها لم تخطر على بالي ، استخدامك للدالة DateDiff مكافئ للدالة التي نصحت بها ولكن أدخلت عليها نفس التعديل للدالة الأولى لتصبح كالتلي: Function WeekDiff(ByVal Date1 As Date, _ ByVal Date2 As Date, _ WkDay As VbDayOfWeek) As Long If Date1 <= Date2 Then Date1 = Date1 - 1 Else Date2 = Date2 - 1 End If WeekDiff = Abs(DateDiff("ww", Date1, Date2, WkDay)) End Function

ارفع لي ملفك مرة أخرى بإصدار 2007 أو أقل.

سبحان الله ، هذا المنتدى يحتاج إلى محكمين من خارجه حتى لا يضيع الطلبة والمبتدئون. هذا مثال للدالة التي نصحت بها ودالة الدكتور ، أرجو لصقه ثم تشغيل الإجاراءين لمعرفة الفرق بين النتائج ووقت التنفيذ. كود في قمة الإتقان لم أرى شبيها له قبله ولن يأتي بعده ، واللي يحب يعترض يقابلني سنة 2500 ميلادي. Function CountWkDay(ByVal Date1 As Long, _ ByVal Date2 As Long, _ WkDay As Byte) As Variant If Date1 <= Date2 Then Date1 = Date1 - 1 Else Date2 = Date2 - 1 End If Date1 = Fix((Date1 + (7 - WkDay)) / 7) Date2 = Fix((Date2 + (7 - WkDay)) / 7) CountWkDay = Abs(Date2 - Date1) End Function Function WkDayCount(VarDate As Date, enddate As Date) As Long 'دالة د. كاف يار Dim SFriday As Long Do While VarDate < enddate VarDate = DateAdd("D", 1, VarDate) If Weekday(VarDate, 2) = vbFriday Then SFriday = SFriday + 1 End If Loop WkDayCount = SFriday End Function Sub Test1() Dim Date1 As Date Dim Date2 As Date Date1 = DateSerial(2021, 7, 23) Date2 = DateSerial(2021, 7, 30) Debug.Print CountWkDay(Date1, Date2, vbFriday) Debug.Print WkDayCount(Date1, Date2) End Sub Sub Test2() Dim Date1 As Date Dim Date2 As Date Dim Start As Single Date1 = DateSerial(2021, 7, 23) Date2 = DateSerial(9000, 7, 25) Start = Timer Debug.Print CountWkDay(Date1, Date2, vbFriday), Timer - Start Start = Timer Debug.Print WkDayCount(Date1, Date2), Timer - Start End Sub

لصق الدالة من الموضوع الأصلي: Function CountWkDay(ByVal Date1 As Long, _ ByVal Date2 As Long, _ WkDay As Byte) As Variant If Date1 <= Date2 Then Date1 = Date1 - 1 Else Date2 = Date2 - 1 End If Date1 = Fix((Date1 + (7 - WkDay)) / 7) Date2 = Fix((Date2 + (7 - WkDay)) / 7) CountWkDay = Abs(Date2 - Date1) End Function

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

جمع أيام الحمعة والسبت بين تاريخين