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

شوف ياباشا اللي خطر في بالي الان نح نعرف ان الويندوز بيعطي معرف لكل برنامج يشتغل معاه فلو حظنا كويس في الاكسس حنقدر نصيده عن طريق العمليات اللي شغالة وهنا فيه حل ممكن وهو اذا انت وافقت على التالي انه لايمكن تشغيل اي ملف اكسس مادام برنامجك مفتوح وشغال ؟ اذا موافق اصبحت العملية سهلة وهي عباره عن عداد بيشيك على عدد ملفات الاكسس المفتوحة فلو حصل 2 مفتوحة بيغلق الكل ؟ ايه رايك تحياتي

اهاه سؤال جديد كليا ... ما ادري اخ سلمان كيف نحلها بالاكسس لكن نفكر ونحزر تحياتي

في حدث عند فتح او عند تحميل اكتب هذا Me.caption = " اسم النموذج " اعمل قبل و بعد اسم فراغات كثيرة حتى بيناسب مع طلبك وحسب علمي ما تكدر تتغير نوع الخط او تكبير الخط او تغير لونه مع تقدير

السلام عليكم و رحمة الله وبركاته أرجو من الاخوة الكرام ان يساعدوني في تصميم برنامج بالاكسس في رصد درجات التلاميذ بارك الله فيكم اخواني * يوجد قسمين - قسم صيانة انظمة الاعلام الالي - قسم صيانة أنظمة التبريد و التكييف كل قسم فيه مستويين المستوى1 -السنة الاولى مستوى 1 -السنة الثانية مستوى 1 المستوى2 -السنة الاولى مستوى2 -السنة الثانية مستوى2 * يوجد 3 فصول للامتحانات الفصل 1 الفصل2 الفصل 3 كل فصل فيه نقطة الفرض1-نقطة الفرض 2- نقطة الاختبار حيث معدل المادة يحسب بالشكل التالي= (الفرض1+الفرض2+الاختبار)/4 المواد المدروسة في كل فصل هي الرياضيات معامل 2 الفيزياء معامل 2 اللغة العربية 2 الفرنسية 1 الانجليزية 2 تاريخ 2 حياة اجتماعية1 اعلام الي 2 تربية بدنية ورياضية2 حيث المعدل العام= معدل الفصل1+معدل الفصل2+معدل الفصل3/3 في انتضار رد الاخوة الكرام

اخ سلمان اىن لدي اوفيس 2013 . وقمت بعمل اختصار على سطح المكتب لملف اكسس في المستندات وقمت بتصغير البرنامج وعند النقر مرة اخرى على الملف من سطح المكتب لفتحه لا يقوم بعمل نسخة ثانية وانما ينشط المفتوحة ولكن لفتح نسختين لابد من فتح الاكسس اولا ثم تحديد الملف بشكل صريح لفتحه وهنا يتم فعلا فتح اكثر من نسخة مارايك ؟ وياليت الاخوه يجربو انسخ لديهم مشكورين وسؤال مهم : هل البرنامج يعمل على شبكة ام على جهاز واحد ؟

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

فكرة جميلة استاذ شيفن ويمكن تعوض عن المسافات بspace(20) 0 وهنا نقيس عرض النموذج ونشوف كم ال twips او inch يعادل كم من المسافة(الفراغ) ثم نطرح منه عدد حروف العنوان ثم نقسمه على 2 ونضعه مسافة من اليمين او من اليسار وبكذا باذن الله يكون باتي في الوسط ولكن فكرتك بالتجربة بوضع المسافات حتى تزبط مناسبة واعجبتني تحياتي

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

تفضل اخي الكريم Frame 2016.rar

شكرا

شكراً لك باقي شي اسمة splashreen اللي هو يطلع لي مربعة اذا فتحة البرنامج مكتوب فيه مثلاُ welcome to the system وزر موافق وبس

الزملاء الافاضل برجاء المساعده لتحويل الشيت الاكسيل المرفق الي برنامج اكسس مع عمل وجه دخول لكل مستخدم مع وجود طريقة لعمل البرنامج شير علي الشبكة بحيث يمكن دخول كل مستخدم علي البرنامج وادخال الملاحظة مع عمل صلاحية لكل مستخدم ووجود يوزر مدير للبيانات موضح بالملف المرفق المعادلة وطريق عمل الشيت Trackig Register 2016-6-1.rar

