2saad

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

اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق تقرير وهو عبارة عن لاصقات ارقام جلوس بيأخذ بياناته من جدول المطلوب : عايز اللاصقات تكون مرتبة بحيث تكون اللاصق 1 بجانبها اللاصق 2 وهكذا ولكم جزيل الشكر ووافر الاحترامnoha.accdbnoha.accdb

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

شكرا استاذ محمد تعبتك معاي مش عايز يظبط معاي الجزئية بتظهر معاي في الكود بالشكل ده انظر الي الفاصلة بعد ( غ ) هل هي السبب في عدم عمل الكود ؟

استاذ محمد الجزئية ظهرت عندي بالشكل ده

شكرا استاذ محمد علي مجهودك الكود اللي حضرتك وضعته بيرحل ( غ ) فقط بس أنا عندي شك في وضغ الجزئية دي لما نقلت الكود كتبت عندي بالشكل السابق ولكن في كود حضرتك مكتوب ( لاحظ الفواصل ) rCrit = Split(",لها دور ثان,له دور ثان,غ", ",")

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

لو سمحت ماذا يفعل هذا الكود

معلش استاذي الفاضل التأخير في الرد بسبب الأنترنت محتاج ترحيل البيانات من CHEET4في الأعمدة الملونة باللون الأصفر 3- 4- 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 -28- 40 - 52 - 64 - 76 - 88 - 100 - 112 - 116- 131 بشرط ( له درو ثان و لها دور ثان و غ )في العمود 131 يتم ترحيلها الي( شيت الدور الثاني صف رابع ) الملف المرفق المطلوب SAAD.xlsm

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

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

اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الكود المرفق يقوم بترحيل بيانات التلاميذ والتلميذات الذين لهم دور ثان محتاج اعدل فيه بحيث بحيث يرحل بيانات التلاميذ والتلميذات الذين لهم دور ثان وكمان ( غ ) 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

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

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

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