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

mostafaelshnawy5

03 عضو مميز
  • Posts

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

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

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

  1. معذرة ع الازعاج استاذ احمد الفكرة هو اني عامل جدول اسمه تسجيل حالات الصرف وعامل نموذج النموذج ده به حقل اسمه التاريخ الذي اريده هو عند كتابة تاريخ موجود مسبقا تظهر لي رسالة ان التاريخ موجود مسبقا
  2. عدم التكرار للتاريخ في جدول تسجيل دفعات الصرف واستخدمت هذا الكود ولكن لا اعرف اين الخطا!! Private Sub تاريخ_الدفعة_BeforeUpdate(Cancel As Integer) If DCount("تاريخ الدفعة", "تسجيل حالات الصرف", "[تاريخ الدفعة]=" & Me.تاريخ_الدفعة) > 0 Then MsgBox " هذا الاسم تم تكراره سابقا" Cancel = True End If End Sub مساعدة 2.rar
  3. بارك الله فيك استاذي احمد لقد قمت بعدم التكرار بين التاريخ والفروع معاً ولكن انا اريد عدم تكرار التاريخ فقط ارجو مساعدتي استاذي ولك الشكر
  4. تمام اخي لقد تفهمتك شكرا جزيلا واذا كان لديك حل ارجو مساعدتي تسلم معالي الباشا
  5. ليس لدي مشكلة بالمفتاح الاساسي انا لا اريد الفرع مفتاح اساسي هو كده تمام ولكن الذي اريده هو عند ادخال التاريخ في النموذج وكان التاريخ موجود مسبقا تظهر رسالة التاريخ موجود سابقا واذا لا يكمل عادي وشكرا
  6. استاذي احمد شاكر جدا مجهودك الرائع بارك الله فيك ولكن المشكلة كما هي وهي عند التنقل من حقل التاريخ لا تظهر الرسالة حتي ولو الحقل مكرر وايضا من ضمن المشروع ان يكون حقل التاريخ مفتاح اساسي فانا اريد رسالة بعد التحديث تقول ان التاريخ مكرر من قبل الضغط ع حفظ شاكر مجهود جداااااا استاذي
  7. السلام عليكم اساتذتي الكرام ارجو مساعدتي لدي نموذج كتبت به الكود ده If [تاريخ الدفعة] = Me.date Then Me.date.Undo Me.Undo MsgBox "التاريخ مكرر" Else nam.SetFocus Exit Sub End If وهو لو كان التاريخ موجود مسبقا اظهر رسالة التاريخ مكرر ولكن !! الرسالة تظهر سواء كان التاريخ موجود بالجدول او لا وكان الدالة لاتعمل ولا فائدة منها مساعدة.rar
  8. الله ينور ياهندسه فعلا هو المطلوب ولكن اذا كنت عايز عند تحقيق الدالة الاولي والثانية وهو ملئ البيانات يتم الحفظ ثم فتح سجل جديد بدون بيانات ماذا افعل If IsNull(date1) Then MsgBox "من فضلك ادخل التاريخ" Else End If If IsNull(nam2) Then MsgBox "من فضلك ادخل اسم الفرع" End If DoCmd.GoToRecord , , acNewRec
  9. السلام عليم اخواني الاعزاء واحدة if في دالة (nam2)وحقل (date1) اريد دمج الحقلين حقل If IsNull(date1) Then MsgBox ("من فضلك ادخل التاريخ"), vbCritical, "حقل فارغ" date1.SetFocus End If If IsNull(nam2) Then MsgBox ("من فضلك ادخل اسم الفرع"), vbCritical, "حقل فارغ" nam2.SetFocus End If
  10. DoCmd.OpenReport "report2", acViewReport, , "date between [ادخل تاريخ البداية] and [enter enddate]" date ال هو اسم الحقل في جدول 1 اريد اضيف معه dateال اللي في جدول 2 بحيث يظهر التقرير بناءاً عن التاريخ المدخل للجدولين مش جدول واحد ارجو ان اكون وضحت ما اقصد وجزاك الله كل خير اخي
  11. شاكر جدا اهتمامك اخي تفضل هذا الملف من نموذج عرض بواسطة تاريخين ستجد زر اسمع عرض التقرير report2 اريد عند الضغط عليه يفتح ليا التقرير بواسطة التاريخ المدخل حيث ان التقرير به جدولين وكل جدول له حق اسمه التاريخ قاعدة.rar
  12. الكود المستخدم هو Docmd.openreport "report" ,acviewreport , , "date between[ادخل بداية التاريخ] and [ادخل تاريخ النهايه]" dateال هو اسم الحقل ولكن انا عامل تقرير لجدولين وعايز اضيف حقل تاني مع حقل date ال
  13. السلام عليكم ورحمه الله وبركاته لو سمحت محتاج كود لعرض تقرير بين تاريخين يعني عندما اضغط عليه يقول لي ادخل تاريخ البدايه ثم تاريخ النهايه بناء علي حقل او حقلين موجود في الجدول
×
×
  • اضف...

Important Information