كل الانشطه

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

السلام عليكم ورحمة الله وبركاته انا باعتذر ان كنت اثقلت على حضراتكم المشروع عبارة عن قاعدة بيانات لمخازن مديرية يتبعها عدد من المواقع لكل موقع به مخزن وللمديرية مخزن ييتم اضافة الاصناف الى المديرية او مخازن الموقع ويتم صرفها للاستخدام العادي ولهذا تم عمل الاتي اولا :- نموذج الاضافة لاضافة الاصناف بالموقع مع بحيث يكون النموذج مطابق لنموذج الاضافة الحكومي له راس نموذج يحتوي على بيانات الموقع والتاريخ وخلافة والنموذج الفرع يوضح به الاصناف المطلوب اضافتها والمخزن التابع له الصنف سواء مخزن اثاث او اجهزة ...... ثانيا :- نموذج المنصرف لصرف الاصناف الى نشاط معين او لاستخدام معين بنفس تصميم الاضافة ايضا راس نموذج ونموذج فرعي ثالثا :- نموذج الارتجاع يوضح به الاصناف المرتجعة للمخازن رابعا :- نموذج الزيادة والعجز يستخدم عند الجرد ليوضح به نتيجة الجرد اذا كان زيادة يتم تسجيلها في الزيادة واذا كان عجز تسجل في العجز خامسا :- نموذج الكهنة ليوضح به الاصناف التي تم تكهينها المطلوب استعلام لاستخراج رصيد المخزن بعد هذه العلميات او بعد اي عملية منهم لايشترط ان يتم التسجيل بكل النماذج في وقت واحد يعني المطلوب الرصيد بعد اي عملية تتم من العلميات او كل العلميات على حسب ما يتم تسجيله بمعني في حالة الاضافة والزيادة يتم اضافة كمية الاصناف وقيمتها للموجود بالمخزن وفي حالة المنصرف والعجز والكهنة يتم خصم الكمية والقيمة من الموحود بالمخزن ليظهر الرصيد في اي وقت يتم طلب رصيد الصنف بالمخزن المعادلة تكون كلاتي رصيد الكمية = الكمية الواردة + كمية الزيادة - الكمية المنصرفة - كمية العجز - كمية الكهنة وللقيمة بنفس المعادلة قيمة الرصيد = قيمة الوارد + قيمة الزيادة - قيمة المنصرف - قيمة العجز - قيمة الكهنة ارجو ان اكون وضحت الغرض من المشروع والمطلوب ولكم جزيل الشكر

أخي الفاضل بعد سلام الله عليكم ورحمة الله وبركاته فيه ملحوظة هامة أثناء فتح تقرير الشهادات لاحظت اللون لا يدل علي التقييم انظر اخي الفاضل مثلا اللغة العربية في الشهادة الأولي ( اللون : أزرق ) ولكن ( التقييم : يلبي التوقعات ) مع أن المفروض ( يفوق التوقعات )

شكرا جزيلا أخي الفاضل وبارك الله فيك

اذا كان المقصود من كلام أخونا صاحب الموضوع هو الكتابة على ملف PDF يستعمله كقالب !!!! فهذه نقطة لا ولم ولن يتم تطبيقها من خلال اكسيس إلا بإنشاء تقرير ثم تصديره كملف Pdf . غير ذلك فلن تحصل على إختراع يلبي حاجتك وفكرتك.

استاذي hegazee لو سمحت انظر للصورة مازالت الكومة موجودة في شريط الدالة وعندى ملف بة عدد كبير من هذة الاشكال اريد منك معرفة الطريقة او الكود المستخدم بارك الله فيك

نرجوا من الإخوة مساعدتي

الموضوع بالإنجليزية ملف PDF يكون صفحته فارعة يوجد به معلومات اساسية مثل الرقم اللقب الاسم تاريخ الميلاد وبعد البحث عن الموظف يمتلئ صفحة PDF مثلا الموظف الرقم 1001 اللقب ALI الاسم Hassan تاريخ الميلاد 01/01/1999 PDF Report.rar

اي علاقة الديانة لم تدرج في الاستعلامات من الأساس تفضل التقرير شامل تحليلي النصفين لجميع الصفوف .. Data13.rar

جزاك الله خير - تمام 100 % ممكن اضافة فقرة اخرى - في عمود l اسم الشركة - ليكون التقرير حسب الشهر واسم الشركة الشهر والشركة.xlsm

الموضوع بالإنجليزية

