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

وهذا نفس الكود بدون استعلام أخي أستاذ @jjafferr ومنكم اقتبسنا الكود 1232.From_Excel_to_Access.accdb.zip

السلام عليكم احببت ان اقدم لكم شرح لي لكيفية عمل شاشة دخول مع صلاحيات مستخدمين شاشة دخول بصلاحيات - للشرح.mdb

تم معالجة الامر كما تريد الصفحة Salim من هذا الملف mostafa_Auto.xlsm

السلام عليكم لا أنصحك باستعمال هده الطريقة. الملف غير وظيفي33 صفحة؟؟؟؟؟ . لمادا كل شيت عمل بتقرير؟؟؟ أنت تحتاج شيت لتقرير واحد و ترحل اليه البيانات حسب التاريخ انت تحتاج فقط الى 5 اوراق عمل . 1-ورقة لغيابات الاساتدة 2-ورقة لغيابات التلاميذ 3-ورقة للملاحظات بما فيها االزيارات 4-ورقة لغياباب موظفي الاستشارة و الورق 5 للتقرير تسجل غيابات الموظفين حسب كل فئة في ورقته. ثم ترحل البيانات الى التقرير حسب التارييخ عن طرريق الماكرو أو المعادلات

تفضل اخي الكريم Dim tbl As TableDef DoCmd.SetWarnings False For Each tbl In CurrentDb.TableDefs If Left(tbl.Name, 4) = "MSys" Then Else DoCmd.DeleteObject acTable, tbl.Name DoCmd.SetWarnings True End If Next tbl تحياتي

وعليكم السلام -تفضل لك ما طلبت هذا هو المستخدم بالقائمة الرئيسية من قائمة Data ثم Data Validation ثم بعد ذلك اختيار List ووضع هذا النطاق فى خانة Source =Classification!$A$1:$Q$1 أما القائمة الفرعية فعليك بإتباع نفس الخطوات مع وضع هذه المعادلة =OFFSET(Classification!$A$1,1,MATCH($B2,Classification!$A$1:$Z$1,0)-1,COUNTA(OFFSET(Classification!$A$1,1,MATCH($B2,Classification!$A$1:$Z$1,0)-1,20,1)),1) Classification1.xlsx

السلام عليكم 🙂 ملاحظتك خلتني اشوف شو السالفة 🙂 انا عادة ما احب اعمل اي تغيير على جداول المبرمج ، وخاصة في المنتدى ، لأنه معظم البرامج التي يرفقوها تكون جزء من كل ، فأي تغيير قد يؤثر على اشياء اخرى 🙂 ولكن ما يمنع اننا نعرض الافضل ، ويكون عند السائل الاختيار ، وهذا ما قمت به انت ، وعمل جميل 🙂 وللمقارنه ، ففي الاستعلامات اللي عملتها انا ، كنت افرز كل الكلمات واترك الارقام ، بواسطة المعيار ، عن طريق: 1.ان الحقل مو فارغ (طوله لا يساوي صفر) ، 2.طول المعلومة (يعني عدد حروفها) وعرفت هذا بمعاينة وتحليل البيانات، بينما قمت انت بعمل 1. في الجدول ، واذا اراد اخونا فايز ان يستخدم المعيار الآخر ، فهو كما في الصورة ادناه : . بالعكس ، وبعد قراءة سؤالك من جديد ، اتضح ان البيانات اللي تستخرجها من برنامجي انا فيها تصفية ، والبيانات اللي تستخرجها من برنامج اخونا Kanory هي مطابقة لطلبك ، فمافي حيرة 🙂 لا بالله اني موحد .. 🙋‍♀️ ها استاذ فايز ، صاروا اثنين ، وعندي وحدة ، ومن حقي الرابعة ، متى؟ 🙂 رجاء ثم رجاء ، لا تخلون زوجاتكم جنبكم لما تشاركون في المنتدى ، علشان تأخذون راحتكم ، يا موحدين (واقصد بتوحيدكم لله سبحانه وتعالى 🙂 ) جعفر

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

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

مشكور على الاضافة يا غالي ونشكرك على المرور

جميل لكن الصوت غير واضح

العفو بالتوفيق

مشاركة مع عبد اللطيف سلوم سلوم.rar

تفضل اخي الكريم Dim tblName As String tblName = "tbl1" DoCmd.DeleteObject acTable, tblName تحياتي

تفضل اخي الكريم ____2020 - نسخة - نسخة.rar تحياتي

من فضلك عليك بالبدء بتصميم الفورم بنفسك فالملف لا يوجد به فورم وليس هناك من يقوم بعمل فورم كامل بأكواده فكما تعلم والجميع يعلم يقينا لن الهدف الرئيسى للمنتدى هو التعلم وليس لتقديم البرامج الجاهزة التى لا تعلم صاحبها ولا تفيده بأى خبرة ... بارك الله فيك

