-
Posts
1,047 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
8
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه husamwahab
-
-
- 2
- 1
-
تفضل التعديل
- 1
-
عليكم السلام والرحمة
تفضل هذه المحاولة
Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Do You Want To Save Data", 4, "Confirm Save") <> 6 Then DoCmd.RunCommand acCmdUndo DoCmd.CancelEvent End If End Sub
- 4
-
تفضل التعديل
-
-
بالخدمة استاذ
- 1
-
تفضل التعديل
-
forms
وليس
froms
-------------------------------
اختيار تاريخ
وليس
اختيار التاريخ
-
احسنت استاذ ابو احمد
بذلت مجهود كبير تشكر عليه
16 hours ago, AbuuAhmed said:لو نهمل المقارنة مع الاكسل الأمور تكون أسهل ولا تحتاج إلى مزيد من المعالجات والتحايل أحيانا
لا يمكن اهمال نتائج الاكسل لان صحة الكود متوقفة على مقارنة نتائج الكود والدالة الاصلية في الاكسل
نعم المقارنة تكون بتطبيق الكود بالاكسيس وليس الاكسل ومقارنة النتائج مع الدالة الاصلية في الاكسل
- 2
-
اعتذر للخطا تعديل للكود
Function vbCEILING2(ByVal Number As Variant, Significance As Double) As Double If Sgn(Number) <> Sgn(Significance) Or Sgn(Significance) = 0 Or Not IsNumeric(Number) Then Exit Function End If If (Val(Number) / Significance) > Fix(Val(Number) / Significance) Then vbCEILING2 = (Fix(Val(Number) / Significance) + 1) * Significance Else vbCEILING2 = Fix(Val(Number) / Significance) * Significance End If End Function
- 3
-
بالخدمة استاذ
جرب هذا الكود
=DMax("Val([code1])","Q_code1","[code1]<> 'null'")
- 1
-
السلام عليكم استاذ ابو احمد
موضوع جميل ومفيد تسلم ايدك
تم متابعة الاكواد وهي اكواد جميلة واحترافية لكن اعتقد يوجد مشكلة في كود CEILING
هذه محاولة ارجو ان تكون موفقة
وعذرا للاطالة
- 1
-
15 hours ago, qathi said:
ويتم الادراج مباشرة أما بعمل فانكشن مستقله يتم استداعها مباشرة من عند الضغط على زر الصنف
هذا هو عمل التعديل الاخير بالضغط على الصنف يتم ادراجه بالقائمة مع السعر والكمية =1
-
عليكم السلام والرحمة
السبب هو ان نوع الحقل نصي
وعليه فان 9 مثلا تعتبر اكبر من 1000000000
تفضل هذاالكود ارجو ان يكون طلبك
=DMax("Val([code1])","Q_code1")
- 1
-
-
وانت السالم استاذي العزيز وبالخدمة
ملاحظة : يمكن اختصار كود احتساب الفرق باليوم والشهر بالكود ادناه
If Day(Me.date2) >= Day(Me.Date1) Then Me.tdate = Day(Me.date2) - Day(Me.Date1) Me.tmonth = DateDiff("m", Me.Date1, Me.date2) Else Me.tdate = Day(Me.date2) - Day(Me.Date1) + 30 Me.tmonth = DateDiff("m", Me.Date1, Me.date2) - 1 End If
-
مبارك لكم استاذي AbuuAhmed
وبالتوفيق ان شاء الله
- 1
-
بالخدمة استاذ احمد
وحسب فهمي لطلبك اعتقد ان الكود ادناه يفي بالغرض
Me.tmonth = DateDiff("m", Me.Date1, Me.date2)
- 1
-
وهذه مشاركة مع الاستاذ ابو ماجد
- 1
-
عليكم السلام والرحمة
تفضل التعديل
المشكلة في حقل suptotal الموجود في الجدول
مصدر البيانات الحقيقي من حقل id والبيانات الظاهرة هي لحقل suptotal
يجب ان تكون البيانات لحقل suptotal
- 2
-
- 1
- 1
-
- 1
- 1
-
تفضل هذا الملف
ارجو ان يكون طلبك
ملاحظة : يتم فتح الملف ب NotePad وتغيير المسار الى المسار المطلوب
- 3
-
12 hours ago, مبرمج متقاعد said:
مداخلتي تتعلق بوجهة نظر ان اي قيمة يمكن ان تتغير مستقبلا مكانها الصحيح في الجدول في الجدول ويكون هناك نموذج يخدم هذا الجدو
كلامك سليم وعملي استاذي العزيز مبرمج متقاعد
الغرض من البرنامج هو فقط لمعرفة الدرجة والمرحلة من الراتب لان بعض الموظفين يعرف الراتب الاسمي فقط
الكود ليس له دور في برنامج الرواتب لذا لم توضع جداول للخزن
واتشرف لمداخلتك استاذ
الاخوة الكرام برجاء المساعدة في برنامج سلف للموظفين (معدل)
في قسم الأكسيس Access
قام بنشر
السلام عليكم
تفضل التعديل استاذي العزيز
تم التعديل ايضا على الجداول ارجو ان تكون التعديلات موفقة
ملاحظة : يتم اختيار قيمة السلفة وعدد الاقساط وتاريخ القسط الاول ثم توليد الاقساط
S&M_2.rar