Accessna

هذه الدالة لحساب طول السنة الهجرية الاصطلاحية كانت أم الميلادية الجريجورية بعيدا عن عن استخدام تقاويم الأكسس Function YearLen(yy As Long, Cal As VbCalendar) Dim Seq As Byte, Leap As Byte 'vbCalGreg = 0 'vbCalHijri = 1 Select Case Cal Case vbCalGreg Leap = IIf(…

المرفق حسب طلبك .. وآمل ان لا يكون في إرفاقه مخالفة :) ProgCtrl_rev5.zip

وجدت لكم شريطا يعمل في الإتجاهات الأربعة http://www.officena.com/ib/index.php?s=&am...post&p=9840

شكرا لك أخي sx1 وبارك الله فيك وشكرا لك أخي Enjoy وبارك الله فيك دالة حساب يوم العطلة (الدالة الأولى) من تصميم أبو هادي

نحتاج لعمل دالة وضمها لوحدة نمطية Function WorkDate(From As Date, Days As Integer) As Date Dim WDate As Date Dim WWDay As VbDayOfWeek WDate = From + Days WWDay = Weekday(WDate) If WWDay = vbFriday Then WDate = WDate + 2 If WWDay = vbSaturday Then WDate = WDate…

Function CountWkDay(ByVal Date1 As Long, _ ByVal Date2 As Long, _ WkDay As VbDayOfWeek) As Long Date1 = Date1 - 1 Date1 = Fix((Date1 + (7 - WkDay)) / 7) Date2 = Fix((Date2 + (7 - WkDay)) / 7) CountWkDay = Date2 - Date1 End Function Function PreviousMonthDays()…

Me.Dirty أنا لم أستعمل هذه الخاصية ولكن لي تجارب مع حدث OnDirty وهذا الحدث يشبه تماما حدث عند التغيير OnChange الذي يشعر بأي تغيير على مستوى صندوق النص ولكنه هنا يشعر به على مستوى النموذج ككل . Me.Dirty = False أعتقد أنها تكافئ الإلغاء من داخل الحدث Cancel = T…

الصراحة مثالك يحتاج إلى عمل كثير واستفسارات كثيرة على العموم أنا عملت لك استعلام على أساس أن الطلب له أكثر من فاتورة وأكثر من اخراج مواد وأكثر من تسليم وكلفة واحدة لو مانفعك قد يفتح باب التفكير لغيري لعمل الصح access2.rar

بدل تسمية الاستعلام المدورات الشهريه إلى المدورات الشهريه2 ثم أنشئ استعلام جديد بنفس الإسم القديم المدورات الشهريه وأضف عبارة SQL له كالتالي : SELECT الصيدليه.[رقم الصننف], الصيدليه.[اسم الصنف], الصيدليه.الوحده, [المدورات الشهريه2].السنه, [المدورات الشهريه2].I…

دالة لـ أبو هادي لحساب أي يوم من الأسبوع لأي مدة بين تاريخين Function CountWkDay(ByVal Date1 As Long, _ ByVal Date2 As Long, _ WkDay As VbDayOfWeek) As Long Date1 = Date1 - 1 Date1 = Fix((Date1 + (7 - WkDay)) / 7) Date2 = Fix((Date2 + (7 - WkDay)) / 7) CountWk…

شكرا ابو عبدالله على المثال الحلو والتصحيح الإملائي أما التحويل إلى الحروف الكبيرة فيمكنك ببساطة شديدة استخدام دالة UPPER في الإكسل بدلا من التعديل بالكود :) الأخ محمد ، لازالت أخطاء التعديل تتوالى ، افحص هذا التفقيط في مثالك : مائة وثلاثة وعشرون ألفا وأربعمائ…

مرفق ملف للعملات ووحدتها الصغرى تم تبديل الملف بعد ملاحظة الأخ إكسير Currencies.rar

بارك الله فيكم جميعا أرجو ملاحظة التالي : هذه نتيجة مثال أبي هادي تسعمائة وتسعة وتسعون ألف ريال وتسعمائة وتسعون ألف هللة وهذه نتيجة مثال محمد صالح تسعمائة وتسعة وتسعونَ ألفاً ريال وتسعمائة وتسعونَ ألفاً هللة فقطُ لا غيرَ الأمر يحتاج لمعالجة

التفقيط الشامل لـ أبو هادي تفقيط الدرجات لـ أبو هادي

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

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

قد ينفع هذا الكود لفحص إذا كان التركيز على حقل txt1 If Me.ActiveControl.Name = Me.txt1.Name Then MsgBox "نعم التركيز على هذا الحقل", , "صح" Else MsgBox "التركيز على حقل آخر", , "خطأ" End If

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

قد يكون هذه الكود المعدل من كود الأخت زهرة يفي بالغرض دون الحاجة لعمل حقل غير منضم ودون الحاجة للمؤقت لم أجربه ولكن أعتقد أنه سيعمله والتجربة عليكم Private Sub Form_BeforeUpdate(Cancel As Integer) If Now() > DateAdd("h", 8, [EnterTime]) Then MsgBox "لا يمكن ال…

بارك الله فيكم جميعا يبدو أن إسم البرنامج غير ثابت فهو يتبدل مع كل تحديث والأفضل إنزاله عن طريق الصفحة التي تحتويه : http://abbashmd.googlepages.com