Shivan Rekany

الدالة DSum بیستخدم ھکذا ' لجمع حقل بالکامل فی الجدول DSum("[Fld]";"Tbl") ' لجمع مع الشرط حقل رقمي DSum("[Fld]";"Tbl"; "[Fld1]=" & [Fld1] ) ' لجمع مع الشرط حقل نصی DSum("[Fld]";"Tbl"; "[Fld1]='" & [Fld1] & "'" ) غیر Fld باسم حقل المراد تجمیعه اي اللي فيه درجات الحكام غير Tbl باسم جدول اللي فيها البيانات اي جدول score غير Fld1 باسم الحقل اللی ترید تجمیعھ حسبھ ای رقم الحکام ام اسماء الحکام

ما اضفت اي شيء في القاعدة فقد تم تكبير ارتفاع الحقول في جزء التفصيل من التقرير

اتفضل تقرير.rar

كان من المفروض ان ترفق القاعدة وانا قمت بالتعديل عليه لكن اتفضل تم عمل هذا واستخدمت في الاستعلام و النموذج ايضا ExampleDateAdd.rar

اخي اتفضل معي مع شرح مبسط الكود هكذا 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' واذا ما فهمت مني بعد ارفق مثال للتعديل عليه تحياتي

استخدم DateAdd ابحث في المنتدى راح تفاصيل حسب طلبك

السؤالك لم يكن يساوي مع مطلبك كما مبينة في القاعدة اتفضل استخدمت هذا الكود لمطلبك Private Sub أمر77_Click() Me.Text74 = DLookup("[التاريخ من]", "فترة الإدخال") Me.Text76 = DLookup("[التاريخ الى]", "فترة الإدخال") End Sub اليك القاعدة بعد تعديل New تطبيق Microsoft Office Access.rar

اھلا بک ابا جودی فی استعلام استخدم المعیار ھکذا Like [Forms]![Form1]![txt_filter] & "*" وبدل ان تستخدم رقم صفر مع الفورمات ="0" & Format(Date();"yy") السنة تقدر تستخدم رايت مع السنة =Right(Year(Date());3) الیک المرفق بعدتعدیل على الرغم الكلا بيعطيك النتيجة المطلوبة اعتذر من استاذنا @أبو إبراهيم الغامدي لم ارى مشاركتك لان الصفحة كان مفتوع عندي قبل مشاركتك ... شكرا لك qus.rar

لیس ھناک ای خطأ

اتفضل تم الحل المشكلة في يمين اسمي بها رقم صفر شوف اي جوا هو اصح اعمل علامة صح امامه salloum.rar

السبب یرجع لانی استخدمت فی المعرف فی الکود لکن فی نموذجک الفرعی لا یکتب المعرف وانا لا استخدم الاسم لان ھناک احتمال التکرار فی الاسم اتفضل الیک ربط بين النموذج الفرعي و الرئيسي بالمعرف و الاسم معا salloum.rar

اتفضل salloum.rar

يعني وصلت الى النتيجة المطلوبة اذا نعم اعمل علامة صح امام الجواب الصحيح تحياتي

اھلا بك من جديد ... نحن لا نتجاهل طلبات اي اعضاء ... لكن كلنا يعمل الردود حسب وقته يعني لا يحتاج نحن نرد على الموضوع لانك وصلت للمطلوب صحيح ؟ وما رأيك عن وقتنا ؟ سامحك الله اتفضل انا استخدمت هذه الاكواد لمطلبك هذا الكود هو بيعطيك مطلبك 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

استخدم هذا الكود بعد تحديث الفورم Private Sub Form_AfterUpdate() Me.OrderBy = "[Days]" & DESC Me.OrderByOn = True End Sub

طلبك ليس موضحة لي ... اشرح بالتفصيل مع المثال

اتفضل ترتيب 2 (1).rar

القي نظرتا الى هذا شوف ان الايام يبدأ من السبت و الترتيب بعد تعمل ترتيب في الفورم بواسطة تايم شوف اول يوم مثلا للسبت يبدأ من اي رقم و كل ايام ستجد ان الترتيب هو مثل الترتيب في النموذج ترتيب 2.rar

تم تغییر فی اسم التقریر و النموذج يمكنك تستخدم هذا الكود عند فتح التقرير 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

استخدم هذا الكود 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

اليك القاعدة Database1 (1).rar

الان وصلت اتفضل mm (1).rar

اخي الحبيب كما قلت لك سابقا فقط قم بتنزيل نسخة اخرى في مشاركتي ... لانك قمت بحذف كود في حدث الحالي للفورم Private Sub Form_Current() If Len(Form_ss2.الاسم & "") = 0 Then Me.حالة_الوظيفة = "شاغر" Else Me.حالة_الوظيفة = "مشغول" End If End Sub

استخدم هذا =DateDiff("d";format([Text2];"dd-mm-yyyy");format([Text6];"dd-mm-yyyy"))

استخدم هذا =DateDiff("d";[Text2];[Text6]) بدل هذا =[Text6] - [Text2] اليك المرفق Database1.rar