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

وعليكم السلام استاذ فايز 🙂 استعملت استعلامات الحاق لكل جدول ، وهذا مثال للجدول 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 وزوجك بنت الحلال تبرمجها على هواك .. 🌹🌹 سأطلع على الملف وابلغك النتيجة ..

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

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

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

وعليكم السلام ورحمة الله وبركاته لتعلم الطريقة انقر على الشكل بزر الارة الايمن ثم اختر تنسيق الشكل ثم خصائص .قم بازالة علام الصح عن طباعة كائن كرر الامر مع الزر الاخر الملف مرفق بعد ازالة علامة الصح. تحياتي نموذج للملف.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

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

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

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

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

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

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

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

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

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

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

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

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

هذه المعادلة في 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 جعفر

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

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

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

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

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