كل الانشطه

بعد إذن معلمي الفاضل @ابوخليل ، قمت بدمج الإستعلامين كما فعلت في السابق ، مع إضافة شرطين ( الفصل والصف ) . أخي @2saad انشئ استعلام جديد وألصق الكود التالي :- PARAMETERS [Forms]![frm_Reports]![ComboSaf] Short, [Forms]![frm_Reports]![termNum] Short; TRANSFORM IIf([Forms]![frm_Reports]![termNum]=1,First(qry_master.mgmo1),First(qry_master.mgmo2)) AS FirstOfmgmo SELECT qry_master.alsaf_Id, qry_master.draseDate, qry_master.Stucard, qry_master.Studentname, qry_master.fsl_id, qry_master.Stugalos, qry_master.StuSery, qry_master.gender, qry_Temp.vHodor, qry_Temp.alnesbah, qry_Temp.tgyeem1, qry_Temp.hala FROM qry_master LEFT JOIN qry_Temp ON qry_master.Stucard = qry_Temp.Stucard WHERE (((qry_master.alsaf_Id)=[Forms]![frm_Reports]![ComboSaf])) GROUP BY qry_master.alsaf_Id, qry_master.draseDate, qry_master.Stucard, qry_master.Studentname, qry_master.fsl_id, qry_master.Stugalos, qry_master.StuSery, qry_master.gender, qry_Temp.vHodor, qry_Temp.alnesbah, qry_Temp.tgyeem1, qry_Temp.hala PIVOT qry_master.madaNum In (1,2,3,4,5,6,7,8,9,10,11,12,13,14); واجعله مصدر سجلات التقرير السابق نفسه ، وجرب النتيجة .

والله أخي الفاضل طبقت ما قلت ولكن دون جدوي الأسماء مكررة في التقرير ولا أجد النسبة ولا الحالة

طلبك غريب شوي ,,,,,, لكن استخدم هذه الاكواد ............................... Private Sub Form_Load() Dim db As DAO.Database Dim obj As AccessObject Dim strPath As String Dim strFile As String Dim RowSource As String ' إضافة النماذج الموجودة (مع استثناء نموذج "main") Set db = CurrentDb For Each obj In CurrentProject.AllForms If LCase(obj.Name) <> "main" Then RowSource = RowSource & "نموذج:" & obj.Name & ";" End If Next obj ' البحث عن ملفات إكسل في نفس مسار قاعدة البيانات strPath = CurrentProject.Path & "\" strFile = Dir(strPath & "*.xlsx*") ' يشمل xls و xlsx Do While strFile <> "" RowSource = RowSource & "ملف:" & strFile & ";" strFile = Dir Loop ' تحديث مصدر الصفوف لمربع التحرير والسرد If Right(RowSource, 1) = ";" Then RowSource = Left(RowSource, Len(RowSource) - 1) End If Me.مربع_تحرير_وسرد1.RowSourceType = "Value List" Me.مربع_تحرير_وسرد1.RowSource = RowSource End Sub Private Sub مربع_تحرير_وسرد1_AfterUpdate() Dim selectedItem As String selectedItem = Me.مربع_تحرير_وسرد1.Value If Left(selectedItem, 6) = "نموذج:" Then DoCmd.OpenForm Mid(selectedItem, 7) ElseIf Left(selectedItem, 4) = "ملف:" Then Dim filePath As String filePath = CurrentProject.Path & "\" & Mid(selectedItem, 5) Dim xlApp As Object On Error Resume Next Set xlApp = CreateObject("Excel.Application") On Error GoTo 0 If Not xlApp Is Nothing Then xlApp.Visible = True xlApp.Workbooks.Open filePath Else MsgBox "تعذر تشغيل Microsoft Excel.", vbExclamation End If End If End Sub

طلبك موجود في الاستعلامين qry_term11 و qry_term22 Data19.rar

السلام عليكم ورحمة الله , الرجاء المساعده في نموذج efkt عند الضغط على زر ادخال يعمل على تحديث السجل الاول فقط با انقاص الرصيد وباقي السجلات المشار عليها true يبقى الرصيد كما هوه . . شاكرا لكم خدمتكم مرفق stor.accdb

شكرا جزيلا لكما وبارك فيكما وزادكما الله من علمه أخي الفاضل أنا طبقت مثلما قال أخي الكريم ( ابو خليل ) أدام الله عليه الصحة والعافية ولكن لم يفلح معي وأصلا الاستعلام الأول موجود فيه mgmo1 والاستعلام الثاني موجود فيه total

جزاك الله خيرا وجعل علمك فى ميزان حسناتك استاذى الكريم

الله يعافيك أستاذ : hegazee شكرا لكم وبارك الله فيكم

