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

تفيد كثير بين الموظف والمسؤل والمدير لعمل مشروع قاعدة بيانات ثانوية وبيانات خاصه اوسرية او ترحيل ملفات بين قطاعات داخلية او خارجية عند التحديث يحدث الملفات وقاعدة الخلفية BE - يفيد التحديث كل اسبوع او اسبوعين او شهر او كل ربع سنوي يفيد بتحديث كامل من FE ,BE ,Folder والاتصال آمن بقواعد البيانات 1- الرفع شبه يدوي فقط آخر تحديث من DorpBox ,Folder or File To rar Or Zip الى لصق الرابط في Google Sheet وتحميل كافة الاجهزة ربوت آلي مباشر مع الفحص 2- اضافة إعدادة تحديد مكان مسار تنزيل الملفات 3- يتضمن شرح مبسط طريقة الاستخدام بخطوتين -------------------------------------( نسيت فك الضغط بعد التحميل اذا كان Zip Or rar تحديث وتوســــــــــيع😇 للتوضيح تابعوا الفيديو المرفق اسفل الفيديو تحميل المرفق https://www.mediafire.com/file/cpuusap5hv1n5cl/DorbBox_V100.rar/file

هذا كنز - بارك الله فيك شكرا جزيلا

مرفق لك الملف بعد التعديلات التالية - اضفت وحدة نمطية تحنوي على كود الترقيم - تعديل اسم الحقل اسم الشركة للغة انجليزية ليسهل العمل - ازلت معايير البحث وجعلتها خيارات عادية لتسهيل مشاهدة النتيجة بدلا من ادخال قيم كل مرة يمكن مشاهدة النتيجة بالمعايير المحددة ثم قم بإزالة أو إضافة إسم شركة من او الى المعايير وشاهد النتيجة الجديدة ملاحظة يجب اغلاق الاستعلام واعادة فتحه بعد كل تعديل في المعايير تحياتي q serial.accdb

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

السبب هو فعلا القيمة رقمية مع ان نوع الحقل في جدول الزوجة وايضا جدول الاولاد نوعه نصي ولكن القيمة الفعلية هي معرف البلدية او معرف الولاية ولا يخفى عليك ان ظهور النص في الجدول هو اننا اعطيناه اولوية الظهور من الخصائص .. زإلا فقيمته الحقيقية هي رقم المعرف .. لهذا هو يظهر في التقرير الحل : بسيط جدا وهو تحويل الحقلين في التقرير الى مربعي تحرير وفي الكود الخاص في محرر التقرير حذفنا التابعة : .Caption من اسم الحقل لأنه اصبح حقلا صريحا وليس مربع تسمية Wil11.rar

🙄 q serial.accdb

اخي @Abdelaziz Osman الطرق كثيرة للترقيم في الاستعلام وانت لم تذكر لنا اسم الجدول .... لكن جرب التعديل على هذا حسب الجدول لديك واسماء الحقول ... لأاني ادرج في الاستعلام اسم حقل واحد فقط SELECT DCount ( "*", "Notes_Table", "[User_FID] <= '" & [User_FID] & "'" ) AS تسلسل, [User_FID] AS Expr1 FROM Notes_Table ORDER BY [User_FID];

السلام عليكم اليك التعديل المصنف2.xlsm

السلام عليكم خسب المثال المرفق يبدو أنك تريد دالة للتقريب إلى أقرب 0.1 (أعشار)، وليس معادلة باقي القسمة (mod) التي تعمل عادة مع الأعداد الصحيحة. =CEILING(A2; 0.1) =ROUNDUP(A2*10;0)/10 تقريب.xlsx

و عليكم السلام ورحمة الله و بركاته تفضل الحل بطريقتين الأول خاصة بنسخ الأوفيس الحديثة و الثانية بالنسخ القديمة Base des donnes (2).xlsx

مشاركة من الأستاذ أحمد يوسف في جروب الواتس أب ، حيث قام بإضافة الكتب التي يحوزته على مجلد جوجل درايف ومشاركته مشكوراً على جهده . في الرابط التالي https://drive.google.com/drive/folders/1ynPi8W3gZY3n7TjIz-GnJiRQ5OXe34iO

السلام عليكم ورحمة الله تفضل أخي الكريم الملف مع بعض التعديلات التي أراها مساعدة في عمل هذا الملف. أرجو أن تفي الغرض المطلوب التقرير اليومي لمستشار التربية - ثانوي - 11.5.0 .xlsm

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي اسم المستخدم : admin كلمة المرور : 1989 Option Compare Text Dim f, Rng, MH(), WS_Rng, DataRng Private Sub UserForm_Initialize() DataRng = "Tableau1" WS_Rng = Range(DataRng).Columns.Count MH = Range(DataRng).Resize(, WS_Rng + 1).Value For i = 1 To UBound(MH): MH(i, WS_Rng + 1) = i: Next i Me.ListBox1.List = MH Me.ListBox1.ColumnCount = WS_Rng + 1 Me.ListBox1.ColumnWidths = "70;110;100;100;100" Me.ComboBox1.List = Application.Transpose(Range(DataRng).Offset(-1).Resize(1)) Me.ComboBox1.ListIndex = 0 Me.B.Caption = "فلترة ب:" & Me.ComboBox1 Set d = CreateObject("scripting.dictionary") For i = 1 To UBound(MH) d(MH(i, 1)) = "" Next i WSdata = d.keys Me.ComboBox2.List = WSdata Sht = Application.Transpose(Range(DataRng).Offset(-1).Resize(1)) For i = 1 To WS_Rng Me("label" & i) = Sht(i, 1) Next i For i = WS_Rng + 1 To 6 Me("label" & i).Visible = False: Me("TextBox" & i).Visible = False Next i Me.ComboBox2 = "*" T_resultat = "عدد الموظفين" & "/" & ListBox1.ListCount + 0 Count = ListBox1.ListCount End Sub '''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Combobox1_click() Me.ListBox1.List = MH Me.B.Caption = "فلترة ب:" & Me.ComboBox1 Me.T.Caption = "بحث ب:" & Me.ComboBox1 Set Titre = Range(DataRng).Offset(-1).Resize(1) colFiltre = Application.Match(Me.ComboBox1, Titre, 0) Set d = CreateObject("scripting.dictionary") For i = 1 To UBound(MH) d(MH(i, colFiltre)) = "" Next i WSdata = d.keys Me.ComboBox2.List = WSdata Me.ComboBox2 = Empty End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub TextBoxRech_Change() On Error Resume Next WSdest = Me.ComboBox1.ListIndex + 1 clé = "*" & Me.TextBoxRech & "*": n = 0 Dim Tbl() For i = 1 To UBound(MH) If MH(i, WSdest) Like clé Then n = n + 1: ReDim Preserve Tbl(1 To UBound(MH, 2), 1 To n) For k = 1 To UBound(MH, 2): Tbl(k, n) = MH(i, k): Next k End If Next i If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.clear End Sub منظومة-الشؤون-الادارية.xlsm

احسنت بارك الله فيك عمل رائع وهذا هو ملف العمل لإكتمال الفائدة بالتأكيد طبعا بعد اذن استاذنا الكبير مجدى Print without Buttones.xlsm