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

وعليكم السلام استاذ فايز 🙂 استعملت استعلامات الحاق لكل جدول ، وهذا مثال للجدول sheet2 ، وعن واستخدمت معيار طول المعلومة Len حتى افرز المعلومات الغير مطلوبة (المسميات) : والكود: Private Sub Browse_Click() ' open the widows filw dialog to select the Excel file With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Excel Files", "*.xls ; *.xlsx" '.Filters.Add "Excel Files", "*.csv" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Me.txtPath = .SelectedItems(1) End If End With End Sub Private Sub cmd_Selected_File_Click() ' import the Excel sheet '1 'Empty the temporary Table tabl1 CurrentDb.Execute ("Delete * From tabl1") '2 'import Sheets to table tabl1, one at a time Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String, strTable As String Dim strPassword As String ' Establish an EXCEL application object On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 ' Change this next line to True if the first row in EXCEL worksheet ' has field names blnHasFieldNames = False strPathFile = Me.txtPath ' "C:\Filename.xls" ' Replace tablename with the real name of the table into which ' the data are to be imported strTable = "tabl1" '"tablename" ' Replace passwordtext with the real password; ' if there is no password, replace it with vbNullString constant ' (e.g., strPassword = vbNullString) strPassword = vbNullString '"passwordtext" blnReadOnly = True ' open EXCEL file in read-only mode ' Open the EXCEL file and read the worksheet names into a collection Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly, , strPassword) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount ' Close the EXCEL file without saving the file, and clean up the EXCEL objects objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing '3 ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" '4 'append the data using the proper query DoCmd.SetWarnings False DoCmd.OpenQuery "qry_" & lngCount DoCmd.SetWarnings True '5 'empty tbl_Sheets CurrentDb.Execute ("Delete * From tabl1") Next_lngCount: Next lngCount ' Delete the collection Set colWorksheets = Nothing ' Uncomment out the next code step if you want to delete the ' EXCEL file after it's been imported ' Kill strPathFile MsgBox "Done" End Sub جعفر 1232.From_Excel_to_Access.accdb.zip

غالي والطلب رخيص ، وعلى راسي 🙂 جعفر

وعليكم السلام-تفضل لك ما طلبت بمعادلة Sumif & Sumifs الفلزات1.xlsx

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

يسلم راسك استاذ جعفر اخ عزيز وغالي الله يشهد

تفضل يا صاحبي @ahmedhossin F1.accdb

قلب كبير للاخ حسام 😍😍

انا بخدمتك اخي العزيز tarekali855

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

همممم بما ان اخي حسام فاهم طلبك ومعاك من البداية ، فأنا اطلب منه اتخاذ القرار ، فإذا كان الطلب الاخير له علاقة بالسؤال الاصل ، فتوكل على الله ، اما اذا كان سؤال جديد ، فنحن جميعا ملتزمون بالقوانين 🙂 جعفر

هلا والله اخوي خالد 🙂

وياك اخي محمد

تفضل أخي الكريم .. الشهادات_المدرسية _للقدامى - Copie.accdb

نعم اخي الكريم ممكن انظر --------> ka_15437.accdb

أخي الكريم السلام عليكم لم يتم عمله على الإكسيل كما هو ملاحظ فإن أردت عمل مثل هذا الشكل قم بنسخ الصورة التي تحب وحدد مواقع أزرار الأوامر والنصوص على هذا الرسم على أحد برامج الرسم مثل فوتوشوب أو الرسام حيث يمكنك وضع الزخارف التي تريد ثم احفظها ...بعد ذلك يمكنك فتح برنامج الإكسيل ثم تطبيق الـ VBA من المطوّر ضع أزرار الأوامر والتسميات والنصوص في المواقع التي حددتها من قبل على الزخرفة التي أعددتها بعد جلبها إلى اليوزرفورم .. هناك خيارات تجعل هذه الأزرار شفافة دون الإطار في الأزرار سيظهر شيء منه بسيط مما يعطيك نوع من الرضا عن العمل الذي تقوم به اجعل BackStyle: تم حذف الكتابات من الصورة الثانية بواسطة برنامج الرسام. فورم مزخرف.xlsm

أخي @jjafferr هنيئا لمؤسس هذا الموقع ولكل من شارك فيه من الاخوة .. جزاهم الله خيرا على ما يقدمونه من معونة ..

الموضوع سهل وبيسط شاهدوا الفيديو لطفا

أشكرك يا أخي ... بارك الله فيك وزادك علما

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

تفضل ..... تكرار المقطع في التقرير.mdb

الملف المضغوط فنحصل على مجلد يحتوى على برنامج رسم قطاعات الترع مع حساب الحفر تم عمل هذا البرنامج لكي يكون الاسهل في الاستخدام فتم استخدام برنامج الإكسيل لحفظ وإدخال البيانات وبرنامج الأوتوكاد لرسم القطاعات العرضية للترع ولتشغيل البرنامج يتم فنح ملف اكسيل ولتَعَرُّف على طريقة البرنامج تفتح ملف الإكسيل فتجد نموذج لبيانات قطاعين ترعة فيمكن أن تتعرف على طريقة إدخال البيانات بسهولة ولبدء رسم قطاعات ترع جديدة نفتح ملف الإكسيل ويتم إدخال بيانات مناسيب القطاعات والقطاع التصميمي ثم نَفْتح ملف أوتوكاد جديد ثم نتحول إلى الإكسيل ونضغط على زر "مربع حوار رسم" الموجود في ورقة العمل "قطاعات" في الصف الأول فنجد أنه تم اقتراح بعض الإعدادات التي يمكن تغييرها مثل صف بداية بيانات القطاعات وصف النهاية وبداية أول قطاع والمسافة بين القطاعات واسم طبقات كل عنصر من عناصر الرسم بعد تغيير هذه البيانات نضغط زر "رسم القطاعات" ثم نتحول إلى الأوتوكاد فنجد أنه تم رسم جميع القطاعات 2019 رسم قطاعات الترع .rar

