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

روعة يا استاذ انا جربت و نجحت 100% وهذا الملف بها ذاك الكود خلي يجربون بيفتحون اكثر من مرة في ان واحد تشغيل برامج اكسس لمرة واحدة على جهاز في ان واحد.rar

السلام عليكم هناك كود قريب من فكرتي السابقة وبالرابط http://access.mvps.org/access/api/api0041.htm ولكن طلعت بفكرة اخرى لا اعلم جدواها وهي عبارة عن ان برنامجي لايعمل الا لوحده ! اي لايمكن ان يعمل مع نسخ اخرى من الاكسس وبكذا لن يقبل ان افتح اكثر من نسخة واصبح الكود بشكل سهل والى حد ما رمهاني وهو بوضعه في حدث عند التحميل للنموذج الرئيسي وطبعا سيكون اول اسطر الاكواد ان وجدت بنفس الحدث Private Sub Form_Load() If GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_Process where Name ='msaccess.exe'").Count > 1 Then MsgBox ("i can work alone"): DoCmd.Quit acQuitSaveAll End Sub هذا واتمنى ان حصلت الفائدة اخ سلمان واحبتي جميعا وهذا ويمكن تدوين ملاحظات او اقتراحات للنحسين تحياتي للجميع

لا داعي على رحب وسعة .. انت استاذي نتعلم منكم يا استاذ هذا المنتدى منورة بوجودكم يا استاذ

والله ياخ احسام انا اتمنى ان ادارة المنتدى تضع خيار للعضو بان يعلن عن برامجه ولو بصور فقط وتحت صفحته الخاصه

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

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

الأخوة الأفاضل أعانكم الله علي فعل الخيرات هذا ما وجدته ولمسته في هذا المنتدي الكبير من الأخوة الكرام وقد ترددت كثيراً قبل أن أقوم برفع طلبي هذا إلي حضراتكم ولكن ما شجعني هو أنه عمل خيري وأعتبره صدقة جارية لكل من ساهم في تصميم هذا البرنامج المطلوب :- تصميم برنامج إدارة جمعية خيرية أولاً . أنا أستطلع رأيكم فإن وافقتكم سأرفق لكم التفاصيل المطلوبة في البرنامج وإن رفضتم فجزاكم الله حيراً وأنا أحترم وأقدر مجهوداتكم .

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم مع تحياتي اخيكم // ضاحي الغريب برنامج الايجارات الاصدار الثاني - ضاحي الغريب.rar

سلام الله على الجميع من الجميل أن تتضافر جهود وأفكار اساتذتنا الأفاضل ليخرجوا لنا أبداعاتهم فضلا عن جميل مساعدتهم. ارجو من الأخوة الكرام في المنتدى أجراء تعديل على عمل أ / جعفر جزاه الله خيرا على عمله لأنى كنت أبحث عن نظير له في فكرته لعمل أخر أقوم به وجاء هذا المثال في ابداعه قريبا جدا مما أريد. والتعديل المطلوب يتمثل فى 1- إمكانية عمل نافذة استعراض مضغرة (Preview) في النموذج الفرعى sfrm_emp_wared عند الضغط على هذا الاستعراض يقوم بفتح الملف. 2- عمل زر لإمكانية ارفاق بعض المحتويات دون البعض في نفس الفولدر من خلال تحديد ما نريد إضافته مع وجود زر أخر لإضافة محتويات كامل الفولدر كما هو الحال الآن وذلك إثراءً وتكاملا للعمل حتى يتسع الأمر لكل مستخدم حسب حاجته ورغبته في إضافة المرفقات. دمتم بكل خير وجعل الله ما تبذلون فيه وقتكم ومجهودكم وعلمكم في ميزان حسناتكم وشكرا لكم والسلام.

أحبائي في الله أرجو مساعدتي في اكمال عمل أحد عباقرة وخبراءهذا السرح الرائع الأستاذ زياد علي الحفظ باسم لجميع أوراق العمل بالمصنف الحالي على شكل ملفات مستقلة في مجلد مستقل ومجلد مستقلين حيث أريد عند تفعيل كود الحفظ باسم لا يحفظ جميع الأوراق بل يجعلني أحدد له كل مرة أسماء الأوراق التي أريد حفظها وشكرا جزيلا ZEZO SAVE AS ALL.rar

حاضر من عيوني.. عندما اجلس علي الكمبيوتر لانني الان علي الموبايل

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

وانا لم انسى ولازلت فى الانتظار استاذى الحبيب

اجمعين شوف شو عملنا في تقرير

مشكور استاذ شيفان على تفاعلك وصدقني انا معجب بطريقة التفكير عندك .. ودائما في الحلول الفكرة هي الاهم او الطريق للحل تحياتي

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

صحيح وجميل استاذ محمد

