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

وعليكم السلام استاذ فايز 🙂 استعملت استعلامات الحاق لكل جدول ، وهذا مثال للجدول 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

مفيش مشكله يا غالي. توكل علي الله

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

لا بالله اني موحد .. 🙋‍♀️

همممم ، الظاهر اني اكلم صاحب خبرة ، ومنخش ومستحي

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

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

ممكن تجربة هذا الملف الكود 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

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

كود لطباعة صفحات معينة On Error Resume Next ActiveWindow.SelectedSheets.PrintOut From:=Range(E1").Value, To:=Range("G1").Value, _ Copies:=1, Collate:=True, IgnorePrintAreas:=False كود لحذف عدد من الصفوف تحدد باستخدام خليتين i = Sheet1.Cells(1, 5) ' Cell E1 j = Sheet1.Cells(1, 7) ' Cell G1 Rows(i & ":" & j).Select Selection.Delete Shift:=xlUp Range("B2").Select

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

حياك الله

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

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

الخلايا المدمجة تعيق عمل اي ماكرو أو اي معادلة (الابتعاد عنها قدر المستطاع) لا افهم ما الحاجة الى دمج عاودين A و B في حين يمكننا توسيع العامود A قدر ما نريد جرب هذا الملف Labels.xlsm

تفضل اخي العزيز التعديل برنامج مستودع العمادة17.rar

تفضل اخي العزيز التعديل ارجو ان يكون طلبك Inv01-100.rar

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

ضع فى حدث عند التحميل Me.Caption = "ضع النص " و فى حدث عند الوقت Me.Caption = Mid(Me.Caption, 2, _ (Len(Me.Caption) - 1)) & Left(Me.Caption, 1) عند الفاصل الزمنى لعدد الوقت (100)

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

وعليكم السلام اتفضل وان شاء الله يشتغل معاك بالتوفيق New_1.accdb

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله ورحم الله والديك

هذه المعادلة في R3 واسحب نزولاً =IF($Q3="","", SUMPRODUCT(($J$3:$J$100=$Q3)*($K$3:$K$100))+ SUMPRODUCT(($J$3:$J$100=$Q3)*($L$3:$L$100))+ SUMPRODUCT(($M$3:$M$100=$Q3)*($N$3:$N$100))+ SUMPRODUCT(($M$3:$M$100=$Q3)*($O$3:$O$100))) واذا لم تعمل معط استبدل الفاصلة بفاصلة منقوطة لتبدو هكذا =IF($Q3="";"; SUMPRODUCT(($J$3:$J$100=$Q3)*($K$3:$K$100))+ SUMPRODUCT(($J$3:$J$100=$Q3)*($L$3:$L$100))+ SUMPRODUCT(($M$3:$M$100=$Q3)*($N$3:$N$100))+ SUMPRODUCT(($M$3:$M$100=$Q3)*($O$3:$O$100))) File included mostafa.xlsx

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

- انا كلما اشوف رسالة خطأ في OLE و عنصر ActiveX ، فغالبا المشكلة في اعدادات الوندوز : A problem occurred while Microsoft Access was communicating with the OLE server or ActiveX control https://www.officena.net/ib/topic/59481-استفسار-هام-بخصوص-اللغة-والبرمجة/?do=findComment&comment=381019 https://www.officena.net/ib/topic/64955-مشكلة-عند-فتح-البرنامج-على-ويندوز-8/?do=findComment&comment=423014 جعفر

أخي الفاضل البرنامج فتح معي نقل بيانات من جدول إلى جدول.accdb

qqqq1 فين انت كل هذه المدة من هذه الإجابة الرائعة أين الضغط على الإعجاب على هذه الإجابة الممتازة ؟!!!💙

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير تعامل-مع-ملفات-الاكسل-عن-طريق-الاستعلام-،-وبدون-كود-،-عن-طريق-استعلام-مسقط/ سِحر-جداول-الاكسس-في-تسجيل-الوقائع-عن-طريق-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⭐ ⭐ هدية ~ مرسال الواتس أب الجديد 2025⭐ محدّث 4.0 القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان 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-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين

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

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