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

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

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

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

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

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

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

كود لطباعة صفحات معينة 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

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

هل يمكن تعيين الطابعة الافرتراضية مباشرة من النموذج دون فتح لوحة التحكم؟؟؟؟؟

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

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

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

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

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

في حد علمي لا لا يكون الجدول في وضع منبثق . فقط منبثق للنماذج .

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

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

طبيعى ده المفروض اللى يحصل وهذ ما كان يقصده اخى حسام جزاه الله خيرا فقمت بالتعديل حسب الموجود والموضح فقط ولكن اذا اعتمدنا كلامك اخى @فايز.. فالافضل كما قال اخى حسام جزاه الله خيرا التعديل فى بنيه الجداول وفصل بيانات الموظفين فى جدول ويتم اضافه كود الموظف بالفرع ثم تحديثه عند العوده والعمل مره اخرى على الفرع الجديد مع الحفاظ على رقم الموظف بالفرع الذى كان به حتى تكون لدينا سجلات هذا الموظف بكل فرع عمل به اما بخصوص الرساله التى تظهر للاستاذ محمد فاشرت اليه بهذا الرابط ولا اعلم هل قام بزيارته ولاطلاع عليه ام لا ؟ جزاك الله خيرا معلمنا العزيز جعفر @jjafferr 💐 ع هذه الروابط وان شاء الله الاستاذ محمد يطلع عليها ويخبرنا بالنتيجه ان شاء الله بالمساء @mohamed elalfy انظر لمثالك الجديد بعدما ارتاح قليلا من العمل بالتوفيق اخوانى واساتذتى

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

هذه المعادلة في 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 لك غيبة ..

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

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

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

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

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