وعليه ، "قضي الأمر الذي فيه تستفتيان" وعليه تم الحل بالتعديل الذي أشار إليه أستاذي الفاضل ( أساس الموضوع ) 😇 .

شكرا استاذنا الفاضل .. والحل او طلب الأخ سعد موجود فعلا .. ويحتاج الى تعديل طفيف ............... 1- الاستعلامان qry_term1 و qry_term2 هما المسؤلان عن عرض الألوان 2- نأخذ من كل واحد نسخة طبق الأصل ثم نعدل على التسمية مثلا qry_term11 و qry_term22 3- نستبدل القيمة color1 الموجودة في الاستعلام الاول بـــــ القيمة mgmo1 4- نستبدل القيمة color2 الموجودة في الاستعلام الثاني بـــــ القيمة total نجعل هذين الاستعلامين مصدر بيانات التقرير هذا كل شيء

السلام عليكم ورحمة الله وبركاتة اخواني الاعزاء الرجاء منكم المساعدة في حل هذا البرنامج وهو عبارة عن فتح النماذج عن طريق القائمة المنسدلة واريد كذلك فتح الملف المرفق بالاكسل يكون من ضمن القائمة باسم (a1 ) طبعا كلهم في الاكسس والمطلوب موجود في البرنامج جزاكم الله خير الجزاء test.accdb a1.xlsx

شكرا جزيلا أخي الفاضل علي تعبك معانا وربنا يجعله في ميزان حسناتك بعد التجربة النتيجة بتحتوي علي درجة التحريري اللي بنسميها في جدول الدرجات Tbl_degree_Detail ( درجة 1) عند اختيار الفصل الدراسي الأول وعند اختيار الفصل الدراسي الثاني تظهر النتيجة مسجل بها درجة التحريري اللي بنسميها ( درجة 2 ) ولكن المفروض في نتيجة الصفوف في الفصل الدراسي الأول ( درجة1 + درجة أعمال1 ) وفي الفصل الدراسي الثاني ( درجة1 + درجة أعمال1 ) + ( درجة2 + درجة أعمال2 ) مقسوم علي 2 انظر جدول الدرجات Tbl_degree_Detail او استعلام qry_master مرفق لكم الملف بعد وضع درجات للصف الثالث للتجربة Data19_4.rar

وعليكم السلام ورحمة الله وبركاته "جزاك الله خيرًا على دعائك الطيب، أسأل الله أن يرزقك أضعاف ما دعوت لي، وأن يبارك لك في عمرك وعملك." هذا الكود يعمل في شيت معاشات لو ربطته بزر لوحده ولكن دمجه مع كود الترحيل يحناج الى وضعه في المكان المناسب وبطريقة مناسبة بحيت يصبح الكود بهذا الشكل With wsTarget.Range("B5:B10000") .HorizontalAlignment = xlRight .VerticalAlignment = xlCenter End With حيث wsTarget تعنى شيت معاشات حيث قمنا بتعريفها في بداية الكود بدلا من اعادة كتابة اسم الشيت كل مرة Set wsTarget = ThisWorkbook.Sheets("معاشات") اليك الملف بعد اظافة محاداة الاسماء لليمين اتمنى انى قدمت لك ما بفيد ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 7.xlsb

وعليكم السلام ورحمة الله وبركاته ، أخي الكريم ، ودون العبث في تأسيس الإستعلامات الرئيسية لديك التي قام بها معلمي الفاضل @ابوخليل والتي هي أساس النجاح الذي وصل إليه المشروع الى هذه اللحظة ، سأقوم بانشاء استعلام جديد وسأفترض تسميته = qry_DarajatData مبنياً على فكرة دمج الإستعلامين ( qry_drjat_term1 و qry_drjat_term2 ) في استعلام واحد يحقق الغاية التي تريدها ، وسيكون كود SQL لهذا الاستعلام الجديد كالآتي :- PARAMETERS [Forms]![frm_Reports]![ComboSaf] Short, [Forms]![frm_Reports]![termNum] Short; TRANSFORM IIF([Forms]![frm_Reports]![termNum]=1, First(qry_master.mada1), First(qry_master.mada2)) AS FirstOfmada SELECT qry_master.alsaf_Id, qry_master.draseDate, qry_master.Stucard, qry_master.Studentname, qry_master.fsl_id, qry_master.Stugalos, qry_master.StuSery, qry_master.gender, qry_Temp.vHodor, qry_Temp.alnesbah, qry_Temp.tgyeem1, qry_Temp.hala FROM qry_master LEFT JOIN qry_Temp ON qry_master.Stucard = qry_Temp.Stucard WHERE (((qry_master.alsaf_Id)=[Forms]![frm_Reports]![ComboSaf])) GROUP BY qry_master.alsaf_Id, qry_master.draseDate, qry_master.Stucard, qry_master.Studentname, qry_master.fsl_id, qry_master.Stugalos, qry_master.StuSery, qry_master.gender, qry_Temp.vHodor, qry_Temp.alnesbah, qry_Temp.tgyeem1, qry_Temp.hala PIVOT qry_master.madaNum In (1,2,3,4,5,6,7,8,9,10,11,12,13,14); واجعل هذا الاستعلام الجديد مصدر سجلات التقرير rep_Kashf ولاحظ النتيجة ان كانت سليمة أم لا ,, مرفقك بعد التعديل Data19.zip

