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

استعمل هذا الكود: Dim curPath As String curPath = CurrentProject.Path & "\الأرشيف" If Len(Dir(curPath, vbDirectory)) = 0 Then MkDir (curPath) Else MsgBox "الملف موجود مسبقا" End If التعليمة dir تقوم بالتأكد من وجود المجلد في المسار المحدد من عدمه

هذا البرنامج يتيح لك امكانيه علق قاعده البيانات ضد مفتاح شفت وعمل العكس هذا البرنامج هديه للاعضاء وشكراا البرنامج فى المرفقات

السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذا الموضوع قد قتل بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكن هو طلب لأحد الاعضاء ( الاخ الكريم / alredha ) ولكني اردت ان اجعله موضوع بعنوان واضح ليستفيد من الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة افتتاحية باسم مستخدم ورقم سري ولايظهر الاكسيل الا بعد اعطاء الشاشة البيانات الصحيحة وطبعاً والاكيد كله من علمكم اساتذتي الكرام وفي الدرس القادم سنتعرف علي طريقة عمل اكواد الشاشة لتعمل معنا علي اي برنامج لدينا او اي برنامج سنقوم بتصميمه فيما بعد جزاكم الله خيرا اساتذتنا طريقة عمل الشاشة الافتتاحية شرح علي الورد1.rar شرح عمل شاشة افتتاحية فيديو1.rar طريقة عمل الشاشة الافتتاحية اكسيل1.rar

جزاك الله خيرا تمام Make Backup OK.rar

على الرغم كام مشاركتك صار 100 مشاركه‌ وبعد ما ترفق الملف مع اسألتك لكي نتم العملية عليه وما نعرف بالضبط ما تريد هل تريد تمسح الحقول الجدول اللي بها الارقام كافة او تريد تمسح حقول اللي يظهر في النموذج حاليا اذا كان طلبك هو الاول اعمل استعلام تحديث للحقول المراد تمسح الباناته بلا شيء واذا كان طلبك هو الثاني اعمل زر وفي محرر فيجوال اكتب اسماء الحقول اللي تريد تمسح بياناته هكذ مثلا عدنا مربع نصي باسم TRS اكتب الكود هكذ ME.TRS = "" مع تحياتي

تفضل و سوف أكمل الباقي فيما بعد: جمعية خيرية 2007.rar

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

مشاركة بسيطة لملف قديم نصوص منسقة.rar ويمكن عمل دالة في مويل لبناء جملة الـ HTML واستخدامها في أي مربع نص، كما أنه يجب أن يكون من خصائص مربع النص (نص منسق) Function FormatText(TargetText As String, _ Optional FontName As String, _ Optional FontSize As Integer, _ Optional FontColor As String, _ Optional FontBold As Boolean, _ Optional FontItalic As Boolean, _ Optional FontUnderline As Boolean) As String 'النص 'اسم الخط بين علامتي تنصيص 'لون الخط باللغة الانجليزية أو رقمه 'بنط عريض 'مائل 'تحته خط Dim FontB0, FontB1, FontI0, FontI1, FontU0, FontU1 As String 'تحياتي/ أبواسد If FontBold = True Then FontB0 = "<b>" FontB1 = "</b>" Else FontB0 = "" FontB1 = "" End If If FontItalic = True Then FontI0 = "<i>" FontI1 = "</i>" Else FontI0 = "" FontI1 = "" End If If FontUnderline = True Then FontU0 = "<u>" FontU1 = "</u>" Else FontU0 = "" FontU1 = "" End If FormatText = "<font face=" & FontName & " , size=" & FontSize & " , color=" & FontColor & FontB0 & FontI0 & FontU0 & "" & TargetText & "" & FontU1 & FontI1 & FontB1 & "</font>" End Function

فكرة ممتازة اخوي أبو إبراهيم ما جاء على بالي استخدام webbrowser للقيام بالعمل جعفر

تم عمل البحث بالاسم للحصول على الاسم / موبايل1 / المبلغ (تستطيع استبدال موبايل1 باالتاريخ) TEL INDEX - alraqi_v007.rar

السلام عليكم و رحمة الله تعالى و بركاته أما بعد: 1-الخطأ الأول و الذي يقوم بإظهار الرسالة هو لأنك في جدول Avactions نوع الحقل ID جعلته ترقيم تلقائي بل يجب أن يكون نوعه رقم. 2- في الإستعلام qq يجب أن يكون الحقل ID مصدره الجدول Avactions و ليس Emp. 3-قبل القيام بهذا كل يجب أن تقومي بربط الجدولين علاقة رأس بأطراف بمعنى أن يكون الربط بين الحقل ID من جدول Emp بالحقل ID من جدول Avactions 4- أن لا يكون الحقل ID من جدول Avactions مفتاح اساسي و في نفس الوقت يجب أن يكون يقبل التكرار. إتبعي هذه الخطوات و إن شاء الله سوف تصلين إلى الحل.ثم أطلعيني على النتائج. هذا هو الملف مع التعديل اضافة اجازة محددة لاكثر من موظف.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 هذا واتمنى ان حصلت الفائدة اخ سلمان واحبتي جميعا وهذا ويمكن تدوين ملاحظات او اقتراحات للنحسين تحياتي للجميع

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

