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

وعليكم السلام الظاهر ان هذه مشكلة موجودة في الاكسس 2016 ، حسب كلام الموقع http://blog.fmsinc.com/microsoft-access-2016-and-invisible-picture-images/ وقد اصدرت مايكروسوفت تصحيح لهذه المشكلة ، ويمكنك انزاله من هنا (حسب نوع الاكسس اللي عندك 32بت او 64بت): https://support.microsoft.com/en-us/kb/3114379 جعفر

تم اضافة الاصدار الخامس - سبتمبر 2012 إسم الملف: مُجمِع البيانات للاكسيل - Excel Data Collector أضيف للمكتبة بواسطة: محمد طاهر تاريخ الإضافة: 12 Sep 2011 القسم فى المكتبة: قسم الإكسيل هذا التطبيق يقوم بتجميع البيانات من كافة ملفات الاكسيل الموجودة فى مجلد معبن وفق مجال الخلايا الذي يتم تحديده خطوات الاستخدام ضع كافة الملفات المطلوب تجميع البيانات منها فى مجلد واحد حدد مسار المجلد و مجال الخلايا المطلوب تجميع البيانات منها قم بتشغيل التطبيق من زر Get Data ، سيتم تجميع البيانات من كافة الملفات فى ملف جديد ميزة اضافية اذا اردت استخدام التطبيق اكثر من مرة على عدة مجلدات ، فتوفيرا لخطوات اختيار المجلد المستهدف ، يمكن تحديد مجلد بدء الاختيار الافتراضي، ليبدا اختيار المجلدات منه فى كل مرة أثناء استخدام الملف بدلا من البدء من My Computer . و يمكن عمل ذلك بتحرير الخلية مباشرة ، فمثلا نكتب المسار d:\data الاصدار الثاني إضافة امكانية تحديد ورقة عمل محددة داخل الملفات باسمها ، اكتب اسم ورقة العمل او اتركها خالية للعمل افتراضيا على ورقة العمل الاولي فى جميع ملفات المصدر الاصدار الثالث تم اضافة المزايا التالية : 1- استخدام نموذج بدل من الازرار المباشرة نظرا لاضافة خيارات عديدة ، و يتم تسجيل مسار المجلد و اسم ورقة العمل و المجال المطلوب للخلايا المراد تجميع البيانات منها فى الحقول المناظرة. 2- فى حال عدم تسمية ورقة العمل سيتم التجميع من ورقة العمل الاولي فى جميع المفات داخل المجلد. 3- اضافة تلميحات tips بالعربية عند الوقوف بالماوس على الحقل للتوضيح. 4-امكانية اختيار تجميع البيانات فقط أو تجميع البيانات و التنسيق معا من ملفات المصدر الموجودة داخل المجلد المختار. 5- امكانية اختيار اظهار او اخفاء امتداد اسماء الملفات عند وضعها كعنوان للبيانات فى الملف التجميعي. 6- امكانية السماح بتكرار اسم الملف عند وجود اكثر من عمود يتم استخراجه من نفس الملف ، او الاكتفاء بخلية واحدة مع دمج العناوين. 7- اضافة اطار خارجي يوضح بيانات كل ملف الإصدار الرابع - تنقيح و ترتيب داخلي للكود - تعديل واجهة الاستخدام - امكانية استخراج البيانات دون فتح ملفات المصدر كخيار اضافى ، على أن يتم ذلك دون جلبها بنفس تنسيق المصدر. و هنا يوجد خياران للتشغيل الخيار الأول ، و هو الخيار الأصلي Get Data While Opening Files و به كافة الامكانيات فى الاصدار الثالث ، و امكانية عدم تحديد اسم ورقة العمل ليعمل على أول ورقة عمل فى الملفات الخيار الثاني و المضاف فى هذا الاصدار كخيار اضافي يستخدم عند الحاجة و به بعض المحدودية Get Data Without Opening Files و هنا يتم استخراج البيانات دون فتح ملفات المصدر ، و ذلك بهدف تسريع الاستخدام فى حالة الملفات الكثيرة و كبيرة الحجم و هنا خيار جلب التنسيق للخلايا غير مفعل ، و ايضا لابد من تحديد اسم ورقة العمل و الخيار كله اضافى حيث يغطي الخيار الأول خيارات أكثر الإصدار الخامس تم اضافة خيار امكانية استخراج البيانات بطريفة افقية ( بيانات الملفات المختلفة تظهر فى صفوف ) كخيار بديل و ليس رأسيا فقط ( أعمدة) مثل الاصدارات السابقة إضغط هنـــــــــــا لتنزيل الملف

