كل الانشطه

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق عند فتحه يظهر فورم عند اختيار الفصل الدراسي والفئة والصف ( نختار مثلا الصف السادس ) محتاج عند الضغط علي زر كشف لجنة يأخذ التقرير لجنتين ( لجنة 1 و لجنة2) والصفحة التالية تأخذ لجنة3 ولجنة 4 وهكذا .... Data19.rar

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق عند فتحه يظهر فورم عند اختيار الفصل الدراسي والفئة والصف ( نختار مثلا الصف السادس ) محتاج عند الضغط علي زر كشف لجنة يأخذ التقرير لجنتين ( لجنة 1 و لجنة2) والصفحة التالية تأخذ لجنة3 ولجنة 4 وهكذا .... Data19.rar

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

للرفع

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

السلام عليكم اخوي موسى ، فكرة جملية وتنفيذ اجمل ، شكرا لك.

تفضل استاذ @ابو عبد الله العراقي محاولتي حسب مافهمت بالمرفق مع بعض التعديلات والاضافات مجرب ويعمل تمام . ووافني بالرد . Users-1.rar

الله الله الله اسم الموضوع بيفكرني بكتب العقيدة والدين 😂 سلمت ايديك على التحفه (وكل اعمالك رائعه ما شاء الله) بص انا عاوز منك تفتح موضوع يخص اختيار الالوان وكيف نختارهم وندمجهم معهم ^_^

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

السلام عليكم ورحمة الله وبركاته شكرا لمرورك وتوضيحك ولك جزيل الشكر على الترحيب الفكره ان التقرير طوله محدود ب (55) حسب المسطره الجانبية , ولدي خانات بالجدول اريد اضافتها ايضا . ارفقت لك صورة ارجو ان تكون واضحة الفكره

إن شاء الله بس المطلوب في الملف غير المطلوب في الرسالة على العموم مرفق ملفين اختر ما يناسبك ترتيب الطلاب(2).xlsm ترتيب الطلاب(3).xlsm

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

وعليكم السلام ورحمة الله وبركاته أخي الكريم، كلماتك غمرتني بفيض من المشاعر الطيبة، ولا يسعني إلا أن أحمد الله على هذا الودّ الخالص في الله، وعلى هذا الدعاء النبيل الذي لامس القلب قبل العين. أسأل الله أن يرفع قدرك، ويشرح صدرك، ويبارك فيك وفي أهلك وذريتك، وأن يرزقك سعادة الدارين، ويجمعنا دائمًا على طاعته وفي ظله يوم لا ظل إلا ظله. رحم الله من دعا لهم قلبك، وأسكنهم فسيح جناته، وجعل دعاءك لهم ولنا شاهدًا لك يوم تلقاه، وكتب لك من كل حرف كتبته نورًا يضيء دربك في الدنيا والآخرة. أحبك الله الذي أحببتنا فيه، وجمعنا وإياك على الخير، وفي الجنة على سررٍ متقابلين

ما شاء الله ، تحديث جميل للجزئية الهامة عند كتابة جمل SQL ، جزاكم الله كل خير مهندسنا الغالي

ترتيب العشرة اوائل للطلاب بشروط وهي: 1- الاكبر مجموع والاصغر سنا وحرف الهجاء لة الاول اي (أ) ترتيب الطلاب.xlsm

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل في منتدى اوفيسنا : اريد التحكم في صلاحيات المستخدمين في قاعدة البيانات المرفقة من حيث الإضافة او الحذف او التعديل لذلك قمت بعمل نموذج يحتوي على combo box مصدره حقل المستخدمين من جدول المستخدمين واضفت إلى هذه النموذج نموذج فرعي يحتوي علي صلاحيات المستخدمين مصدره أيضا جدول المستخدمين وقمت بربط اسم المستخدم في هذا النموذج الفرعي باسم المستخدم في الــcombo box بحيث عندما اختار اسم المستخدم من الcombo box تظهر صلاحياته في النموذج الفرعي واقوم بتغيير أي صلاحية من هذا النموذج الفرعي لحد الان ماكو أي مشكلة . السؤال هو عندما قمت بوضع button في النموذج الرئيسي لكي يقوم بعملية التراجع عن اجراء أي تعديل أقوم به في صلاحيات المستخدمين علما اني وضع الكود التالي : Me.Usertbl_subform.Form.Undo في حدث on click لهذا الـــbutton . فما هي المشكلة ان الكود لا يعمل تراجع ؟؟؟ هو من الممكن ان أقوم بعملية التراجع بإزالة علامة الصح يدويا من الــcheck box لكن بصراح اود معرفة سبب عدم عمل هذا الكود كذلك اريد التحكم بالنموذج الفرعي من خلال button في النموذج الرئيسي لا نه يستخدم في السؤال في ما اذا اريد الحفظ او التراجع ؟ ارجو المساعدة في هذا الموضوع ؟ وجزاكم الله خير الجزاء Users.rar

