اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابو ياسين المشولي

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1755

  • تاريخ الانضمام

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

  • Days Won

    24

 نوع المحتوي 

كل منشورات العضو ابو ياسين المشولي

  1. ابو ياسين المشولي
    بارك الله فيك اخي انا قلت لم افهم السوال وارسلت لك كود يعكيك من بدايه الشهر الى اخر الشهر كما تستطيع ان تجعله من بدايه السنه تحياتي لك
  2. ابو ياسين المشولي
    اخي الكريم انت ارفقت الصور ولم ترفق البرنامج
  3. ابو ياسين المشولي
    العفو اخي نحن في الخدمة بقدر مانستطيع
  4. ابو ياسين المشولي
    لو كنت فهمت سوالك كان طلبك موجود عندي من الشهر ومن السنه كما يوقال فهم السوال نصف الاجابة هذا يعطيك من اول الشهر الى اخر الشهر Me.txtStartDate = DateSerial(Year(txtEndDate), DatePart("m", txtEndDate), 1) فقط يجب عليك ان تجعل القيمه الافتراضيه date() في الحقلين
  5. ابو ياسين المشولي
    راجع هذا
  6. ابو ياسين المشولي
    نعم اخي ممكن يكون بهذا الشكل مع مراه تغير المسميات DoCmd.SetWarnings False DoCmd.RunSQL "insert INTO newentryhead (entryno,entype,endate,endetail) VALUES ([forms][newentryhead]![newentrydetail نموذج فرعي]![entryno],[forms][newentryhead]![newentrydetail نموذج فرعي]![entype,[forms][newentryhead]![newentrydetail نموذج فرعي]![endate,endetail])" DoCmd.SetWarnings True
  7. ابو ياسين المشولي
    حاولت اضيف هذا ولكن ماعرفت فين الخطاء rst.FindFirst "[pre]='" & list0.Column(1) & "' And [nom]= '" & list0.Column(0) & "' And [Noct] = '" & list0.Column(2) & "'"
  8. ابو ياسين المشولي
    بالتوفيق اخي بارك الله فيك
  9. ابو ياسين المشولي
    DoCmd.OpenForm "اضافة_سند_صرف" Forms!اضافة_سند_صرف![الرقم الوظيفي].Value = Nz(DMax("[رقم سند القبض]", "اضافة سند قبض") + 1, 1) او بعد التحديث عند ادخال التاريخ Me.[الرقم الوظيفي].Value = Nz(DMax("[رقم سند القبض]", "اضافة سند قبض") + 1, 1)
  10. ابو ياسين المشولي
    ممكن مثال شوف يمكن تعمل الشرط في مصدر التقرير
  11. ابو ياسين المشولي
    Or Not IsNull(T2) جرب هذا
  12. ابو ياسين المشولي
    جرب هذا Dim i, x As Integer x = Me.tr i = Me.T2 If i > x And Me.types = "سند صرف" or Me.T2 <>""Then MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ") Me.Undo Else
  13. ابو ياسين المشولي
    StrReName = "Rpt_1" DoCmd.OpenReport StrReName, acViewPreview DoCmd.OutputTo acOutputReport, StrReName, acFormatPDF, StrMyPath & StrOutpdf, False جرب هذا
  14. ابو ياسين المشولي
    اتفضل Dim stDocName As String stDocName = "اسم التقرير " DoCmd.OpenReport stDocName, acPreview DoCmd.Close acForm, "اسم النموذج", acSaveYes
  15. ابو ياسين المشولي
    جرب هذا Dim i, x As Integer x = Me.tr i = Me.T2 If i > x And Me.types = "سند صرف" And i <>""Then MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ") Me.Undo Else
  16. ابو ياسين المشولي
    شوف هذا برنامج خاص للعقار من تصميم احد الاخوة لعلك تستفيد منه برنامج العطاء للعقارات.rar وهناء موضوع يتكلم عن القار وهناء كمان
  17. ابو ياسين المشولي
    بارك الله فيك اخي وان شاء الله تجد من اهل الخبرة من يساعدك وهذا المنتدى من كان لديه علم فتاكد انه لن يبخل عليك
  18. ابو ياسين المشولي
    اخي الكريم كله حسب تصميمك للبرنامج وللاستعلامات لا غنا عنها فهي تعطيك كل ماتريد بالجمع بجلب البينات بالتحديث والى اخر
  19. ابو ياسين المشولي
    انا الان داخل بالجوال ولا اعلم كيف تتم التصفير
  20. ابو ياسين المشولي
    اتفضل ان شاء الله ميه في المية Dim i, x As Integer x = Me.tr i = Me.T2 If i > x And Me.types = "سند صرف" Then MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ") Me.Undo Else
  21. ابو ياسين المشولي
    الان فهمتك بس للاسف لست خبرة الى هذة الدرجه لان اكسل يعتمد على خليا c1+c2 وهكذا ومن قال لا اعلم فقد افتى
  22. ابو ياسين المشولي
    الله يهدينا ويهديك قول امين انا عكست المسميات وانت لم تراجعني بارك الله فيك شوفها الان واعطيني خبر Dim x As Boolean x = Me.tr If Me.T2 > x And Me.types = "سند صرف" Then MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ") Me.Undo Else بدل trعملت t2 المعذرة لم ترد عليا هل هو المطلوب
  23. ابو ياسين المشولي
    وهذ ماتم بالفعل
  24. ابو ياسين المشولي
    طيب اخي هي كذا تمام الرصيد عندك 9000 وفي الخانه 8000 هويقبل بدون رسالة ممكن توضح ايش اللي تريده انت لو عملت الرصيد 7000 والصرف 8000 لا يقبل وهذا انا ما اشوفه حسب الشرط
  25. ابو ياسين المشولي
    حسب فهمي عملت لك العلاقات ممكن الاخوة لهم طريقه اخرى والله اعلم لكن شوف انت وانت بتفهم هل هو صح ام لا 4ffd.rar
×
×
  • اضف...

Important Information

  I accept