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

مشاركة مع استاذي @د.كاف يار ضع تحت معيار SelectedPrice >[UnitPrice]

تفضل [TexBox1].ForeColor = RGB(0, 0, 128) ' التحكم بلون الخط [TexBox1].FontBold = False ' عرض الخط عادي [TexBox1].FontBold = True ' عرض الخط سميك هذا موقع لمكتبة الألوان مفيد جدا مكتبة الألوان RGB

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

السلام عليكم ورحمة الله وبركاته .. تحية طيبة إخواني .. 🌹 أحضرت لكم اليوم كود وظيفته استخراج الملفات المخزنة في جداول الأكسس كمرفقات داخلية إلى خارج قاعدة البيانات دفعة واحدة 🙂 وهو مفيد جدا لمن لديه قاعدة بيانات قد ملئها بالمرفقات ويحاول الآن تصغير القاعدة باستخراج المرفقات منها وحفظها خارج قاعدة البيانات بسهولة ويسر .. بدل حفظها ملف ملف وهي عملية مرهقة بالتأكيد .. خصوصا إذا كان عدد المرفقات بالمئات .. إليكم الكود : Public Function ExtractAllAttachments(ByVal TableName As String, ByVal AttchmentColumnName As String, ByVal ExtractToFolder As String) ' TableName : اسم الجدول ' AttchmentColumnName : اسم حقل المرفقات ' ExtractToFolder: المكان المراد استخراج الملفات إليه مثال : "C:\ExtractHere" Dim RsMainrecords As dao.Recordset2 Dim RsAttachments As dao.Recordset2 Set RsMainrecords = CurrentDb.OpenRecordset("select " & AttchmentColumnName & _ " from " & TableName & _ " where " & AttchmentColumnName & ".FileName is not Null") Do Until RsMainrecords.EOF Set RsAttachments = RsMainrecords.Fields(AttchmentColumnName).Value Do Until RsAttachments.EOF Dim OutputFileName As String OutputFileName = RsAttachments.Fields("FileName").Value OutputFileName = ExtractToFolder & "\" & OutputFileName RsAttachments.Fields("FileData").SaveToFile OutputFileName RsAttachments.MoveNext Loop RsAttachments.Close RsMainrecords.MoveNext Loop RsMainrecords.Close Set RsMainrecords = Nothing Set RsAttachments = Nothing End Function ويتم تشغيله بالطريقة التالية : ExtractAllAttachments("TableName","AttchmentColumnName","ExtractToFolder") ستحتاج لإعطائه 1- اسم الجدول ، 2 - اسم الحقل ، 3 - المكان الذي تريد استخراج المرفقات فيه . المصدر : https://www.youtube.com/watch?v=jHIgay9goWo

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

فورم اكسل لانبياء الله ورسله باستخدام ال MultiPage الصفحات المتعددة تحميل الملف قصص الانبياء.xlsm قصص الانبياء.rar

تمت اضافة مفتاح رئيسي للحقلين كما في الصورة

جرب هذا التعديل الدائن و المدين.zip

في المعيار ضع التالي Like "*" & "خصم" & "*" مرفق الملف بعد التعديل 1042371728_RubberSalse.zip

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

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

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

السلام عليكم ورحمة الله بعد عودة المنتدى مرة اخرى شيت كنترول الصف الاول بعد اعادة ترتيب مادة الجغرافيا مما استلزم اعادة الترتيب لحوالى خمس اوراق اخرى و تعديل ما يقرب من عشر اكواد كنترول اولى.xlsm