السلام عليكم ورحمة الله الحمد لله، تم عمل المطلوب في الملف المرفق (الذي يحوي الملفين معا) لكن ينبغي التنبيه على كتابة اسم الملف في الخلية B1 واسم الشيت في الخلية B2 بصورة صحيحة ومضبوطة... ويجب أن يكون "الرقم" خلية البحث (من الخلية A4) والأرقام في العمود B من الملف مصدر البيانات بالتنسيق نفسه دون اختلاف وإلا ستعطي المعادلات رمز الخطأ... هذا والله أعلم بن علية INQUIRY sheet.rar

جرب المرفق : TEL INDEX - alraqi.rar

وعليكم السلام ورحمة الله وبركاته اخي الحبيب الصور التي اضعها نماذج رسمية وانا رتبت الكتابات عليها طبعا استخدمت نماذج pdf ومشي الحال لكن اصبح البرنامج ثقيل جداااا ولا اعلم مالسبب هل هو من النماذج او الاستعلامات تقريبا عددها 10

::: welcome to The System

اذا ممكن شرح اكثر للبرنامج اي ماهي فائدة البرنامج او ماهي المخرجات وكذلك ماهي البيانات التي ستحفظ بالبرنامج بالتوفيق

بسم الله الرحمن الرحيم الساده الزملاء السلام عليكم ورحمته الله وبركاته رغم عدم تخصصى فى مجال الشيت كنترول الخاص بالمدارس ألا أنه ومن خلال موضوع شيت كنترول النقل لجميع مراحل التعليم الفني للقديرالفاضل أخى الاستاذ محمد على عبدالكريم " أبو براء " الذى كان له الفضل بعد المولى العلى القدير فى ادراك كافة مايتعلق بموضوع الشيت كنترول وخاصة بعد تجربة هذا البرنامج الفريد عمليا فقد جاءت جميع نتائجة وأومره سليمة 100% محتسبا هذا العمل فى موازين حسناته فأحببت أن أتقدم لسيادته ولجميع الساده الزملاء المهتمين بهذا الموضوع والى حضراتكم هذا المرفق وهو عباره عن فوروم يمكنك التنقل من خلاله بين أوراق العمل دون إضهار باقى الاوراق أرجو من الله تعالى أن يكون فيه النفع للجميع جزاكم الله خيرا ... تقبلوا جميعا وافر احترامى وللموضوع بقيه بحول الله تعالى

شكرا جزيلاً للرد تحيتي واحترامي لحضرتك

اخي الملف لا يمكن تحميله

لازلت في انتظار الجواب على السؤال اعلاه ، لأنه سيفيدنا في جلب التاريخ الناقص في التقرير (انظر المربع الاحمر في الصورة الاخيرة): الاستعلام التالي تم اخذه من التقرير rpt_Follow4 وتحويله من SQL الى استعلام . ونتائجه 32 سجل . جلبت احد الجداول التي استعملها في الكثير من برامج ، tbl_Months ، وفيه ايام الاسبوع حسب ترقيمهم في الكود . عملت استعلام جديد فيه جميع ايام الاسبوع (ما عدا الجمعة والسبت والسجلات الفاضية) ، ولجلب eSIS من tbl_Follow4 ، وبما اننا سنحتاج الى الاسم ايضا ، فاضطررنا لإستخدام الجدول StudentNames . والنتيجة فيها الايام التي نريدها (الايام التي لا يكون فيها الطالب غائب او متأخر) ، لاحظ عندنا 35 سجل . والان الى الاستعلام الذي سيربط الاستعلامات السابقة ، ولاحظ العلاقة بين الاستعلامات . ونتيجته ، ورجاء الملاحظة اننا من الان سنعتمد على الحقل eSIS وليس IDnum في التقرير . والان نحن بحاجة الى تعديل في التقرير قليلا ليتماشى مع المتغيرات . والنتيجة النهائية للتقرير ، وستلاحظ ان التاريخ غير موجود (طبعا غير موجود ، لأن البرنامج يسجل تاريخ الغياب و التأخير) ، فاذا اردنا الحصول على هذا التاريخ ، فيجب الاجابة على سؤالي في المشاركة السابقة . جعفر 459.1.AbsentLate 2016.accdb.zip