وعليكم السلام 🙂 عدل كود فتح التقرير هكذا : DoCmd.OpenReport "rprepnu2", acViewPreview, , "[lagnano] >= " & Nz(Me.tt1, 0) & " And [lagnano] <= " & Nz(Me.tt2, 0), acNormal lagna2.accdb

جزاكم الله خيـــــــــرا

السلام عليكم هل يمكن استعمال الكود بدلا من الاستعلام مرفق مثال ا؟يد استعمال الزر الثاني لفتح التقرير بالرقم بين tt1 و tt2 lagna2.accdb

السلام عليكم ورحمة الله وبركاته هذا تحديث بسيط ومهم في نفس الوقت على هذه الأداة الجميلة 🙂 ( عون المثابر في الحصول على أسماء العناصر (الإصدار 3.0)) كما علمتم هذه الأداة صممتها بفضل الله في أكسس تقوم بإحضار وسرد أسماء العناصر لك لكي تستطيع نسخها ولصقها في أي مكان تريد بكل سهولة ويسر 🙂 شخصيا أستفدت كثيرا منها وسهلت علي الكثير من الجهد وقلصت من وقت العمل بحمد الله وفضله. :: ما الجديد في النسخة 3.0 :: تم إضافة خانة في الأخير خاصة بالجداول فقط .. : وهي عند اختيار الجدول يتم كتابة جمل SQL أستعلامات أساسية للجدول المختار مع ذكر أسماء حقول الجدول مع مراعاة أنواع الحقول وكتابتها بشكل سليم في الكود .. طبعا الأداة ستعطيك الجمل الاستعلامية الأربعة SELECT, INSERT INTO, UPDATE ,DELETE والكود الناتج جاهز للصقه مباشرة في محرر الأكواد VBA .. عليك فقط أن تقوم ببعض التعديلات الطفيفة كإزالة الحقول الزائدة أو الغير مستهدفة وكذلك تحديد الشرط Where في حال التحديث أو الحذف مثلا . :: لقطة للنسخة 3.0 :: وهذا مثال على جمل ال SQL الناتجة : ' SELECT statement Dim sqlSelect As String sqlSelect = "SELECT [ID], [First Name], [Last Name], [Gender], [Age], [Email], [Phone], [Education], [Occupation], [Salary], [StaffNumber], [IsActive], [DOB]" sqlSelect = sqlSelect & vbCrLf & " FROM [SampleTable]" '============================================================ ' INSERT INTO statement Dim sqlInsert As String sqlInsert = "INSERT INTO [SampleTable] ([ID], [First Name], [Last Name], [Gender], [Age], [Email], [Phone], [Education], [Occupation], [Salary], [StaffNumber], [IsActive], [DOB])" sqlInsert = sqlInsert & vbCrLf & " VALUES (" & var_ID & ", '" & var_FirstName & "', '" & var_LastName & "', '" & var_Gender & "', " & var_Age & ", '" & var_Email & "', '" & var_Phone & "', '" & var_Education & "', '" & var_Occupation & "', " & var_Salary & ", " & var_StaffNumber & ", " & IIf(var_IsActive, -1, 0) & ", #" & var_DOB & "#)" '============================================================ ' UPDATE statement Dim sqlUpdate As String sqlUpdate = "UPDATE [SampleTable]" sqlUpdate = sqlUpdate & vbCrLf & " SET [ID] = " & var_ID & ", [First Name] = '" & var_FirstName & "', [Last Name] = '" & var_LastName & "', [Gender] = '" & var_Gender & "', [Age] = " & var_Age & ", [Email] = '" & var_Email & "', [Phone] = '" & var_Phone & "', [Education] = '" & var_Education & "', [Occupation] = '" & var_Occupation & "', [Salary] = " & var_Salary & ", [StaffNumber] = " & var_StaffNumber & ", [IsActive] = " & IIf(var_IsActive, -1, 0) & ", [DOB] = #" & var_DOB & "#" sqlUpdate = sqlUpdate & vbCrLf & " WHERE [SomeField] = SomeValue" '============================================================ ' DELETE statement Dim sqlDelete As String sqlDelete = "DELETE FROM [SampleTable]" sqlDelete = sqlDelete & vbCrLf & " WHERE [SomeField] = SomeValue" الشرح القديم للأداة على اليوتيوب 🙂 متابعة ممتعة 😊👌🏼 ولا أستغني عن آراءكم وملاحظاتكم .. 🙂 لتحميل الملف :

اسأل الله العظيم رب العرش العظيم أن يشفيه شفاء لا يغادر سقما طهور ان شاء الله

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

ربنا يبارك في عمرك وفي صحتك

قد تكون سهواً عند تعديل الاستعلام وخرجت تسلسلاً mgmo1 > mgmo2 .... .