تم التحديث اكثر للملف بحيث يظهر الصف الاول في كل صفحة عند الطباعة و البرنامج يتلافى الاخطاء المطبعية في اختيار عدد الصفوف ويدرج محموع اخر صفحة (حتى و لو كانت تحتوي على صفوف اقل من الصفوف المختارة) لادراج معاينة قبل الطباعة - اضغط Ctrl+ F2 طباعة ذكية salim 2.rar

الاجابة في هذا الملف cylingder _volume.rar

صباح الخير اخي يمكنك تجربة الخاصية "دورة" من التبويب غيرذلك لخصائص النموذج الفرعي لتكون "السجل الحالي" بدلا من "كافة السجلات" تحياتي

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير تعامل-مع-ملفات-الاكسل-عن-طريق-الاستعلام-،-وبدون-كود-،-عن-طريق-استعلام-مسقط/ سِحر-جداول-الاكسس-في-تسجيل-الوقائع-عن-طريق-tables-data-macro/ القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) فصل الارقام مثل (الرقم القومى/الهوية) - الرقم التآمينى .. الخ القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) دوال عامة وافكار مختلفة ( FileDialog ) دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) دوال عامة وافكار مختلفة ( FileDialog ) (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" إصدار-جديد-فكرة-بسيطة-لطباعة-أو-إظهار-رسائل-بنتائج-الأكواد-مع-إمكانية-التفعيل-والتعطيل/? التحكم-الكامل-فى-واجهة-اكسس-تصغير-بجوار-الساعة-توسيط-اخفاء-تغيير-أيقونة-شعار-أكسس/ متعقب-التغييرات-الذكي-2024 اداة البحث المتعددة الوظائف مُطَهَّرُ النُّصُوصِ الْعَرَبِيَّةِ ( ازالة المسافات الزائدة و التشكيل و تنظيف النصوص - و توحيد الاشكال المختلفة للأحرف ) مُطَهَّرُ النُّصُوصِ الْعَرَبِيَّةِ الاصدار 2 ( ازالة المسافات الزائدة و التشكيل و تنظيف النصوص - و توحيد الاشكال المختلفة للأحرف ) أتمتة عمليات الضغط وفك الضغط للملفات و المجلدات (WinRAR / Seven Zip ) تنفيذ الأوامر والملفات في بيئة Windows مع تحكم دقيق في العمليات القسم الخامس : قواعد البيانات SQL وما يتعلق بها: أكسس و اسكيوال سيرفر Access with Sql Server الأكسس و SQL جُمل SQL مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server [تطبيق] تحويل قاعدة بيانات اكسس الى SQL Server (الجزء الاول _ الجزء الخامس) ربط الاكسيس ب php القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - QR code محاكاة برنامج واتساب بالاكسس .. هدية لاوفيسنا القائمة المختصرة - Shortcut menu ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم رسائل whatsapp (وتساب) في اكسس رسائل whatsapp (وتساب) بدون حفظ الرقم ( الكاتب الذكي لدوال المجال في أكسس Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg) ⭐⭐(( مكتبة الأكواد الخاصة )) :: الإصدار الثاني 2.0 ⭐⭐ ، /// ، مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁 - 📟 آلة حاسبة 📟 - هدية مميزة مفتوحة المصدر 🎁 🖌️✏️👨😉🧑‍💻 ... برنامج دردشة بين المستخدمين على الشبكة ... 👨‍💻🧑‍💻✍️😊✏️🖊️ 🎁 :: هديتي لكم :: 🌷📨 >> برنامج مرسال الواتسأب - مع المرفقات - << ✉️ 🙂🌷💌 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 🎁 هدايا الأكسس ✨ | 03| زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 🧛🏻‍♂️ [الاصدار الثاني] ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس هدية: برنامج تصدير بيانات من جداول/استعلامات اكسس الى اكسل ، 32بت و 64بت هداء لكم برنامج بسيط للديون والسداد 🟢 واتساب ويب web.watsapp 🟢 هدية : تصدير كائنات دفعة واحدة الى قاعدة أخرى أو حسب إختيارك 🧮 الكاتب الذكي لدوال المجال |::| 📜 نسخة مطورة ومحدثة |::| 😊 الإصدار الثاني 2.0 ⭐ كيف تغير اللغة في برامجك ⭐ اختيار صورة من (Shell32.Dll) وحفظها بمجلد وبجدول وعرضها طريقة ابداعية للتحديث من خلال الانترنت تغيير لغة النظام في Unicode القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: ------------------------------------------------------ 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين

السلام عليكــم ورحمـة الله وبركاتــه ،، اخي الفاضل بحيث يعمل على العامودين A-B فأي عمود منهما به بيانات يبقى موجود تم الحل بـ 3 طرق اختار منها ماتريد 1 - اخفاء الفارغ 2 - حذف الفارغ 3 - في الورقة 2 باستخدام التصفية التلقائية (اخفاء و اظهار) يمكنك تعديل اي كود منهما كما تريد مع التحية RESULT.rar