بسم الله الرحمن الرحيم كنترول شيت المرحلة الإعدادية المصرية إصدار الثلاثاء 20 / 12 / 2011 م أرجو من كل من قام بتحميل إية إصدارات سابقة للبرنامج أن يقوم مشكوراً باستبدالها بهذا الإصدار حيث كلن هناك بعض أخطاء في الإصدارات السابقة و تم إصلاحها جميعاً في هذه النسخة الجديد في هذا الإصدار تم إضافة نتيجة نصف العام بالتفصيل حسب طلب أحد الأخوة الأفاضل و يمكنك الحصول على هذه النتيجة من زر خاص بذلك في صفحة النتيجة و الجديد أيضاً تطوير خلايا رصد درجات المنازل لتقبل كتابة حرف غ مكان الطالب الغائب تماماً مثل خلايا رصد الطلاب المنتظمين مع إمكانية اختيار اللغة الأجنبية الأولى و اختيار أو إلغاء اللغة الأجنبية الثانية و تحديد أو إلغاء اللغة الأجنبية الثانية كمادة نجاح و رسوب بالإضافة إلى إضافة زر لكل صفحة بطاقات درجات تيرم أول و تيرم ثان يجعل البطاقات بالتقديرات فقط بدون الدرجات و زر آخر يجعل البطاقات بالتقديرات مع الدرجات و أيضاً صفحة بدرجات التيرم الأول و الثاني قابلة للطباعة لكل فصل من الفصول حسب اختيارك البرنامج يشمل الجمع بين شيت النتيجة الإجمالي للطباعة على مقاس الورقة العادي و شيت النتيجة التفصيلي المطلوب في بعض الإدارات التعليمية للطباعة على مقاس ورق كبير ( مقاس الشيت الورقي الكبير القديم ) مع فصل المنازل عن المنتظمين في الرصد و في النتيجة يمكنكم استخدام الشيت سواء أكانت اللغة الثانية مضافة في مدرستكم أم غير مضافة إذا كانت اللغة الثانية غير مضافة في مدرستكم فعليكم تحديد ذلك من صفحة Control الملف به شيت للدور الأول 500 اسم و شيت للدور الثاني 200 اسم تم التطويربالكامل و التعديل حسب القرار الوزاري 313 الخاص بإلغاء ملف الإنجاز و تعديل درجات التقويم الشامل البرنامج يعطيكم كل المخرجات اللازمة للعمل في الكنترول عند فتح الشيت سيطلب منكم باسوورد باسوورد فتح الشيت هي 1962 في الشيت إضافات أخرى منها إمكانية تعديل درجات النهايات العظمى والصغرى للمواد إضافة كشوف توزيع الطلاب على لجان الامتحان و هي كشوف المناداة أو كشوف اللجان بأسلوب جديد و تنسيق جاهز للطباعة إضافة كشوف رصد الامتحانات العملي إضافة صفحة تحويل تاريخ الميلاد من خانة واحدة إلى 3 خانات لليوم و الشهر و السنة ليمكن استخدامها في الشيت لمن لا يرغب في كتابة التاريخ في 3 خانات بنفسه إضافة صفحة لعمل تيكيتات ( لاصقات ) أرقام الجلوس ملاحظة هامة إذا كان عندك طلاب منازل لا تحاول تسجيل بياناتهم في صفحة تسجيل بيانات الطلاب المنتظمين و لكن سجل بياناتهم و ارصد درجاتهم أيضاً في صفحة رصد المنازل التحميل من هنا - ميديا فاير من هنا - اختر السيرفر المناسب

السلام عليكم ورحمة الله وبركاته : كل عام وأنتم بخير ، وأسأل الله سبحانه وتعالي أن تكونوا بأفضل حال . قد يرغب بعضنا في تفعيل أكثر من كود مرة واحد من خلال ضغطة زر ، بمعني دمج أكودين أو أكثر في كود واحد ولتفعيل ذلك فهذا كود لدمج أكثر من كود في كود واحد : فإذا تم الضغط على الزر المرتبط بهذا المايكرو سينفذ الأكواد المرتبطة به مباشرة سواء في نفس الشيت أو في المصنف بأكلمه : Sub abuabood() Application.Run "name" Application.Run "name" End Sub يجب أن يتم تغيير كلمة ( name ) إلى اسم الكود الخاص الذي تريد إضافته ملاحظة : في الكود السابق يتم تفعيل كودين مع بعض مباشرة ، وإن رغبت بإضافة كود ثالث أضف : "Application.Run "name" وهكذا .. قد يكون هناك حل أكثر تطورا لخبرائنا في المنتدى ، ولكن هذا قد يفيد المبتدئين أمثالي تحيتي للجميع وللأخ الغالي ياسر أبو البراء

جرب هذا الملف يمكنك اختيار التصفية حسب الاسم / اسم الاب / او اسم الام القوائم المنسدلة في الخلايا E1 I1 & M1 مطاطة (تستجيب لأي تغيير في البيانات ولا تذكر المكرر الا مرة واحدة تتسع لغاية 100 اسم) ويمكن الزيادة عسى ان يكون المطلوب تحياتي Nam_Pap_Mam.rar

