أبو هادي

السلام عليكم لا يتطلب إلا وضع أداة "مجموعة الخيارات" Option Group فقط ويمكن وضع الحد الأدنى والحد الأعلى في خاصية tag كالتالي : 1,100 أو تمريرها أثناء طلب الإجراء . تحياتي . تم حذف الملف المرفق لإرفاق نسخة أحدث بالأسفل .

السلام عليكم شكرا لكم جميعا وبارك الله فيكم يفضل تبديل هذين السطرين من كود الدالة : If InDate = -657435 Then yy = 99 Else yy = Year(InDate) yy = yy - 1 إلى هذا السطر : yy = Year(InDate) - 1 تحياتي .

السلام عليكم نقاط : - متوسط أيام السنة اليوليانية هي 365.25 وهي حصيلة مجموع أيام أربع سنوات مقسومة على 4 - متوسط أيام السنة الجريجورية هي 365.2425 وهي حصيلة مجموع أيام 400 سنة مقسومة على 400 علما أن التقويم المعتمد الآن دوليا وفي أجهزة الكمبيوتر هو الجريجوري . المشكلة : لا يمكن الحصول على عدد السنوات بشكل دقيق باستخدام المتوسطات ولكن يمكن استخدام متوسط السنة اليوليانية للمدد البسيطة ومتوسط السنة الجريجورية للمدد الطويلة ، ومع الإثنين لن يتم الحصول على نتائج دقيقة . الحل : لقد قمت بعمل دالة تقوم على فصل أيام السنوات البسيطة من أيام السنوات الكبيسة ومن ثم تقسيم الأيام البسيطة على مدة السنة البسيطة 365 وتقسيم الأيام الكبيسة على 366 يوم . آمل أن تحوز هذه الدالة وفكرتها على رضاكم وأن ينتفع بها وخصوصا في حساب إجازات الموظفين بحيث تضرب نتيجة الدالة في مدة الإجازة السنوية . تحياتي . GetYears.zip

السلام عليكم تم التعديل على المثال للتمكين من أضافة فترات محصورة بين تاريخين تحياتي . AddNewPeriod.zip

السلام عليكم بافتراض أن الراتب في خلية A2 والخصومات في B2 في حالة أن الـ 4000 تلحق الشريحة الثانية 2% : =IF(A2<4000;A2*0.01;A2*0.02) وفي حالة أن الـ 4000 تلحق الشريحة الأولى 1% : =IF(A2<=4000;A2*0.01;A2*0.02) عند ترحيل هذه المشاركة لم أنتبه أن الأخت الحائرة قد ردت قبلي .. المعذرة . وعند رد الحائرة شككت إذا كان السؤال يخص الأكسل أو الأكسس . تحياتي .

السلام عليكم المشكلة تكمن في عدم الإحتفاظ بالمسافات التي تلحق النص فعند تعيين عبارة SQL لمصدر السجلات فإن صندوق find_name يفقد التركيز وعند إعادة التركيز عليه يكون قد فقد المسافات اللاحقة للنص ، وما فعلته أنا قمت بحفظ النص قبل فقد التركيز في خاصية tag ثم قرأته من جديد بعد إعادة التركيز . كما يمكن كذلك حفظ النص بمتغير عام . تحياتي .

السلام عليكم التقطيع عن طريق الإستعلام تحياتي . NameSplit_97.zip

السلام عليكم لا تحزن يا أبا مؤنس :( مرفق المثال بعد التعديل تحياتي . Phone_Book.zip

السلام عليكم مرفق نسخة 97 ولكن يحتمل وجود مشكلة في هذا السطر : Me.tel2 = Trim(Mid(Me.[اسم_المستفيد], Dash + 1)) ويفضل استبداله بالسطر التالي : Me.tel2 = Trim(Mid(Me.[اسم_المستفيد], Dash + 1, Len(Me.[اسم_المستفيد]))) تحياتي . NameSplit_97.zip

السلام عليكم مرفق المثال . تحياتي . NameSplit.zip

السلام عليكم هل يمكنك كتابة مثال لمحتوى سجل واحد على الأقل ؟ تحياتي .

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

السلام عليكم حياك الله أخي ابن مسقط المثال ممتاز جدا ولي ملاحظات بسيطة كالتالي : لو حولت رصيد الإجازات إلى عدد كسري بدل عدد صحيح للحصول على دقة أكبر وليكن التعديل بالكود كالتالي : Dim days As Double وكذلك حقل رصيد الإجازات في جدول الموظف يبدل إلى Double أما في معادلة حساب أيام الإجازة فيفضل إضافة يوم واحد على المدة كالتالي : days = ayam * ((y1 - y2) + (m1 - m2) / 12 + (d1 - d2 + 1) / 365) تحياتي .

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

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

السلام عليكم يوجد بالمنتدى مثال لحساب المدد (الفترات) وهو يحسب المدة كسنوات وشهور وأيام . فيمكن أن نستفيد من هذه النتيجة ونوظفها في المعادلة التالية : Vacation = (Years + (Months/12) + (Days/365)) * 30 أو إذا لا تريد الدقة 100% فيمكن استخدام المعادلة التالية : Vacation = ((DateTo - DateFrom + 1)/365)) * 30 ويمكن استخدام متوسط أيام للسنة في حالة المدد الطويلة بـ 365.25 يوم . تحياتي .

السلام عليكم جرب المثال المرفق واخبرنا بالنتائج تحياتي . AddNewWeeks.zip

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

السلام عليكم سوف أبحث لكم عن ملف يخص الويندوز وهو موجود بالتأكيد وحين أعثر عليه سوف أقوم بتوظيفه للعمل مع أكسس . تحياتي .

السلام عليكم أخي الوارث ، مشكلة الـ Reference ليست عيبا بالكود ، ربما لا يحمل هذا المتغير القيم الصحيحة ، تأكد من أنه من نوع Boolean . أما الكود بشكل عام بعد تعديلك الأخير فهو صحيح . تحياتي .

السلام عليكم أهلا وسهلا بك أخي الوارث . جرب هذا الكود بعد التعديل : Private Sub AccNo_Click() If Reference = True Then If vbbo = MsgBox("This is Not a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") Then Exit Sub Else Me.Bor_date = Date Me.due_date = DateAdd("d", 2, (Date)) End If Else If vbNo = MsgBox("This is a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") Then Exit Sub Else Me.Bor_date = Date Me.due_date = DateAdd("d", 21, (Date)) End If End If End Sub تحياتي .

السلام عليكم وصلة لها علاقة بالموضوع : ---- تحياتي . ملاحظة : تم دمج الموضوعان :( مع تحياتي و شكري - محمد طاهر

السلام عليكم ليكن المجموع كالتالي : CDbl(النقاط1) + CDbl(النقاط2) تحياتي .

السلام عليكم هل أردت أن تقول "لما أردت فتح الملف أو القاعدة" ؟ عموما بداية المسار ونهايتة خاطئان : أولا بدايته يجب أن تكون d:\ ونهايته يجب أن تكون mdb وليس mbd تحياتي .

السلام عليكم شكرا للأخ Smiley . لقد نجح معي علما أني استخدمت اكسل 2003 تحياتي .