Barna

حياك الله أخي @mostafaelshnawy5 بالتوفيق بالمناسبة يمكن عمل ذلك باستعلام واحد لكن للاسف لانك استخدمت اسماء الجداول واسماء الحقول بالعربية فشرقت وغربت بنا استعمال الاكواد فلذلك عملتها في اكثر من استعلام

حذف كل المرتجعات والنتيجة ممتازة .............. انظر .....

بارك الله فيك شيخنا الغالي

لكن استاذي الغالي هو سجل هذه الفترة في جدول الاجازات اجازة للموظف بما سوف يتم انظر الجدول والادخال للتاريخ به فلذلك اعطى ان هذا الموظف سوف يكون في اجازة ....

انظر المرفق ..... مساعدة في الاستعلام.rar

راجع هذا الاستعلام هل النتائج صحيحة كالتي تريد ؟؟؟؟؟

مشاركة مع استاذي الغالي @ابوخليل انظر المرفق يمكن تسجيل اي مهمة للموظف سواءا جديده أو باثر رجعي واذا كان التاريخ ضمن نطاق اي من اجازات الموظف تخرج رسالة لاعلامك بذلك لتغيير الموظف او تعديل التاريخ جرب وأعلمنا بالنتائج ...................... fmmm2.rar

نعم اخي الغالي كلامك صحيح ..... بارك الله فيك بارك الله فيك ... نحن في الخدمة .... لم نتواجد هنا سوى للتعلم والافادة ....

جرب المرفق ...... test (17).accdb

ضع هذا الكود في النموذج الفرعي في حدث الحالي .... If Me.NewRecord Then Me.id_customer = [Forms]![frm_main]![id] End If

جاري التجرية ... واعلامك بالنتيجة

طيب بالنسبة للتقرير عشان تروح العصبية عشان نتفاهم على المطلوب الثاني بعدها ..... في حدث عند فتح التقرير ضع هذا ...... DoCmd.Maximize

طيب استبدل بهذا ...... Public Function CountNumberic() As Integer Dim StringToSearch As String, ms As Integer, ms1 As Integer Dim i As Integer If Len(Me.Text4) <= 1 Or IsNull(Me.Text4) Then StringToSearch = Me.Text1 Else StringToSearch = Me.Text4 End If ms = 0 ms1 = 0 For i = 1 To Len(StringToSearch) ms = Mid(StringToSearch, i, 1) ms1 = ms1 + ms Next i Me.Text4 = ms1 End Function

تفضل <><><><><><><> Numberic.accdb

اجعل كود الارسال يأخذ الرسالة مباشرة من النموذج ومن مربع النص مباشرة دون الحاجة لتخزينها في جدول العملاء ......

مبارك مهندسنا .............. الف ... الف ... مبروك ..... تستاهل ... مزيد من التألق

استبدل الشيفرة بهذه .................... Dim xx As String xx = InputBox("ادخل النسبة ", "حدد ") xx = Replace(xx, "%", "") If Len(xx) = 0 Then Exit Sub DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET Table1.Field1 = [field1]*" & xx & ";" DoCmd.SetWarnings True

ما شاء الله تبارك الله الف . الف . مبروك أخي @سامي الحداد تستاهل والى الامام

طيب جرب هذا ................... Dim xx As String xx = InputBox("ادخل النسبة ", "حدد ") xx = Replace(xx, "%", "") DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET Table1.Field1 = [field1]*" & xx & ";" DoCmd.SetWarnings True

يعني تريد ان تكتب بهذا الشكل 1.5%

طيب حسب ما فهمت ................ انشئ نموذج وضع في زر وفي حدث الزر ضع هذه الشيفرة :::: Dim xx As String xx = InputBox("ادخل النسبة ", "حدد ") DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET Table1.Field1 = [field1]*" & xx & ";" DoCmd.SetWarnings True

وعليكم السلام ورحمة الله في مصدر بيانات مربع النص في النموذج الفرعي ضع هذا =Count([name1]) وفي مربع النص في النموذج الرئيسي ضع هذا =[Forms]![الرئيسي]![1_1_sub].[Form]![sss]

وعليكم السلام ورحمة الله ........... اخي عبدالله انظر الى هذه الاداة ....................

يعني يتم تنفيذ التخفيض على كل عملية تسديد قسط على حدا صحيح ( اي لو دفع كامل القسط الاول يتم التخفيض واذا لم يدفع كامل القسط الثاني فلا يستفيد من تخفيض القسط واذا دفع القسط الثالث كاملا يحصل على التخفيض وهكذا .................... )

اخي الكريم ... للاسف انا حتى الان لم اقتنع بالطريقة ... لذلك اتوقف .. لربما احد الاخوة قد فهم الية عمل البرنامج ... لان الالية العامة لم اقتنع بها ... اتريث قليلا ...لربما افكر لك بطريقة اخرى اكثر سلاسة