بالنسبة للصف الخامس عشر تمام .. لكن لم تظهر لي مشكلة الرقم كنص .. جرب Private Sub Modifier_Click() Dim LI As Integer Dim I As Byte Set O1 = Sheets("ARCHIVE") If Me.ListBox1.ListIndex = -1 Then Exit Sub LI = ListBox1.Column(0, ListBox1.ListIndex) For I = 1 To 8 O1.Cells(LI + 13, I + 1).Value = Me.Controls("TextBox_" & I): Me.Controls("TextBox_" & I).Value = "" Next I Me.ComboBox1.Value = O1.Cells(LI, 2).Value Call ComboBox_1 End Sub

شكرا أستاذي جربت الكود ولم يفلح تفضل الملف الاصلي ARCHIVE.rar

اخي الفاضل .. لم ترفق لنا مثال لكي نطبق ونقوم بالتجربة .. لكن جرب الكود الاتي لعله يفي يحل المشكلة Private Sub Modifier_Click() Dim LI As Integer Dim I As Byte Set Ws = Sheets("ARCHIVE") If Me.ListBox1.ListIndex = -1 Then Exit Sub LI = ListBox1.Column(0, ListBox1.ListIndex) For I = 1 To 7 O1.Cells(LI, I + 14).Value = CInt(Me.Controls("TextBox" & I)): Me.Controls("TextBox" & I).Value = "" Next I End Sub

العفو العفو اخي الكريم عامر ... لو وزعت هذه الكلمات علي اعضاء المنتدى لكفتهم .. بارك الله فيك

وعليكم السلام وحياك الله جعفر

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

تم تعديل الكود .. لاحظ الفرق في الصف الاول المظلل بالاصفر درجة القرار (5 درجات ).rar

مرحبا جرب المرفق الكشف المجمع.rar

جرب الملف تنظيم المعاملات 3.rar

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

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

وعليكم السلام اذا كان اسم الحقل الذي تريد نسخ المعلومة التي فيه Text0 ، فيصبح الكود: Me.Text0.SetFocus DoCmd.RunCommand acCmdCopy والان تستطيع ان تلصق هذه القيمة في اي برنامج جعفر

والدالة لأكثر من شرط ، وبطريقة سهلة: كل نوع من انواع الحقول له طريقة معينة للتعامل معه في الكود ، وهذا يجعل كتابة كود بأكثر من شرط ، صعب نوعا ما ، لذلك ، الطريقة التي اقترحها هي في التعامل مع كل نوع بسطر مستقل (انظر للمثال في الاسفل) ، مما لا يدع مجال للخطأ في السطر ، ثم نجمع الاسطر في سطر واحد ، وهذا السطر يكون مجموع الشروط : myCriteria = "[detach]='موظف'" myCriteria = myCriteria & " Or [iDate]=#29-05-2015#" myCriteria = myCriteria & " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria = myCriteria & " Or [EmployeeID]=" & Me.EmployeeID 'myCriteria = myCriteria & " Or [ID]=12" a = DLookup("[myID]", "tbl_Employees", myCriteria) او myCriteria_1 = "[detach]='موظف'" myCriteria_2 = " Or [iDate]=#29-05-2015#" myCriteria_3 = " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria_4 = " Or [EmployeeID]=" & Me.EmployeeID myCriteria_5 = " Or [ID]=12" myCriteria = myCriteria_1 & myCriteria_2 & myCriteria_3 & myCriteria_4 & myCriteria_5 a = DLookup("[myID]", "tbl_Employees", myCriteria) والشرح 'في الاسطر، ممكن استعمال والخلط بين 'Or او And 'كما يمكن استعمال اي سطر، و عدم استعمال اسطر اخرى، اي يمكن الخلط في استعمال الاسطر 'للمتغيرات الثابته 'نص myWhere = "[detach]='موظف'" myWhere = myWhere & " Or [ID]=12" 'رقم myWhere = myWhere & " Or [iDate]=#29-05-2015#" 'تاريخ 'للمتغيرات myWhere = myWhere & " Or [Employee_Name]='" & Me.Employee_Name & "'" 'نص myWhere = myWhere & " Or [EmployeeID]=" & Me.EmployeeID 'رقم myWhere = myWhere & " Or [Payment_Month]=#" & Me.txtMonth & "#" 'تاريخ a = DLookup("[myID]", "tbl_Employees", myWhere) جعفر

اضافة بسيطة هنا : expr هو تعبير اي ممكن اسم حقل او اي تعبير مقبول مثلا [qty]*[unitprice] وهنا ميزة اضافية وكل هذا ينطبق على جميع دوال المجال ! dsum,dcount,dfirst ! مشكورين

ومزيدا فى الخير بعد حلول أخوتى الرائعة الحلول مجتمة ، مع معادلة صفيف أى لابد من الضغط فيها على " ctrl+shift+enter " لتكوين هذان القوسان حتى تفعل " {} " الصيغة الأولى : معادلة الصفيف {=SUM(IF($A$2:$A$20=I2,$B$2:$B$20))} الصيغة الثانية: =SUMIF($A$2:$A$20,I2,$B$2:$B$20) الصيغة الثالثة: =SUMPRODUCT(--($A$2:$A$20=I2),$B$2:$B$20) تقبلوا تحياتى