_ رائع جزاكم الله خيرا وبارك الله فيكم جميعا _ وشكرا جزيلا لهذا المنتدي الرائع

فی حالە وجود سجلات كتیرة وحسب هذه الطريقة يتاخر فتح التقرير شخيا افضل الطريقة المرفقة حركة صندوق 2.rar

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

السلام عليكم تفضل اخي الكريم تحياتي

تفضل هذه المشاركة اخي الكريم اسم المستخدم : Admin كلمة المرور : 1 ** في البحث الشامل اضغط على الاسم او الرقم لاختيار الاسم و اغلاق البحث الشهادات_المدرسية _للقدامى - Copie.accdb

بالمناسبة الكود يقوم باستيراد اي ملف اكسل وباي عدد من الشيت .... وايضا يمكنه استيراد الشيت حتى بدون وجود الجدول هو يقوم بتكوين جدول بنفس اسم الشيت ... جرب على ملف غير القاعدة الاصلية واعلمنا بالنتيجة .....

بارك الله فيك @kanory وجزاك كل خير .. أشكر لك مشاركتك .. وسأدعو لك بمثل ما دعوت به لعمدة حارتنا @jjafferr ( زوجك الله زوجة صالحة لها عينان عسليتان ) 🌹🌹🌹 ## بعدين الحين ورطتني في الإشارة الى افضل اجابة ..

تفضل اخي العزيز التعديل ملاحظة: جرب الملفين واذا كانت النتائج جيدة فاعتمد RRR والشكر والامتنان للاستاذ الغالي جعفر BBB.rar RRR.rar

للفائدة فقط ... ارفق المثال وفيه ماكان ينقص الامثلة اعلاه .... عند اختيار التاريخ ظهور المجاميع والنسبة المؤية بالتقرير سواءا بكتابتها من خلال التقرير او من خلال (الاستعلام) مع ظهور المخططات البيانية للقطاعات المختلفة بنسبها وليس للنسبة الكلية (وهو مالم يكن موجودا بالامثلة السابقة) ... وهذا هو مجهود الاستاذ الخبير ابو عبدالله جزاه الله خيرا ... وماقمت به هو تعديل بسيط على الفكرة . UP-TEST_chrt2--4.accdb

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

بالتوفيق اخي الكريم تحياتي

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

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

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

تم اضافة المعادلة Book20000000.xlsb

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

ضع فى حدث عند التحميل 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

جرب هذا تالملف Scorp.xlsm

اخي الكريم الحقل لديك من نوع رقم والطريقة الصحيحة لوضعه كمعيار كالتالي [FROM_IN_ARA]=" & [FROM_IN_ARA] وليس كما وضعته بين علامتي تنصيص [FROM_IN_ARA]=" & "[FROM_IN_ARA]" الحقيقة لم افهم المشكلة التي ظهرت معك في المرفق الاخير الذي وضعته لك تحياتي

اكتب داخل مربع النص عدد التكرار المطلوب ------>>>> اضغط على زر عرض التقرير ..... تكرار المقطع في التقرير.mdb

السلام عليكم انظر للنموذج frm-pdf اتمنى ان يكون المطلوب Desktop.rar

حيث انك لم ترفع ملفاُ للعمل عليه ارفق لك هذا النموذج_(يمكنك تعديل الكود كما تراه مناسباً) Hide_spec_sheet.xlsm

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

السلام عليكم موضوع ان النموذج/التقرير منبثق دوخة رأس ، وانا نادرا استخدمه ، المشكلة بدأت من الاكسس 2007 لما مايكروسوفت عملت لسان لكل كائن يتم فتحه: نموذج/جدول/استعلام/تقرير ، وهذه الطريقة غير محبذه للمبرمجين ، فذهبوا لحل المشكلة عن طريق النماذج/التقترير المنبثقة ولكن هنا ك طريقة سهلة لعمل النماذج/التقارير خارج اللسان ، وبدون "منبثقة" : لاحظ لسان اسم النموذج ، وهذا ما سنلغيه: . وعلشان يتم حل الموضوع ، الكثير يستعمل نموذج منبثق لحله: . بينما نسنتطيع ان نأتي الى اعدادات الاكسس: . والنتيجة تصبح حسب المطلوب ، ونموذج غير منبثق: . أحد العيوب الكبيرة في النماذج المنبثقة انه يجب فتح نموذج/تقرير واحد ، فالنموذج/التقرير الجديد الذي يتم فتحه يكون خلف النموذج المفتوح من قبل ، بينما في الطريقة العادية ، لا نعاني من هذه المشكلة ، فكل نموذج/تقرير تفتحه ، فيكون تلقائيا امام النموذج السابق جعفر

تفضل أخى " ياسر " أرجو يكون المطلوب تقبل تحياتى نقل قيم بدون تكرار.rar