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

محمد ابوعبد الله

الخبراء
  • Content Count

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

  • Days Won

    9

محمد ابوعبد الله last won the day on ديسمبر 11 2019

محمد ابوعبد الله had the most liked content!

السمعه بالموقع

406 Excellent

9 متابعين

عن العضو محمد ابوعبد الله

  • الإسم الفعلي
    مُحب الله ورسوله
  • تاريخ الميلاد 01 ينا, 1974

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مهندس
  • بلد الإقامة
    مصر
  • الإهتمامات
    حب الله ورسوله صلى الله عليه وسلم

اخر الزوار

1,233 زياره للملف الشخصي
  1. تفضل اخي الكريم تم تعديل كود الشهر السابق كالتالي Private Sub Command2_Click() ' الشهر السابق Dim x1, x2 As Date x1 = DateSerial(Year(Date), Month(Date) - 1, 1) x2 = DateSerial(Year(Date), Month(Date), 0) ' myCriteria = "[T1].[COURSEDATE] Between #" & x1 & "# And #" & x2 & "#" myCriteria = "[T1].[COURSEDATE] Between DateSerial(Year(Date()), Month(Date()) - 1, 1) And DateSerial(Year(Date()), Month(Date()), 0)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub FILTER.rar تحياتي
  2. السلام عليكم تفضل اخي الكريم Private Sub Command1_Click() ' الشهر الحالي Dim x1, x2 As Date x1 = DateSerial(Year(Date), Month(Date), 1) x2 = DateSerial(Year(Date), Month(Date) + 1, 0) myCriteria = "([T1].[COURSEDATE] between #" & x1 & "# and #" & x2 & "#)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub Private Sub Command2_Click() ' الشهر السابق Dim x1, x2 As Date x1 = DateSerial(Year(Date), Month(Date) - 1, 1) x2 = DateSerial(Year(Date), Month(Date), 0) myCriteria = "([T1].[COURSEDATE] between #" & x1 & "# and #" & x2 & "#)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub FILTER.rar تحياتي
  3. اخي الكريم لكي يتم البحث بشكل دقيق مع تكرار الاسم يجب ان يكون عن طريق رقم ID فهو لا يتكرر اما الاسم فيتكرر لهذا قمت بالتعديل ويبدو انك قمت بتغيير خصائص مربع تحرير وسرد لما كان عليه في البداية تحياتي
  4. مبارك علينا ترقية اخونا الحبيب @أحمد الفلاحجى مجهودكم واضح وعلامة مميزة استاذنا الفاضل @ابوخليل حزام الله حيراً اسعدتنا بهذا الخبر السعيد وارجوا من الله التوفيق للجميع تحياتي
  5. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Photo.rar تحياتي
  6. وعليكم السلام ورحمة الله وبركاته ارفق مثال اخي الكريم لفهم المطلوب ولك الشكر تحياتي
  7. تفضل اخي الكريم لاحظ مصدر combobox في النموذج والمعيار الموجود في الاستعلام Query1 w.rar تحياتي
  8. وعليكم السلام ورحمة الله وبركاته في حدث عند الخروج حدد الحقل الذي يريد الانتقال اليه Private Sub aa_Exit(Cancel As Integer) DoCmd.GoToControl "d" End Sub او الانتقال الى سجل جديد Private Sub aa_Exit(Cancel As Integer) DoCmd.GoToRecord , , acNewRec End Sub تحياتي
  9. وعليكم السلام ورحمة الله وبركاته لتغيير المسار من D:\Photo\Worker يمنكنك استخدام الكود التالي CurrentProject.Path & "\Worker" تحياتي
  10. السلام عليكم يمكن ضبط اعدادات الكمبوبكس ليحمل اكثر من قيمة كما بالصورة تحياتي
  11. السلام عليكم اولا قبل التحويل الى الى mdb او accde قم بانشاء قاعدة جديدة واستورد اليها كائنات القاعدة القديمة ( جدول ، استعلامات ، نماذج ... الخ ) ثانيا جرب الحل في الموضوع التالي تحياتي
  12. اكيد ممكن وباكثر من طريقة وهذا مثال يشابه ما طلبت لاستاذنا الفاضل @ابوخليل تحياتي
  13. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ادراج القيم للجميع(1).rar تحباتي
  14. ما هو ترقيم تلقائي = AutoNumber بالتأكيد لا موفق اخي الكريم تحياتي
×
×
  • اضف...