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

السلام عليكم لهذه يجب معرفة "كثافة المادة" (لكل مادة كثافة معينة وهي تحسب بـ كلغ/متر مكعب)... مثلا الرمل كثافته بين 1400 و 1700 كلغ/متر مكعب وهكذا... وللتحويل من كلغ إلى متر مكعب يكفي أن تقسم الكمية بالكلغ على كثافة هذه المادة.... والله أعلم..

اتفضل Microsoft Access قاعدة بيانات جديد (2).zip

جرب هذا الكود ... Like "*" & [Forms]![SearchF]![k].[Text] & "*"

منتهى الابداع كعادتك @kanory

وهذه طريقة اخرى مشاركة مع استاذي الفاضل @kha9009lid وهي عن طريق انشاء جدول وفرز عمليات كل الموظفين من الجدول المعطى ثم عرضها عن طريق استعلام تجميع ميزة هذه الطريقة انها لا تتقيد بعدد الموظفين الذين يشتركون في العملية ( يعنى ممكن مشاركة العملية عدد لا حصر له من الموظفي ... اثنين أو 100 ) وهذا هو الكود المستخدم DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM Table3" DoCmd.SetWarnings True Dim rstS As DAO.Recordset Dim rstD As DAO.Recordset Dim x() As String Dim i As Long Set rstS = CurrentDb.OpenRecordset("Select * From [Table1]") Set rstD = CurrentDb.OpenRecordset("Select * From Table3") DoCmd.Hourglass True Do While Not rstS.EOF x = Split(rstS![الاسم], "-") For i = LBound(x) To UBound(x) rstD.AddNew rstD!عدد_العمليات = rstS![عدد_العمليات] rstD!الاسم = Trim(x(i)) rstD.Update Next i rstS.MoveNext Loop rstS.Close: Set rstS = Nothing rstD.Close: Set rstD = Nothing DoCmd.Hourglass False Me.Requery Exit Sub op.accdb

مشاركة متواضعة مني عن طريق عدد 2 استعلام الاستعلام الاول نقوم بتقسيم حقل الاسم الى عمودين باستخدام دالة عمنا العود @ابوخليل جزاه الله خير Public Function qsplit(NName As String, i As Integer) On Error Resume Next qsplit = Split(NName, "-")(i) End Function الاستعلام الثاني استعلام توحيدي ومصدره الاستعلام الاول لغرض توحيد حقلي الاسم ثم نضع شرط في الاستعلام لحذف الصفوف الخالية والنتيجة في المرفق ملاحظة يمكن الاستغناء عن الاستعلام الاول وعمل استعلام التوحيد مباشرة من الجدول مع استخدام الدالة والمعايير ولكن سوف يكون صعب على غير المختصين هذا الحل البسيط يعتمد على فهمي للموضوع وربما لم افهم المطلوب بشكل صحيح op.accdb

هل هناك جدول اخر لاسماء الموظفين غير هذا الجدول ؟؟؟؟ ممكن تزودنا به

السلام عليكم استاذي العزيز abouelhassan اولا اعتذر لتاخري بالرد عليكم ثانيا السبب هو ان يكون هناك تكامل مرجعي بين الجدولين بمعنى بعد انشاء العلاقة يجب تحديد جميع حقول الاختيار ملاحظة : انشاء علاقة راس باطراف معناه ان هناك جدول رئيسي وجدول ثانوي وعليه يجب ملاحظة ان البيانات الموجودة في حقل الجدول الثانوي موجودة في حقل الجدول الرئيسي لذا تم اضافة بيانات لجدول الصفحات لانشاء علاقة بين الجدولين (جدول الصفحات وجدول المواد) وعذرا للاطالة 2300-2.rar

السلام عليكم ورحمة الله تفضل SpllingWord.xlsb

السلام عليكم تخي حسام وهاب عسى ان تكون بخير للرفع

يمكنك استخدام هذا البرنامج الموجود بهذا الرابط وذلك بما انك قمت برفع الملف محمى بكلمة سر كما انك قمت برفع الملفات فارغة بدون اى بيانات: برنامج دمج ملفات الإكسيل فى ملف واحد Excel Merger أو يمكنك استخدام هذا الكود Sub MergeExcelFiles() Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True) If (vbBoolean <> VarType(fnameList)) Then If (UBound(fnameList) > 0) Then countFiles = 0 countSheets = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wbkCurBook = ActiveWorkbook For Each fnameCurFile In fnameList countFiles = countFiles + 1 Set wbkSrcBook = Workbooks.Open(FileName:=fnameCurFile) For Each wksCurSheet In wbkSrcBook.Sheets countSheets = countSheets + 1 wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count) Next wbkSrcBook.Close SaveChanges:=False Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files" End If Else MsgBox "No files selected", Title:="Merge Excel files" End If End Sub

وعليكم السلام ... كان عليك استخدام خاصية البحث بالمنتدى تفضل هديتى برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه 1.0.0 وهذا برنامج اخر برنامج مخازن وكارت صنف2012 من تصميمي.xls

جرب هذا وهذا برنامج اخر برنامج عيادة بيطرية ارشفة وادخال وفاتورة

وعليكم السلام-يمكنك جلب الإسم بدون تكرار بهذه المعادلة أما الباقى فمعادلة Sumif =IFERROR(INDEX(بيانات!$I$2:$I$240,MATCH(0,INDEX(COUNTIF($B$1:B1,بيانات!$I$2:$I$240),),0)),"") tagg1.xlsm

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

وعليكم السلام اخى الملف يعمل بكل كفاءة كما ترى ولكن المشكلة لديك انه لا يوجد اى تاريخ قريب لتلوينه قم انت بتغيير اى تاريخ الى تاريخ جديد فليكن بشهر ابريل أو مايو 2021 بأى خلية يدوياً وستجد ان الخلية سيتم تلوينها تلقائياً وشكراً

وعليكم السلام ورحمة الله وبركاته والله حقيقة بعد هذه الردود لا يصلح رد آخر ولكن بدأت بكتابة الرد وانشغلت ببعض الأمور فلا مانع من مشاركة الاساتذة بالأجر بامكانك أن تغيري اعدادات الأمان من اعدادت الاكسس اتبعي الخطوات بالرابط التالي اما وان كان لا بد من استخدام آداة فاليك هذا الاسكربت لتخفيض امان الأكسس. وان لم يعمل بشكل جيد انظر الي الشرح بالفديو لتعديل الكود بالاسكربت وفقا لمسار الرجستري الخاص بالاصدار 2019 فالاصدار لدي 2016 أما عن طريقة أستاذنا أبوابراهيم الغامدي في الأفضل ولا شك لكون البرنامج يعمل بأمان ولا ننزع أمان الأكسس عنه وهذا الرابط لأستاذنا جعفر ينفذ طريقة أستاذ أبو ابراهيم ولكن عن طريق الكود واعتذر عن الاسهاب في الرد LowScuerity.rar