اشكرك اخي حامد للاهتمام والرد بارك الله فيك حملت البرنامج وجربته وهو ممتاز تعرف على الغة العربية واظهرها سليمة عند تجربته واظهاره بقارئ الكيوار كود الخارجي ولكن لم استطع ان ادمجه في برنامج الاكسس ناهيك انه يمكن ادخال معلومه واحدة وليس معلومات متعددة كما هو الحال في المثال المرفق السابق . اعتقد ان المشكلة تتمثل في نوع الخط فالخط المستعمل في المثال وهو MW6 Matrix الذي لايدعم اللغة العربية بحث في عشرات المواقع عن خط يدعم اللغة العربية وعلى مدى اكثر من سنه ولكن لم اوفق ... الله المستعان شكرا لك مره اخرى اخي حامد

الرابط الاول: في الرابط الذي شاركت فيه انت ، الاخ ابومحمد اشار عليك: وقال انه يعمل على طابعه مشابهه ، فليش ما اكملت الموضوع معاه؟ نصيحتي انك ترجع للموضوع السابق وتواصل معاه ليش هالنصيحة؟ انظر الرابط الثاني ، وطوله 3 صفحات ، منهم صفحة ونص ، انا احاول اوجد الحل معاه (من جهة الاكسس وليس من جهة الطابعة ، لأن اعتقادنا كان ان المشكلة من الاكسس) ، هذه كانت مشكلتي انا ، لأني ماعندي خبرة في الطابعة ، الى ان اتضح ان المشكلة في اعدادات الطابعة ، وانت اقرأ باقي الرابط. فأنا ضيّعت وقت الاخ حسين ، بينما لو كنت اعرف الطابعة ، لعرفت المشكلة وين وهذا أخونا ابومحمد عنده خبرة ماشاء الله عليه ، فواصل معاه على الرابط السابق ، وان شاء الله تلقى الحل جعفر

اسال الله لي و لك التوفيق و السداد .. تحياتي اخي محمد سلامة

أخي الكريم أبو حنين قم بتعديل المعادلة في الخلية H5 لتكون بهذا الشكل =IF(AND(E5>$D$1-1,E5<$D$2+1),IF($G$1="",$C5,$C5&$F5),"") وفي الكود قم بإضافة السطر التالي If IsEmpty(Range("D3")) Then WS.AutoFilterMode = False: Exit Sub بعد السطر Application.ScreenUpdating = False جرب وشوف النتائج لاحظ أن غيرك عمل إعجاب في المشاركة رقم 2 رغم إنه مش صاحب الموضوع (يا أخي الكسل وحش أوي ,,,) تقبل تحياتي

الأخ الكريم ابو حنين مشكور على التوضيح التام للمطلوب .. هكذا يكون التوضيح إليك الملف التالي (تم الاستعانة بعمود مساعد لجمع الشروط) العمود المساعد هو العمود H إليك الكود مع شرح الأسطر لتتمكن من التعديل عليه Sub MultipleCriteriaFilter() 'يقوم الكود بفلترة البيانات طبقاً لعدة شروط '[H5] لتسهيل العمل تم عمل معادلة في العمود الثامن '=IF(AND(E5>$D$1-1,E5<$D$2+1),C5&F5,"") 'المعادلة تتحقق من وقوع التاريخ بين تاريخي الشرط ، فإذا تحقق 'ليشمل الشروط الأخرى [F5] و [C5] يتم ربط النصوص في الخلايا '------------------------------------------------------------ 'تعيين المتغيرات Dim WS As Worksheet Set WS = Sheets("General") 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'بدء التعامل مع ورقة العمل With WS 'إزالة الفلترة إذا ما كانت موجودة مسبقاً .AutoFilterMode = False 'الفلترة بناءً على العمود الثامن أي العمود المساعد .Range("A4:H4").AutoFilter field:=8, Criteria1:=Range("H3").Value End With 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub ** لا تنسى أن تحدد أفضل إجابة من خلال الضغط على كلمة "تحديد كأفضل إجابة " ؛ ليظهر الموضوع مجاب ومنتهي. ** لا تنسى أن تضغط كلمة "أعجبني" (الأمر لن يستغرق منك ثواني) ---> (أمضيت من وقتي وقتاً ليس بالقليل .. فاضغط ولا تكن بخيل) تقبل تحياتي Filter Data By Multiple Criteria YK.rar

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