شوف هذا ان شاء الله هذا هو المطلوب 88888889.rar

أستاذ Hosain الهدف من الأكسس هو عمل قاعدة بيانات قوية وبتفاصيل معينة

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

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

على راسي اخي شفان ريكاني. مع تحيات اخوك/ابوماجد

بارك الله فيك وفينا اجمعين

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

سامحوني ان اشارك معكم اليك فونتات للباركود ما عليك الا ان تقوم بعمل نموذج و تقرير وفي مربع نصي للباركود تغير فونت المربع الى احد الفونتات مع رغبتك مع تقدير ALLBarcode_Font.rar

عمل رائع استاذ طلعت وشكرا" لك ياأخي انا قصدت عدم اظهار اعمدة أخرى وهي م5 و م4 و م3 ... مثلا" أو أي أعمدة أخرى لا أرغب بإظهارها استنادا" الى معيار بحث أختاره أنا

تمام نفس الشي استاذي

سامحوني لكي اشارك معكم شوف هذا من البارحة افكر وعملت هذا هل يوصل لك المطلوب ؟ الفكرة هو ان يأخذ رقم هارد ديسك للكومبيوتر ويخزن في الجدول وبعدين اذا تريد ان تفتح من جديد راح يشوف هل يوجد هذا الرقم الهاردديسك في الجدول اذا بيكون = او اكبر من 1 على الرغم ما يصير بيكون اكبر من 1 لكن عملت اذا صار بيخزن يدويا قلت خلي بيكون يساو و اكبر من 1 بيظهر رسالة وبيقولك ..... وبيغلق البرامج والا راح بيروح الفورم التابل 1 الى سجل جديد وبيخزن المعومات مع تقدير تشغيل البرامج مره‌ واحدا فقط على جهاز2003.rar

السلام عليكم ورحمة الله انسخ هذا الكود والصقه فى محرر الاكواد وخصص له زر Sub TrnsData() Application.ScreenUpdating = False For i = 1 To Sheets.Count For Each Sh In ThisWorkbook.Worksheets If Sh.Name <> "toc" Then Sh.Range("B10:G10").Copy For R = 2 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & R) = Sh.Name Then Range("F" & R).PasteSpecial xlPasteValues End If Next End If Application.CutCopyMode = False Next Next Application.ScreenUpdating = True End Sub

