نجوم المشاركات

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم معلومات التلاميذ خاصة بدفتر الاحصاء.xlsx

بعد اذن اخي واستاذي ابو الكرم هذا كود استعلام حذف بمعنى احذف جميع الحقول في جدول YourTbl بدلا عنه اكتب اسم الجدول الذي ترغب في حذف سجلاته RgmRtba اسم الحقل في الجدول الذي سنحددة معيار للاستعلام Me.RgmRtba اسم مربع التحرير والسرد في النموذج لاحظ ان الاستاذ وضع علامة <> اي سيتم حذف السجلات التي لا تطابق الاسم في القائمة ويمكن استبدالها الى = اذا كنت ترغب حذف ما يطابق الاسم في القائمة

CurrentDb.Execute "DELETE * " & _ " FROM YourTbl " & _ " WHERE RgmRtba <>" & Me.RgmRtba

بالتعاون مع موقع إدارة.كوم www.edara.com عرض خاص و حصري لأعضاء منتدى أوفيسنا العرض ساري فقط حتى 5 نوفمبر 2022 وهذه هي الوصلات المباشرة للاستفادة الحصرية من العرض : عرض منتدى أوفيسنا - اشتراك المدير الشامل 12 شهر عرض منتدى أوفيسنا - اشتراك المدير الشامل 30 شهر عرض منتدى أوفيسنا - اشتراك المدير الشامل 12 شهر عرض منتدى أوفيسنا - اشتراك المدير الشامل 30 شهر

السلام عليكم ورحمة الله استخدم الكود التالى Sub TrMarks() Dim ws As Worksheet, Sh As Worksheet Dim Arr As Variant, Tmp As Variant Dim LR As Long, i As Long, j As Long, p As Long Dim ArCol Set Sh = Sheets("Table") Sh.Range("A11:AW" & Sh.Range("B" & Rows.Count).End(3).Row+11).ClearContents Set ws = Sheets("Mark All") LR = ws.Range("B" & Rows.Count).End(3).Row ArCol = Array(1, 2, 3, 4, 5, 6, 7, 13, 18, 19, 24, 29, 30, 35, 40, 41, _ 46, 51, 52, 57, 62, 63, 68, 73, 74, 79, 84, 85, 90, 95, 96, 101, 106, _ 107, 112, 117, 118, 123, 128, 129, 134, 139, 140, 145, 150, 151, 156, 161, 162) Arr = ws.Range("A9:FF" & LR).Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If True Then p = p + 1 For j = LBound(ArCol) To UBound(ArCol) Tmp(p, j + 1) = Arr(i, ArCol(j)) Tmp(p, 1) = p Next End If Next If p > 0 Then Sh.Range("A11").Resize(p, UBound(Tmp, 2)).Value = Tmp End Sub

السلام عليكم و رحمة الله دائما سباقين الى الخير فى ميزان حسناتكم ان شاء الله

بارك الله فيك دكتور محمد

وجدت هذا العمل الرائع في الانترنت منذ فترة وقدمه صاحبه مجاناً يرجو الدعاء لوالديه رحمهما الله تعالى :: بيانات صاحب العمل :: عبداللطيف طراقجي 2013و لغاية عام 2000 من عام ً مدرس تكنولوجيا المعلومات سابقا حاصل على شهادات في إدارة قواعد البيانات من شركة مايكروسوفت MCDBA SQLserver (Microsoft Certified Database Administrator) MOUS Access (Microsoft Office User Specialist) صفحته الشخصية My Certifications http://www.pinterest.com/abdotarakji/mycertifications هنا رابط التنزيل ولا تنسوني ووالديه وجميع المسلمين من دعائكم ،،،

يسرني ويسعدني أن أضع بين يديكم برنامج التدريب الالكتروني قمت بتصميمه من الصفر أخذ مني جهد ووقت كبير . استفدت من خبراء هذا المنتدى المبارك. لي طلب أن تدعو لوالدي وجميع مرضى المسلمين والمسلمات بالشفاء العاجل. هذا المشروع أضعه صدقة جارية لكل طالب علم ، و كل مشارك في هذا المنتدى . أسأل الله أن يتقبل منا ومنكم صالح الأعمال . ولا تنسونا من دعواتكم الصادقة في ظهر الغيب . اترك البرنامج لكم لتكتشفوا أسراره 😄 اضف مرفقات موجوده ProTraining20.zip

هل تحتاج ظهور التاسك مع برنامجك ... اذا كان لا ... ضع كود لاخفاء التاسك

السلام عليكم و رحمة الله و بركاته حساب عدد ذكور و عدد الاناث بحسب السن الملف مرفق بارك الله فيكم و جزاكم الله خيرا معلومات التلاميذ خاصة بدفتر الاحصاء.xlsx

بالتوفيق إن شاء الله تعالى

د.محمد طاهر عرفة السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا 🏵️ واحسن إليكم آمين 🏵️ اللهم إنا نسألك علماً نافعاً ورزقاً طيبا وعملا متقبلاً آمين يارب العالمين 🏵️.