عند اختيار مكان الشغل او اسم المقاول بين التاريخين يتم استدعاء البيانات من شيت يومية المقاولين عمالة نظام جديد.xlsm

تفضل ازالة علامة.xlsx

المطلوب ازاله الكومة من خلف الرقم او امام الرقم ازالة علامة.xlsx

ابخصوص الاستعلام الاول لا تاخذ به انا نسيت ان ازيله

السلام عليكم ورحمة الله وبركاته استاذنا العزيز kkhalifa1960 في هذا المثال تم تحديد مكان تصدير التقرير في مكان وجود قاعدة البيانات والذي هو CurrentProject.Path طيب انا حاولت انه عند تصدير التقرير , المستخدم يحدد مكان تصدير التقرير عن طريق مربع الحوار application.fileDialog ولكن لم استطيع تنفيذ هذا الامر ! هل من الممكن المساعدة في هذا الموضوع ؟ MergMic.rar

شكرا على المجهود لكن التقصير مني لم اوصلكلك الفكرة بشكل واضح ان واضع شرط لازم يكون الجمع بنفس nemeroimp وبفس السنة anneeimpo ارفق لك ملف اكسيل يوضح الموضع بشكل جيد oool1.xlsx

تمام استاذنا / عبدالله بشير جعله الله في ميزان حسناتك وبارك الله فيك

تفضل استاذ @alloui79 المرفق بعد التعديل بطلبك حسب مافهمت بالاستعلام 2 . ووافني بالرد . Database9-2.rar

أخي الفاضل أبو خليل بعد سلام الله عليكم ورحمة الله وبركاته مرسل لحضرتك مرفق وبه تقرير إحصاء بالصفوف الأولي والصف الثالث ولكن صادفتني مشكلة في إحصاء الدين مش عارف أحلها ( موجود بالمرفق جدول الديانة ) أنا أطن لازم نعمل علاقة بين جدول الديانة و الاستعلام qry_Temp بس مش عارف اعمله لو تكرمت انظر للمرفق Data12.rar

السلام عليكم ورحمة الله وبركاته اليك ما طلبت جدول التفريغ22.xlsm

والنعم منك استاذي تقضل الملف مرفق به جدول معلومات المعلمين وبه جدول الخلاصة التي اريدها ان تضهر تلقائي ......... ملاحظات إضافية أحتاج مكان اكتب بها القاعات الامتحانية مثلا لدي 10 قاعات امتحانية وكذلك أحتاج مكان اكتب به ايام المراقبة مثلا من السبت - الأحد - الاثنين- الثلاثاء - الأربعاء - الخميس جدول مراقبة المعلمي.rar

ممتاز أخي @Foksh بارك الله فيك وحزاك كل الخير ان شاء الله

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

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Sub test() Dim dest As Worksheet, WS As Worksheet Dim m As String, a As Variant, k As Variant Dim d As Object: Set d = CreateObject("Scripting.Dictionary") Dim ShArr As Variant: ShArr = Array("aaa", "bbb") Dim i As Long, lr As Long, r As Long: r = 2 With Application .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlCalculationManual On Error Resume Next Set dest = Sheets("التقرير") If dest Is Nothing Then Set dest = Sheets.Add: dest.Name = "التقرير" Else dest.Range("A:E").ClearContents On Error GoTo 0 dest.Range("A1").Resize(1, 5).Value _ = Array("الشهر", "عدد النقلات", "مجموع المبلغ للسائق", "مجموع مبلغ العقد", "مجموع الكمية (طن)") For Each WS In Sheets(ShArr) lr = WS.Cells(WS.Rows.Count, "M").End(xlUp).Row For i = 2 To lr m = Trim(WS.Cells(i, "M").Text) If m <> "" Then If Not d.exists(m) Then d(m) = Array(0, 0, 0, 0) a = d(m) a(0) = a(0) + 1: a(1) = a(1) + tmp(WS.Cells(i, "S").Value) a(2) = a(2) + tmp(WS.Cells(i, "U").Value): a(3) = a(3) + tmp(WS.Cells(i, "F").Value) d(m) = a End If Next i Next WS For Each k In d.Keys a = d(k) dest.Cells(r, 1).Resize(1, 5).Value = Array(k, a(0), a(1), a(2), a(3)) r = r + 1 Next k .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlCalculationAutomatic End With MsgBox "تم إعداد التقرير بنجاح", vbInformation End Sub Private Function tmp(x As Variant) As Double tmp = IIf(IsNumeric(x), x, 0) End Function تقرير من شيتين v2.xlsm