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

جرب المرفق قيمة الاستعلام تساوي TRANSFORM Sum(add.kam) AS Sumمنkam SELECT add.mad FROM asasi INNER JOIN [add] ON asasi.itm = add.man GROUP BY add.mad PIVOT asasi.mandob; الملف مرفق 8.accdb

انظر ....... Test (11).accdb

تعجز الكلمات عن شكرك 🤲 ولكن الأفضل الدعاء لك مع الشكر بارك الله فيك ونفعك بعلمك وزادة بسطة في العلم والرزق تقبل اسمى معاني الشكر والعرفان

تفضل <><><><><><><><><> all-by-yesno.accdb

هذه تجربتي مع الاستعلام الجدولي: جعفر

تفضل اخي Sub Hide_Rows_Zero_MH() Dim x1 As Long Dim x2 As Long Dim MH As Boolean For x1 = 4 To 15 MH = True For x2 = 2 To 5 If Cells(x1, x2).Value > 0 Then MH = False Exit For End If Next x2 Rows(x1).Hidden = MH Next x1 End Sub وهدا لاظهارها Sub shw_row() lr = Cells(Rows.Count, 1).End(4).Row Range("a4:a" & lr).EntireRow.Hidden = False End Sub اخفاء الصفوف الفارغة.xlsm

فورم جمع وطرح الايام والشهور والاعوام الفيديو

شكرا من أعماق فلبي 😍 @kanory

اول ما تشغل البرنامج مباشرة اضغط شيفت

فى حاجه اسمها استعلام جدولى ممكن تجرب تعمله وتضع فى الصف او العمود الذى تريد منع التكرار فيه معيار (مع انى اعتقد انه مش هيكرر لان الاسماء المتشابهه بيتم جمعها معا والله اعلم (انا لم اجرب عمل هذا الاستعلام حتى افيدك اكثر من كده) لكن يمكنك البحث فى المنتدي وهتلاقي الكثير ان شاء الله

أحسنت استاذ عبد الفتاح فالملف يعمل بكل كفاءة وشوف بنفسك مجاهد2013 وهذه صورة بعد فتح الملف للتأكيد وبكده يجب غلق المشاركة 1402041816_-Copie.rar

ابحث في الموقع تجد العديد من الموضوعات مثل هذا <><><><><><>

تفضل <><><<><><>< Test (10).accdb

شكرا استاذنا على المداخلة وهذه طريقة لبناء دالة على اكتاف Replace مع اخذ الاحتياط بحذف المسافات الفارغة الزائدة ان وجدت ' الصق هذه في وحدة نمطية عامة Public Function fnchang(vtext As String) Dim i As String i = Replace(vtext, "/", "-") i = Replace(i, "(", "-") i = Replace(i, ")", "-") Do While InStr(1, i, " ") > 0 i = Replace(i, " ", " ") Loop End Function ' تم تعديل الدالة نبهني الى الخطأ فيها اخي وحبيبي الاستاذ جعفر ' الصق هذا السطر في حقل جديد في الاستعلام text2: fnchang(text1) ، text1باعتبار هو اسم الحقل الذي سيجري عليه التغيير