وعليك السلام ورحمة الله أخي العزيز 🙂 حسب علمي لايوجد طريقة لتطبيق ذلك على ال List Box .. ولكن يمكن التحايل عليها بعمل نموذج فرعي من نوع عناصر متعددة .. ثم تقوم بعمل تنسيق شرطي للقيم بحيث يتم تلوينها كيفما تشاء 🙂 .

DoCmd.OpenReport RepName, acViewPreview, , "([Stu_ID]=[Stu_ID])" مع تغيير المسميات بما يتناسب معك

بعد اذن استاذنا الفاضل والقدير الاستاذ ضاحى ورغبة استاذى gamalin وطلبه للملف استاذن من الاستاذ ضاحى غريب ان اعطيه الملف بعد ما اصبح يعمل معى ZAD IPTV Subscription.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي ..اولا اسف على التاخير بسبب ظروف العمل .. السيارات(1).xlsm

اليك المثال المرفق اخي والمنقول من http://arabteam2000-forum.com/index.php?/topic/230499-اغلاق-نموذج-وفتح-نموذج-بالوقتj/#comment-1144604 ولو بحثت لوجدت في هذا المنتدى وغيره الامثلة الكثيرة اغلاق نموذج وفتح نموذج بالوقتj.rar

بارك الله فيكم ونفع بكم أستاذنا الفاضل

بارك الله فيكم دكتور محمد وزادك الله من فضله

اشكرك اخى ملاحظتك كان سديدة ..تم العمل ..بارك الله فيك وعليك

وعليكم السلام -على الرغم من كثرة طلباتك !!! - تفضل لك ما طلبت جدول 1المباريات.xlsx

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

وعليكم السلام ورحمة الله تعالى وبركاته هناك عدة طرق منها اختيار خانة معينة مثال لنفترض ان اسم الماكرو هو (Macro3) سيتم اعادة التشغيل للماكرو بشرط القيمة الموجودة في الخلية A1 Sub test1() Dim i As Long For i = 1 To Range("A1").Value Macro3 Next i End Sub كما يمكنك ادخال عدد التكرار يدويا بهده الطريقة Sub test2() Dim i As Long Dim N As Variant N = InputBox("اختر عدد مرات التكرار") If Not IsNumeric(N) Then Exit Sub For i = 1 To N Macro3 Next i End Sub اليك ملف للتجربة test_macro.xlsm

السلام عليكم تم التعديل على بعض المعادلات... أرجو أن تفي المطلوب... بن علية حاجي مناداه الجموعي وساجده.rar

بسم الله الرحمن الرحيم السلام عليكم اقدم هذا البرنامج البسيط برنامج : شئون العاملين (التربية والتعليم ) وهوا يهتم بكل ما يخص العاملين بالتربية والتعليم ووحدة التدريب بالمدرسة والبرنامج تم بمساعدة الاساتذة الكبار فى هذا المنتدى الجميل والذى لا ننكر ابدا فضل اساتذته الكبار بارك الله فيهم --------------------------------------- والبرنامج قابل للاضافة والتعديل فى مخرجاته وارجوا من الاساتذة فحص البرنامج وتحديد ان كان به اخطاء ام لا وفى النهاية تحية حب وتقدير الى جميع اعضاء هذا الصرح الجميل شئون العاملين.rar

وعليكم السلام مايكروسوفت تشجع المبرمجين بإعطائهم قوالب Templets جاهزة للعديد من برامج الاكسس ، لذا ابحث في الرابط التالي للحصول على ما تريد: https://access-templates.com/ اما انا ، فبحثت في جوجل عن "ms access templates schools" ، ثم من النتائج ، اخترت: https://access-templates.com/tag/school.html https://access-templates.com/tag/student+database.html جعفر

أخي الحبيب أبو عبد الملك إليك الملف التالي قم بالتجربة وإعطاء الملاحظات ..فيما يخص هذا الطلب وليس طلب جديد أما لو طلب جديد اطرح موضوع جديد لاحظ معي حجم الملف وتابع حجم الملف أولاً بأول (56.6 كيلو بايت) Sub GetDataUsingFind() Dim shData As Worksheet, shRecord As Worksheet Dim Cell As Range Dim X As Long Set shData = Sheets("سجل القيد"): Set shRecord = Sheets("معلومات التسجيل") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With shRecord .Range("A2:A1000,C2:E1000,G2:G1000,I2:I1000").ClearContents For Each Cell In .Range("B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Row) If Not shData.Columns("B:B").Find(Cell) Is Nothing And Not IsEmpty(Cell) Then X = Application.WorksheetFunction.Match(Cell, shData.Columns("B:B"), 0) Cell.Offset(, -1) = Cell.Row - 1 Cell.Offset(, 1) = shData.Cells(X, "C") Cell.Offset(, 2) = shData.Cells(X, "D") Cell.Offset(, 3) = shData.Cells(X, "E") Cell.Offset(, 5) = shData.Cells(X, "F") Cell.Offset(, 7) = shData.Cells(X, "I") End If Next Cell End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub تقبل تحياتي Quran School V1.rar