وعليكم السلام 🙂 الظاهر ان عندك التقرير اعرض من عرض الورقة : جعفر

جزاك الله خيرا اخي @jjafferr وزوجك بنت الحلال تبرمجها على هواك .. 🌹🌹 سأطلع على الملف وابلغك النتيجة ..

بارك الله فيك استاذ @jjafferr

حياك الله اخوي احمد 🙂 جعفر

خلصت فيك كل الكلام الف شكر وربنا يديمك سند لغيرك

حاليا بعيد عن الكمبيوتر

الأكواد جاهزة للعمل (لا تحذف الصقوف بل تخفيها - لا تظهر بالطباعة - لأنه ربما احتجت اليها لا حقاً) لكن اذا كنت لا تريد عرض الطباعة استبدال .PrintPreview بــ .PrintOut

وعليكم السلام ورحمنة الله وبركاته يوجد حقل في التقرير Text95 غير موجود وهو مطلوب لتنفيذ حقل الاجمالي =Nz(Sum([total]);"0")+Nz([Text95])-Nz([Text92]) تحياتي

ممكن تجربة هذا الملف الكود Option Explicit Sub My_Print_Area() Dim AdrE1, AdrG1 Dim AdrE2, AdrG2 With Sheets("ورقة1") .Rows.Hidden = False AdrE1 = .Range("E1"): AdrG1 = .Range("G1") AdrE2 = .Range("E2"): AdrG2 = .Range("G2") .Rows(AdrE2 & ":" & AdrG2).Hidden = True .PageSetup.PrintArea = _ .Range("A" & AdrE1 & ":B" & AdrG1).Address .PrintPreview End With End Sub '+++++++++++++++++++++++++++++++++++ Sub Show_all() With Sheets("ورقة1") .Rows.Hidden = False .PageSetup.PrintArea = _ .Range("a1").CurrentRegion.Address End With End Sub الملف مرفق Man3em.xlsm

السلام عليكم يكفي استعمال خاصية "إلغاء طباعة الكائن" من خلال خصائص هذه الأشكال... وتطبيق ذلك تجده في الملف بالمرفقات... نموذج للملف.xlsm

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

شكرا جزيل استاذ Ali Mohamed Ali وهو المطلوب جزاك الله عني كل خير

بصراحة رائع جدا ومتشكر جدا جدا على هذا الحل أستاذ سليم , بارك الله فيك أنا لسه شايف الاجابة حالا , جزاك الله كل خير

حياك الله

السلام عليكم 🙂 وكما تفضل اخوي فايز ، لا يوجد شيء اسمه جدول منبثق ، ولكن تستطيع عمل نموذج جدولي (واللي يشبه الجدول 100%) منبثق 🙂 جعفر

تم معالجة الأمر Labels_1.xlsm

الله يبارك بك اخي العزيز وبالخدمة الله وكيلك اخي معضمنا مبتدئين بالاكسيس

تفضل اخي العزيز منقول للامانة Root.rar

جزاك الله خيرا أستاذى @ابو عارف

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

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

حمد لله على السلامة @jjafferr لك غيبة ..

نحيل الموضوع إلى الكبار @jjafferr @محمد أبوعبدالله

راجع المرفق حل سريع New Microsoft Excel Worksheet.xlsx

حياك الله ... بالتوفيق

السلام عليكم :) أخي مؤمن ، هل حصلت على الاجابة المطلوبة؟ اذا لا ، فالرجاء ارفاق برنامجك ، وتوضيح المطلوب :) جعفر

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير تعامل-مع-ملفات-الاكسل-عن-طريق-الاستعلام-،-وبدون-كود-،-عن-طريق-استعلام-مسقط/ سِحر-جداول-الاكسس-في-تسجيل-الوقائع-عن-طريق-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 أداة-عرض-وتحرير-جمل-sql-داخل-التطبيق القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - 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⭐ ⭐ هدية ~ مرسال الواتس أب الجديد 2025⭐ محدّث 4.0 القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ أداة-إنشاء-صيغة-أوامر-مربع-الرسائل-msgbox-القياسي أداة-إنشاء-المخططات-البيانية-المخصصة توليد-أرقام-تلقائية-مخصصة-ترقيم-تلقائي-احترافي أداة-إظهار-الرسائل-في-منطقة-الإشعارات إداة-إنشاء-تعليمات-مخصصة-لتطبيقك-ليظهر-كالبرامج-المحترفة للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية الفاتورة-السعودية-المبسطة ⭐ هدية ~ لعبة الدومينو 2026 ⭐ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين

_____.rarفي الملف المرفق تم عمل اللازم باستخدام datedif و التنسيق الشرطي فقط في عمود واحد

الملف المرفق يقوم بتلوين الخلايا التي بقي على إنقضاء تاريخها أربعة أيام أو أقل. ويتم ذلك عن طريق إستخدام الصيغة التالية في التنسيق الشرطي: =DATEDIF(INDIRECT(ADDRESS(ROW(),COLUMN())),TODAY(),"d")<=4 أتمنى أن يكون هذا ما تريد: ___________________________________________________________.rar