اذهب الي المحتوي
أوفيسنا

husamwahab

الخبراء
  • Posts

    1,047
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    8

كل منشورات العضو husamwahab

  1. السلام عليكم تفضل التعديل استاذي العزيز تم التعديل ايضا على الجداول ارجو ان تكون التعديلات موفقة ملاحظة : يتم اختيار قيمة السلفة وعدد الاقساط وتاريخ القسط الاول ثم توليد الاقساط S&M_2.rar
  2. السلام عليكم تفضل التعديل حسب فهمي لطلبك وبعد اذن استاذ Kanory sma v 3.rar
  3. عليكم السلام والرحمة تفضل هذه المحاولة 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. السلام عليكم تفضل هذه المحاولة ارجو ان تكون موفقة control 2032_10.rar
  5. forms وليس froms ------------------------------- اختيار تاريخ وليس اختيار التاريخ
  6. احسنت استاذ ابو احمد بذلت مجهود كبير تشكر عليه لا يمكن اهمال نتائج الاكسل لان صحة الكود متوقفة على مقارنة نتائج الكود والدالة الاصلية في الاكسل نعم المقارنة تكون بتطبيق الكود بالاكسيس وليس الاكسل ومقارنة النتائج مع الدالة الاصلية في الاكسل
  7. اعتذر للخطا تعديل للكود 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
  8. بالخدمة استاذ جرب هذا الكود =DMax("Val([code1])","Q_code1","[code1]<> 'null'")
  9. السلام عليكم استاذ ابو احمد موضوع جميل ومفيد تسلم ايدك تم متابعة الاكواد وهي اكواد جميلة واحترافية لكن اعتقد يوجد مشكلة في كود CEILING هذه محاولة ارجو ان تكون موفقة وعذرا للاطالة 4ExcelFunctions4Access_2.rar
  10. هذا هو عمل التعديل الاخير بالضغط على الصنف يتم ادراجه بالقائمة مع السعر والكمية =1
  11. عليكم السلام والرحمة السبب هو ان نوع الحقل نصي وعليه فان 9 مثلا تعتبر اكبر من 1000000000 تفضل هذاالكود ارجو ان يكون طلبك =DMax("Val([code1])","Q_code1")
  12. qathi بالخدمة استاذ وتفضل التعديل ارجو ان يكون طلبك aa_10.rar
  13. وانت السالم استاذي العزيز وبالخدمة ملاحظة : يمكن اختصار كود احتساب الفرق باليوم والشهر بالكود ادناه 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
  14. بالخدمة استاذ احمد وحسب فهمي لطلبك اعتقد ان الكود ادناه يفي بالغرض Me.tmonth = DateDiff("m", Me.Date1, Me.date2)
  15. وهذه مشاركة مع الاستاذ ابو ماجد Root_111.rar
  16. عليكم السلام والرحمة تفضل التعديل المشكلة في حقل suptotal الموجود في الجدول مصدر البيانات الحقيقي من حقل id والبيانات الظاهرة هي لحقل suptotal يجب ان تكون البيانات لحقل suptotal Tes_10.rar
  17. عليكم السلام تفضل التعديل حسب فهمي , ارجو ان يكون طلبك GAME WORD_10.rar
  18. تفضل هذه المحاولة ارجو ان تكون طلبك ملاحظة : التعديل تم بتصرف لكن قد يؤدي للمطلوب aa.rar
  19. تفضل هذا الملف ارجو ان يكون طلبك ملاحظة : يتم فتح الملف ب NotePad وتغيير المسار الى المسار المطلوب RemoteOpen.rar
  20. كلامك سليم وعملي استاذي العزيز مبرمج متقاعد الغرض من البرنامج هو فقط لمعرفة الدرجة والمرحلة من الراتب لان بعض الموظفين يعرف الراتب الاسمي فقط الكود ليس له دور في برنامج الرواتب لذا لم توضع جداول للخزن واتشرف لمداخلتك استاذ
×
×
  • اضف...

Important Information