بناءا على طلب الزملاء اعادة نشر المنشور المُجمع =================== الى كل الزملاء أعضاء الكنترول وشئون الطلاب بالمدارس هنا تجد كل ما يخص اعمال الامتحانات من كنترول شيت لجميع المراحل برنامج عمل القوائم وارقام الجلوس ملفات لشئون الطلاب ملفات لشئون العاملين ايمانا منا ان ذكاة العلم نشره وايمانا منا ان احد ميراث الدنيا " علم يُنتفع به " اليكم اولا: ملفات الكنترول شيت ==================== 1- المرحلة الابتدائية (أ‌) ابتدائي عام دور اول وثانى https://goo.gl/7li90X (ب‌) ابتدائى لغات " مستوى رفيع " https://goo.gl/ohJVpz 2- المرحلة الإعدادية (أ‌) أعدادي عام https://goo.gl/uXsJf3 (ب‌) الاعدادي المهنى https://goo.gl/4x6plB (جـ) اعدادى باللغة الفرنسية https://goo.gl/7DNZou (د) اعدادى باللغة الفرنسية + مستوى رفيع https://goo.gl/q3glXc 3- المرحلة الثانوية https://goo.gl/I7du0W 4- التعليم الفنى التجاري https://goo.gl/QoKY7w 5- التعليم الفنى الزراعى https://goo.gl/uZL2yy ===================== اليكم ثانيا : برامج اعمال الامتحانات ==================== 1- كشكول اعمال الامتحانات ببرنامج الوورد شامل كشوف ملاحظه وتتقدير ومحاضر تشميع وغلق حجرة .... الخ https://goo.gl/pQeK2B 2- برنامج لعمل قوائم لجان الامتحانات وملصقات الادراج .... الخ https://goo.gl/F5fvae 3- مُلصق لكل طالب لعمل استمارة الصف الثالث الاعدادي الاعدادي https://goo.gl/V1HtGw 4- استمارة عضوية 1 سري الشهادة الأعدادية https://goo.gl/inxLZX 5- كشوف درجات الانشطة الصفية واللاصفية https://goo.gl/PuMH7H ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ملفات 12 د 6- المرحلة الاعدادية https://goo.gl/xyT28D 7- المرحلة الابتدائية: https://goo.gl/Sov3ve ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ ♥ 8- خاص باأعمال الامتحانات - ملف عمل كشوف النداء - الحجرات - بطاقات لكل لتلميذ حتى 40 تلميذ فى اللجنة https://goo.gl/2Fr8fc اليكم ثالثا : برامج قواعد بيانات طلاب وموظفين ========================== 1- استمارة حصر تنسيق الخدمات بالمركزية https://goo.gl/80NYa3 2- استمارة حصر موجهين وموجهين اوائل https://goo.gl/aXOAu7 3- الازهر الشريف - قاعدة بيانات للمعاهد الازهرية https://goo.gl/ttQ2hw 4- التعليم الابتدائي https://goo.gl/fYK1gi 5- التعليم الاعدادي https://goo.gl/BjzAWx 6- التعليم التجاري https://goo.gl/RlVSaA 7- التعليم الفنى https://goo.gl/dbSPPC 8- الثانوى العام https://goo.gl/k9HQ6B اليكم رابعا : بعض الملفات الهامه الاخرى ========================== 1- طلبات تغيير المسمى الوظيفي https://goo.gl/i8iEaD 2- الملف الخاص بقسم التنسيق حصر اعداد الفصول والمعلمين لجميع مراحل التعليم https://goo.gl/m93Jj4 3- حل مشكلات الطباعة من موقع وزارة التربية والتعليم https://goo.gl/nyciQl 4- بعض الاستمارات الهامة https://goo.gl/ICDHh3 5- هيا بنا نتعلم - مع محمد جابر https://goo.gl/RC1he4 6- برنامج حساب السن اول اكتوبر وتاريخ الميلاد والترتيب من الاكبر للاصغر للصف الاول الابتدائي او رياض اطفال https://goo.gl/3gCDwY 7- كيفية الطباعة من موقع التربيه والتعليم https://goo.gl/QrKGSH اليكم خامسا : بعض ملفات التطوير التكنلوجي الهامة ========================== 1- استمارة التقدم للتدريب بأكاديمية مايكروسوفت https://goo.gl/z480Gm 2- سجلات غرفة مناهل المعرفة https://goo.gl/uAhDfa 3- أخصائى التطوير التكنولوجى " لايتبع التوجية المالى والادارى وليس من ارباب العهد " https://goo.gl/9ehvob اليكم سادسا : بعض ملفات الفيديو الهامة التعليمية ========================== https://goo.gl/zmw94B ===== اليكم سابعا : برنامج المُنجز فى الحكومة الالكترونية https://goo.gl/ap07We ========================== اليكم ثامنا كل ما يتعلق باختبارات الــ NEW ICDL https://goo.gl/6zYscN ========================== اليكم تاسعا : بعض القوانين والقرارات الوزارية https://goo.gl/duTCq0 ============== اليكم عاشرا : كييفية تفعيل اميل اوفيس 365 https://goo.gl/fAClFb ♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥ والى حضراتكم رابط مصمم الملفات https://www.facebook.com/mohamed.gabermohamed2 محمد جابر محمد ================= تحياتى #محمد_جابر المدرب المحترف لمركزالتطوير التكنولوجي بمديرية التربية والتعليم بأسيوط ذكاة العلم نشره

السلام عليكم، بعد إذن ابو علي محاولة بالتنسيق الشرطي. بيان المؤسسة1 تنسيق شرطي قيمة_v001.rar

زي ما تفضلو الأخوان بالحل ولكن عندي اضافة أتمنى أن تتقبلوها أولا بالنسبة لمعادلتك أخي جرح العراقي فهي ينقصها أقواس التنصيص (" ") حول حرف الـ A وكذلك ينقصها تكملة المعادلة كما تفضل الأخ أبو حنين بتكملتها الأضافة الأخرى ممكن أن تصل لهذه النتيجة بطريقة أخرى وهي عن طريقة دالة الـ Vlookup وهذه الدالة تتميز بسهولة التعامل معها مهما كانت البيانات كثيرة ومتغيرة وسبق وشرحتها في قناتي وهذا رابط الشرح إذا أحببت الاطلاع تحياتي

تكون بهذا الشكل =IF(A3="A";"امتياز";IF(A3="B";" جيد جدا";IF(A3="C";"جيد";IF(A3="D";"متوسط";""))))

جرب هذا الملف ABCD.rar

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

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

اتفضل باصدار 2007 جمعية خيرية 2007.rar اتفضل اصدار 2003 لكن للعلم انا بعد ما عملت اكواد لنموذج دخول جمعية خيرية 2003.rar

لكي لا تغيب املك انا عملت هذا لكن بعد شغل كتير راح نواصل ان شاء الله اتفضل شوف هذا هل يعجبك حتى الان اذا بيعجبك ادعي لي ولاهلي مع تقدير جمعية الخيرية.rar

هذي اول طريقة تعلمتها في البحث Private Sub Text1_AfterUpdate() namebook.SetFocus DoCmd.FindRecord Text1, acAnywhere End Sub

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