kanory

بالنسبة للدول ::: هذا يعني شرط تساوي اسم الدولة في الاستعلام مع اسم الدولة في الدالة Dcount اما بالنسبة لExpression ومرة Group By فهي غلطة مطبعية أجعلها Group By

تفضل ملفك بعد التعديل ...... MhaM.accdb

اذن تفضل ملفك ....... ديمو للتجربة.accdb

هل هذه الحسبة صحيحة .....

بارك الله في أخي @يونس محمد الخطابي استبدل الحقل في الاستعلام بهذا ..... Expr1: DCount("asm";"G112_beanat";"[asm] ='" & [asm] & "'")

الحمد لله رب العالمين

تفضل البيانات المكرره.mdb

وعليكم السلام ورحمة الله وبركاته هل هذه الصورة هي المطلوبة من الاستعلام .............

في حدث الحالي للنموذج استخدم هذا .... Private Sub Form_Current() Me.مدة_التنفيذ = DateDiff("d", Me.تاريخ_بداية_المهمة, Me.نهاية_تاريخ_المهمة) End Sub

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

نعم اتوقع صحيح .... بارك الله فيك استاذنا الفاضل

جرب هذا واعلمنا بالنتيجة ............. Private Sub genu_AfterUpdate() Dim fieldValue As String fieldValue = Me.genu.Value ' Check if the field value starts with "17" If Left(fieldValue, 2) = "17" Then MsgBox "ادخال خاطئ! يجب ألا يبدأ الحقل بالرقم 17." Me.genu.Undo ' Undo the input End If End Sub

وعليكم السلام ورحمة الله هذه الرسالة بسبب عدم وجود مربع النص المسمى kan في النموذج ..... فضلا راجع مرفقي الاخير بارك الله فيك

تفضل هذا الموضوع للسيد @jjafferr

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

ممكن شرح مفصل لفهم الفكرة ...

تفضل ..................... الاخير (1).mdb

اكمل الباقي لكي تتعلم .................. مثال جمع.mdb

هل هذا هو المطلوب ... مثال جمع .mdb

مثال جمع الاعداد.mdb

للاسف ليس لدي طابعة الان ..... ولكن تأكد من اعدادات الطابعة والورق ؟؟

بالنسبة للشرح عملنا مربعات نص لكل واجب لتسجيل تاريخ تقديم الواجب باسماء ( wd1 - wd2 - wd3 - wd4 - wd5 ) وجعلناها مخفية حتى لاتظهر في النموذج ثم عملنا هذا الفانك في النموذج وهو محور العمل في التجميع .... Function CountFields1() Dim i, ii As Integer Set db = CurrentDb() Set rs = db.OpenRecordset("SELECT Mo.name, Mo.waj1, Mo.waj2, Mo.waj3, Mo.waj4, Mo.waj5, Mo.waj, Mo.mchro1, Mo.mchro2, Mo.mchro3, Mo.mchro FROM Mo;") rs.MoveFirst Do While Not rs.EOF i = 0 ii = 0 For Each Item In rs.Fields If InStr(1, "mchro1,mchro2,mchro3", Item.name) > 0 And Item.Value = True Then i = i + 1 ElseIf InStr(1, "waj1,waj2,waj3,waj4,waj5", Item.name) > 0 And Item.Value = True Then ii = ii + 1 End If Next Item rs.Edit rs!waj = ii rs!mchro = i rs.Update rs.MoveNext Loop End Function

هذا التقرير ليس مجزأ ............

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

طيب هل هذه الحسبة مضبوطة .......