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

Shivan Rekany

الخبراء
  • Posts

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

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

  • Days Won

    152

كل منشورات العضو Shivan Rekany

  1. الدالة DSum بیستخدم ھکذا ' لجمع حقل بالکامل فی الجدول DSum("[Fld]";"Tbl") ' لجمع مع الشرط حقل رقمي DSum("[Fld]";"Tbl"; "[Fld1]=" & [Fld1] ) ' لجمع مع الشرط حقل نصی DSum("[Fld]";"Tbl"; "[Fld1]='" & [Fld1] & "'" ) غیر Fld باسم حقل المراد تجمیعه اي اللي فيه درجات الحكام غير Tbl باسم جدول اللي فيها البيانات اي جدول score غير Fld1 باسم الحقل اللی ترید تجمیعھ حسبھ ای رقم الحکام ام اسماء الحکام
  2. ما اضفت اي شيء في القاعدة فقد تم تكبير ارتفاع الحقول في جزء التفصيل من التقرير
  3. كان من المفروض ان ترفق القاعدة وانا قمت بالتعديل عليه لكن اتفضل تم عمل هذا واستخدمت في الاستعلام و النموذج ايضا ExampleDateAdd.rar
  4. اخي اتفضل معي مع شرح مبسط الكود هكذا DateAdd ( interval, number, date ) interval هو سنة yyyy او ربع سنە q او شهر M او يوم D او يوم من أيام الأسبوع w او اسبوع ww او ساعة H او دقيقة N او ثواني S بتکتب الحروفه بين "" number ھو الرقم اللی ترید تضاف على التاريخ مثلا 10 او اي رقم اي هو عدد الفواصل الزمنية التي ترغب في إضافتها وتقدر تكتب اسم الحقل المراد تضيفه DATE ھو تاريخ إضافة الفاصل الزمني ای ھو تاریخ تبعک تقدر تکتب التاریخ او اسم الحقل التی کتب فیھ التاریخ اليك هذه الامثلة على ذلك DateAdd ("yyyy", 3, #22/11/2003#) النتیجە: '22/11/2006' DateAdd ("q", 2, #22/11/2003#) النتیجە: '22/05/2004' DateAdd ("m", 5, #22/11/2003#) النتیجە: '22/04/2004' DateAdd ("n", 51, #22/11/2003 10:31:58 AM#) النتیجە: '22/11/2003 11:22:58 AM' DateAdd("yyyy", -1, #22/11/2003#) النتیجە: '22/11/2002' واذا ما فهمت مني بعد ارفق مثال للتعديل عليه تحياتي
  5. استخدم DateAdd ابحث في المنتدى راح تفاصيل حسب طلبك
  6. السؤالك لم يكن يساوي مع مطلبك كما مبينة في القاعدة اتفضل استخدمت هذا الكود لمطلبك Private Sub أمر77_Click() Me.Text74 = DLookup("[التاريخ من]", "فترة الإدخال") Me.Text76 = DLookup("[التاريخ الى]", "فترة الإدخال") End Sub اليك القاعدة بعد تعديل New تطبيق Microsoft Office Access.rar
  7. اھلا بک ابا جودی فی استعلام استخدم المعیار ھکذا Like [Forms]![Form1]![txt_filter] & "*" وبدل ان تستخدم رقم صفر مع الفورمات ="0" & Format(Date();"yy") السنة تقدر تستخدم رايت مع السنة =Right(Year(Date());3) الیک المرفق بعدتعدیل على الرغم الكلا بيعطيك النتيجة المطلوبة اعتذر من استاذنا @أبو إبراهيم الغامدي لم ارى مشاركتك لان الصفحة كان مفتوع عندي قبل مشاركتك ... شكرا لك qus.rar
  8. اتفضل تم الحل المشكلة في يمين اسمي بها رقم صفر شوف اي جوا هو اصح اعمل علامة صح امامه salloum.rar
  9. السبب یرجع لانی استخدمت فی المعرف فی الکود لکن فی نموذجک الفرعی لا یکتب المعرف وانا لا استخدم الاسم لان ھناک احتمال التکرار فی الاسم اتفضل الیک ربط بين النموذج الفرعي و الرئيسي بالمعرف و الاسم معا salloum.rar
  10. يعني وصلت الى النتيجة المطلوبة اذا نعم اعمل علامة صح امام الجواب الصحيح تحياتي
  11. اھلا بك من جديد ... نحن لا نتجاهل طلبات اي اعضاء ... لكن كلنا يعمل الردود حسب وقته يعني لا يحتاج نحن نرد على الموضوع لانك وصلت للمطلوب صحيح ؟ وما رأيك عن وقتنا ؟ سامحك الله اتفضل انا استخدمت هذه الاكواد لمطلبك هذا الكود هو بيعطيك مطلبك Private Sub Form_Current() If Me.Recordset.RecordCount = 0 Then Me.الاجمالي.DefaultValue = Nz(Form_student.Total, 0) Else Me.الاجمالي.DefaultValue = Form_student.Total - Nz(DSum("[دفع]", "Money", "[رقم الطالب]=" & Form_student.المعرف), 0) End If End Sub واستخدمت هذا الكود لبعد تحديث لحقل الدفع لكي يخزن السجل و يعطيك دفيلوت فاليو لسجل جديد Private Sub دفع_AfterUpdate() DoCmd.RunCommand acCmdSaveRecord Call Form_Current End Sub واستخدمت هذا اذا حذفت سجل ... Private Sub Form_AfterDelConfirm(Status As Integer) Call Form_Current End Sub اتفضل مع القاعدة student_school1.rar
  12. استخدم هذا الكود بعد تحديث الفورم Private Sub Form_AfterUpdate() Me.OrderBy = "[Days]" & DESC Me.OrderByOn = True End Sub
  13. طلبك ليس موضحة لي ... اشرح بالتفصيل مع المثال
  14. القي نظرتا الى هذا شوف ان الايام يبدأ من السبت و الترتيب بعد تعمل ترتيب في الفورم بواسطة تايم شوف اول يوم مثلا للسبت يبدأ من اي رقم و كل ايام ستجد ان الترتيب هو مثل الترتيب في النموذج ترتيب 2.rar
  15. تم تغییر فی اسم التقریر و النموذج يمكنك تستخدم هذا الكود عند فتح التقرير Private Sub print_Click() On Error Resume Next DoCmd.OpenReport "repo", acViewPreview, , Me.Filter Report_repo.OrderBy = Forms!showtbl.OrderBy Report_repo.OrderByOn = True End Sub اليك المرفق ترتيب التوقيت (1).rar
  16. استخدم هذا الكود Private Sub Command8_Click() If Me.Frame21 = 1 Then Dim Mablax1 As Integer Dim Mablax2 As Integer If Me.Text2 >= #9:00:00 PM# Then Me.Text6 = Me.Text0 * 0.02 * (Format(Me.Text4, "h") - Format(Me.Text2, "h")) ElseIf Me.Text2 < #9:00:00 PM# Then If Me.Text4 >= #9:00:00 PM# Then Mablax1 = (Me.Text0 * 0.01) * (21 - Format(Me.Text2, "h")) Mablax2 = (Me.Text0 * 0.02) * (Format(Me.Text4, "h") - 21) Me.Text6 = Mablax1 + Mablax2 Else Me.Text6 = Me.Text0 * 0.01 * (Format(Me.Text4, "h") - Format(Me.Text2, "h")) End If End If Else Me.Text6 = Me.Text0 * 0.05 * (Format(Me.Text4, "h") - Format(Me.Text2, "h")) End If End Sub اليك المرفق برنامج التعويض عن العمل الإضافي (1) (1).rar
  17. اليك القاعدة Database1 (1).rar
  18. الان وصلت اتفضل mm (1).rar
  19. اخي الحبيب كما قلت لك سابقا فقط قم بتنزيل نسخة اخرى في مشاركتي ... لانك قمت بحذف كود في حدث الحالي للفورم Private Sub Form_Current() If Len(Form_ss2.الاسم & "") = 0 Then Me.حالة_الوظيفة = "شاغر" Else Me.حالة_الوظيفة = "مشغول" End If End Sub
  20. استخدم هذا =DateDiff("d";format([Text2];"dd-mm-yyyy");format([Text6];"dd-mm-yyyy"))
  21. استخدم هذا =DateDiff("d";[Text2];[Text6]) بدل هذا =[Text6] - [Text2] اليك المرفق Database1.rar
×
×
  • اضف...

Important Information