عبد الفتاح كيرة

أظن أن مشروع vba للملف قد حذف هذا هو الملف testkera.accdb

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

السلام عليكم تظهر هذه الرسالة عند محاولة فتح محرر الأكواد لكتابة كود فما سببها وهذا فى ملف واحد بسيط وتفتح مع ملفات أخرى

الشرط يوضع قبله eval () =eval (المعامل ) وذلك فى كود التصدير

أنا على word 2007

أظن هذا يحدد أول كلمة فقط

هل هناك ميزة تحديد الكل بهذا التنسيق

لك أـستاذى فضل السبق فى هذه الوظيفة لكن أعتقد أنها تكون هكذا Public Function WorkDayCalc(StartDate, EndDate) As Integer Dim WTotalDays As Integer Dim WSaturdays As Integer Dim WFridays As Integer WorkDayCalc = 0 If IsDate(StartDate) And IsDate(EndDate) Then If EndDate <= StartDate Then WorkDayCalc = 0 Else ' عدد الأيام بين التاريخين WTotalDays = DateDiff("d", StartDate, EndDate) + 1 ' عدد الأسابيع بداية من السبت WSaturdays = DateDiff("ww", StartDate, EndDate, 7) ' عدد الأسابيع بداية من الجمعة WFridays = DateDiff("ww", StartDate, EndDate, 6) WorkDayCalc = WTotalDays - WSaturdays - WFridays End If Debug.Print WFridays & " - " & WSaturdays & " - " & WTotalDays & " - " & WorkDayCalc End If

Constant Value Explanation vbUseSystem 0 Use the NLS API setting vbSunday 1 Sunday (default) vbMonday 2 Monday vbTuesday 3 Tuesday vbWednesday 4 Wednesday vbThursday 5 Thursday vbFriday 6 Friday vbSaturday 7 Saturday

لا أقصد ذلك أنت تريد حساب عدد أيام السبت فجعلت بداية الأسبوع السبت و هو هنا =1 فلماذا عند حساب عدد أيام الجمعة استخدمت يوم الأحد و هو هنا = 7

WSaturdays = DateDiff("ww", StartDate, EndDate, 7) WFridays = DateDiff("ww", StartDate, EndDate, 1) ممكن شرح لهذين السطرين الرقم 7 هو يوم السبت والرقم 1 هو يوم الأحد

شكرا لك

أيضا السماح بالإضافة = لا

الملف مغلق بكلمة سر

أحتاج لنسخة 2007 من هذا للاطلاع وشكرا

شبه مغلق تماما

هل يمكن رفع نسخة 2007 وشكرا لك

ممكن أحد الخبراء يتفضل بإعطائنا خطوات و مكونات مثل هذه البرامج المحاسبية؟ فخبرتنا فى المحاسبة ضئيلة جدا و هناك أيضا محلات لا تبيع بفواتير مثل مكتبة مثلا فكيف تجرد الخزينة؟

ما فهمته أخ أحمد أنك تضيف الرقم العام الجديد من نفس نموذج الإضافة

تفضل تم التعديل برنامج المستودع - kera.rar

وما أدراك أنه يوجد حقل يوم السائل يقول حقل تاريخ ومداخلتك قيمة

و إياك أخى الكريم لكن هل هذا ما أردته؟

الآن يمكنك اختيار الرقم العام للموظف من مربع التحرير و السرد المرفق برنامج المستودع - kera.rar