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

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

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

  • Posts

    1,752

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

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

  • Days Won

    24

 نوع المحتوي 

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

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

Important Information

  I accept