2saad

اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الكود المرفق يقوم بترحيل بيانات التلاميذ والتلميذات الذين لهم دور ثان محتاج اعدل فيه بحيث بحيث يرحل بيانات التلاميذ والتلميذات الذين لهم دور ثان وكمان ( غ ) Sub Filter_and_copy_with_condition() '********** MOHAMMED HICHAM 02/03/2024**************** Dim d, j Dim Search As Range, clé As String, IRow As Long Dim WS As Worksheet: Set WS = Worksheets("cheet4") Dim F As Worksheet: Set F = Worksheets("شيت الدور الثاني صف رابع ") d = 9: j = 16: clé = "*" & F.[B1] IRow = WS.Range("DZ:DZ").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row With Application .Calculation = xlManual .ScreenUpdating = False If Len([B1].Value) = 0 Then: Exit Sub Set Search = WS.Range("DZ16:DZ" & IRow).Find(clé, LookIn:=xlValues, lookat:=xlWhole) If Search Is Nothing Then MsgBox clé & " " & "غير موجود", vbExclamation, "Admin": Exit Sub F.Range("C10:O" & Rows.Count).ClearContents Do Until IsEmpty(WS.Range("DZ" & j)) If WS.Range("DZ" & j) Like clé Then d = d + 1 F.Cells(d, 3).Value = WS.Cells(j, 3).Value F.Cells(d, 4).Value = WS.Cells(j, 4).Value F.Cells(d, 5).Value = WS.Cells(j, 5).Value F.Cells(d, 6).Value = WS.Cells(j, 6).Value F.Cells(d, 7).Value = WS.Cells(j, 7).Value F.Cells(d, 8).Value = WS.Cells(j, 8).Value F.Cells(d, 9).Value = WS.Cells(j, 9).Value F.Cells(d, 10).Value = WS.Cells(j, 10).Value F.Cells(d, 11).Value = WS.Cells(j, 11).Value F.Cells(d, 12).Value = WS.Cells(j, 12).Value F.Cells(d, 13).Value = WS.Cells(j, 13).Value F.Cells(d, 14).Value = WS.Cells(j, 14).Value F.Cells(d, 15).Value = WS.Cells(j, 130).Value F.Cells(d, 18).Value = WS.Cells(j, 28).Value F.Cells(d, 21).Value = WS.Cells(j, 40).Value F.Cells(d, 24).Value = WS.Cells(j, 52).Value F.Cells(d, 27).Value = WS.Cells(j, 64).Value F.Cells(d, 30).Value = WS.Cells(j, 76).Value F.Cells(d, 33).Value = WS.Cells(j, 88).Value F.Cells(d, 36).Value = WS.Cells(j, 100).Value F.Cells(d, 39).Value = WS.Cells(j, 112).Value F.Cells(d, 42).Value = WS.Cells(j, 116).Value End If j = j + 1 Loop .Calculation = xlAutomatic .ScreenUpdating = True End With End Sub

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

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

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

نرجو الاهتمام بالموضوع

أخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق محتاج اربط جدول المواد بالفصل بالمعلم ( Tbl_class ( الفصل ) - Tbl_teacher ( المعلم ) - Tbl_materil ( المواد ) ) مع الأخذ في الاعتبار أن المعلم ممكن أن يدرس أكثر من مادة ماذا أفعل في الجداول لربطها معا بالجدول الرئيسي (Tbl_student_sf_1 ) ارجو الاهتمام ضروري بالموضوع ده لأني محتاج افهمه الملف القديم: معلش الملف اكبر من المسموح فرفعته علي الميديا فاير https://www.mediafire.com/file/yt3t0flgrs6d6i6/كنترول+الصفوف+الأولي.rar/file 1613.كنترول الصفوف الأولي.accdb.zip

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

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

أخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق ثلاث جداول لصفوف مدرسية ( الأول - الثاني - الثالث ) الملف به نموذج به كمبوبكس بختار منه الجدول اللي محتاج أعدل أو أضيف عليه المطلوب إدراج كمبوبكس يعرض اسماء التلاميذ بحيث عندما اختار الجدول ثم اختار الاسم المحدد اللي موجود في الجدول يعرض البيانات التابعه له في النموذجتجربة.accdb

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

اخواني الاعزاء بعد سلام الله عليكم ورحمته وبركاته في الملف المرفق استعلام به حقل ( takeem_nesf ) محتاج تقرير عن ( غ ) وتقرير عن ( لم يتقن المعارف ) وتقرير عن الاثنين معا وشكرا لكم جميعا آسف الملف المرفقnoha.rar

الله يبارك فيك دنيا وآخرة بحق هذه الأيام المباركة وكل عام وأنت طيب وبخير

اخواني الإعزاء بعد سلام الله عليكم ورحمته وبركاته وكل عام وأنتم طيبون عندي جدول درجات مواد الطلاب( عربي - انجليزي - دراسات - علوم ..... ) وبعض الطلاب غائب في امتحانات المواد فوضعت مكان درجته ( . ) وعملت استعلام للجدول لكي اجمع درجات كل طالب ( عربي + دراسات + علوم + انجليزي ) والناتج يطلع تمام ولكن الحقل اللي فيه صفر يطلع المجموع فارغ ايه السبب ؟؟

شكرا جزيلا أخي الفاضل وبارك الله فيك وجعله في ميزان حسناتك بحق هذه الأيام المباركة معلش أنا آسف بتعب حضرتك معاي

شكرا جزيلا يا أخي الفاضل وبارك الله فيك حضرتك جعلت القائمة المنسدلة مرتبطة بالشهادة فقط وأنا عايز القائمة المنسدلة عن الضغط علي الاسم يملأ البيانات الموجودة في النموذج + الشهادة هل ده ينفع ؟

نرجو تصحيح الخطأ

شكرا لحضرتك وبارك الله فيك علي ردك الملف حضرتك مش عايز يفتح وتأتي الرسالة

ارجو الاهتمام بالموضوع

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

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

شكرا لحضرتك تفضل الملفmas_s1.rar mas_s1.rar

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

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

بارك الله فيكم جميعا وزادكم الله من علمه وجعله في ميزان حسناتكم علي ما تقدموه من جهد ومساعدة الآخرين أنا مرفق ملف بالمطلوب ووضعت وحدة نمطيه للمطلوب جمعه في ( module1 ) عايز اجمع ماهو موجود في qr1 في QRYsum1 زي ما أنا عامل للمسلم والمسيحي بناء علي الصفnader.rar .... انظر الصورة هو ده المطلوب تجميعه

شكرا جزيلا أخي الفاضل وبارك الله فيك وزادك الله من علمه لو ينفع ملف يوضح هذا أكون شاكر لحضرتك