الأستاذ / عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته وختامه مسك ماذا لو أردت أن تكون محاذاة الأسماء (في شيت معاشات) بعد ترحيل الأسماء بداية من الخلية B5 وحتى نهاية الشيت: HorizontalAlignment = xlRight & VerticalAlignment = xlCenter كما هو بالفعل حاولت مع شيت آخر بأن عملت Module وكتبت فيه الكود التالي: Sub alignment() Range("B5:B10000").HorizontalAlignment = xlRight Range("B5:B10000").VerticalAlignment = xlCenter End Sub وتم بنجاح؛ ولكن لم تفلح محاولتي في شيت معاشات بعد الترحيل وجزاكم الله خير الجزاء ودمتم في حفظ الرحمن

جرب هدا عملاء مكررين v2.xlsb

المشروع بحاجة الى اعادة بناء ، وخصوصاً موضوع الجداول والعلاقة فيما بينها ، ثم النقطة المتكررة دائماً وهي الإبتعاد عن الأسماء المحجوزة لآكسيس من أسماء الحقول والجداول والعناصر ... إلخ الآن النقطة الثانية انظر الصورة التالية لمصدر سجلات النموذج :- ما علاقة الجداول Data,Location_all,Location في النموذج . هذا أولاً .. ثانياً هل الجدول Data (وهو اسم محجوز لآكسيس) ، يتم تخزين قيم من النموذج الى هذا الجدول ؟؟؟؟؟ إن كان لا !! فلا حاجة لوجوده كمصدر سجلات ( من وجهة نظري ) لجلب البيانات منه . ومن هنا سكفيك وجود الجدول Fawri فقط كمصدر لتخزين القيم من النموذج مع ضبط الحدث بعد التحديث بحيث عند اختيار اسم الموظف يتم ادراج القيم الخاصة به الى مربعات النص في النموذج . هذه وجهة نظري ( الغير ملزمة طبعاً ودائماً ) .. مرفق لفكرة بدائية بسيطة لجلب القيم للموظف الذي تم اختياره من الكومبوبوكس جربه وأخبرني بالنتيجة .. Pepsi.zip

وعليكم السلام ورحمة الله وبركاته لديك الحق الجزء الخاص بحدود الصف الثالت With ws.Range("C3,E3,H3,J3") .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Bold = True .NumberFormat = "0" .Borders.Weight = xlThin End With .Borders.Weight = xlThin وزن الخط رفيع يتم تعديله الى .Borders.Weight = xlMedium وزن الخط منوسط كذلك يجب تعديل With ws.Range("C3,E3,H3,J3") لانها نشمل خلايا معينة لتحديدها ويتم تعديلها لتشمل النطاق With ws.Range("B3:J3") الملف بعد التعديل ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 7.xlsb لك كل الود والاحترام

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق عند فتحه يظهر فورم عند اختيار الفصل الدراسي والفئة والصف ثم الضغط علي زر كشف تظهر نتيجة الصف بالألوان ( أزرق - أحمر _ أخضر .. وهكذا كما بالصورة الآتية : محتاج النتيجة تكون بالدرجات بدلا من الألوان كما بالصورة الآتية مع شرح بسيط بارك الله فيكمData18.rar

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

و عليكم السلام ورحمة الله و بركاته تفضل الملف تجربة ايجارات (2).xlsx

الأستاذ / عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته ماذا لو أردت أن يكون الحد الأيسر للخلية J3 مثل الحد الأيسر للخلايا من I3: B3 (في شيت معاشات) وجزاكم الله خير الجزاء ودمتم في حفظ الرحمن

اللهم بعدد حبات المطر وعدد من سجد وشكر أسألك يامن أمنت سيدنا يونس في بطن الحوت ونجيت سيدنا موسى في التابوت وحفظت الحبيب سيدنا محمد (صل الله عليه وسلم) بنسيج العنكبوت أن تشفي ابن الأخ محمد هشام شفاء لا يغادر سقما وتعوضه خيرا عن كل دقيقة ذاق فيها الوجع وكل من قال آمين

ارجو المساعدة

وعليكم السلام ورحمة الله وبركاته ، افتح موضوع جديد اخي الكريم ، وان شاء الله بتلقى إجابة لسؤالك .