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

هذه طريقتي في إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) هو كود وقد عملت له نموذج لتسهيل العمل .. 🙂 الكود يقوم أيضا بترتيب وتنسيق العناصر في شكل منتظم لتسهيل عملية التصميم 😊 إقرأ الملاحظات جيدا قبل أن تطبق 😉👌🏻 النموذج : النتيجة ستكون هكذ : ( من >>>> إلى ) >>>> >>>> للاستفادة من هذا النموذج .. قم بنقل النموذج لقاعدة البيانات عندك وسيتعرف تلقائيا على النماذج التي عندك 🙂 ملف التحميل : إعادة تسمية العناصر مع الترتيب بواجهة مرنة.accdb

عليكم السلام إذا كنت منفتحاً على استخدام ماكرو فإليك هذا وإلا .... Sub test() Dim a, w Dim T As String Dim i& a = Sheets("aaa").Cells(1).CurrentRegion With CreateObject("scripting.dictionary") For i = 2 To UBound(a) T = a(i, 2) & a(i, 3) & a(i, 4) If Not .exists(T) Then .Add T, Array(.Count + 1, a(i, 2), a(i, 3), a(i, 4), a(i, 1), a(i, 1) + IIf(a(i, 1) = 1, 199, 99)) Else w = .Item(T): w(5) = w(4) + 99: .Item(T) = w End If Next Sheets("aaa").Cells(2, 9).Resize(.Count, UBound(a, 2) + 2) = Application.Index(.items, 0, 0) End With End Sub

غير الحدث الموجود لديك بهذا .... Me.fonction_encadreur = Me.nom_prenom.Column(1)

لا تحتاج لنموذج فرعي ضع الليست بوكس مباشرة 🙂 تفضل : Try 2023 (1).accdb

عليكم السلام (اظهار الكودات بالخانات بالاخضر على أساس ما محدد باللون الأصفر) غير مفهوم

للحظة اعتقدت انك تجلس معي على كمبيوتري هههههههههه الا انني فعلاً لم اتمكن من استكمال الفكرة جزاك الله كل خير اخونا ومعلمنا @Moosak ومن باب الطمع في كرمك ؛ وانت من الاساتذة الكبار في منتدانا ، كيف لي ان اجعل عرض المسارات داخل List Box ؟؟؟ Try 2023 (1).accdb

يكمن الاختلاف في: أولا: أن معادلتي على الخلية C7 وليست C10 ثانيا: ترجمة كلمة كسر السنة تم في معادلتي جبر كسر السنة إلى سنة بمعنى عدد الأيام 3142 على 360 تساوي 8.7 سنة يتم حساب 5 منهم على 15 يوم ويتم حساب 4 سنوات على 30 يوم وليس 3.7 على العموم إن كنت لا تريد جبر كسر السنة يمكنك استعمال هذه المعادلة =IF(C10/360>5,75+(C10/360-5)*30,C10/360*15)*C3/30 يفضل أن يكون المطلوب واضحا من البداية حتى لا يضيع الوقت هباء بالتوفيق

هذه بعض التعديلات على ملف الأخ العزيز @Foksh 🙂 تم إضافة جدول فرعي ليضم الملفات الخاصة بكل كتاب .. وتم إضافته كنموذج فرعي لنموذج الكتاب : وهذا التعديل على الكود : Dim dbox As Office.FileDialog Set dbox = Application.FileDialog(msoFileDialogFilePicker) With dbox .title = "All File" .Filters.Clear .Filters.Add "All files", "*.*" .AllowMultiSelect = True If .Show = True Then Dim i As Variant For Each i In .SelectedItems CurrentDb.Execute "Insert into tbl_sub_A (Id_A , path ) values ( " & Me.id & " , '" & i & "');" Next End If 'Imagepath = .SelectedItems(1) End With Me.SF.Requery MsgBox "تم الإدراج" err: 'DoCmd.CancelEvent MsgBox err.Number & vbNewLine & err.Description End Sub Try 2023.accdb

تمام كتر الف خيرك ومتشكره جدا لحضرتك اسفه لو كنت تعبتك

اخي الكريم ابن الاكرمين @عمر ضاحى عجزت الكلمات ان توفيك حقك وشكرك مش عارف اشكرك ازاي والله انا بجد عاجز عن شكرك اشكرك اشكرك اشكرك جزاك الله خيرا

وعليكم السلام ورحمه الله وبركاته تفضل جرب هذا التعديل دفتر اليوميه كمال.علي محمد على.xlsx

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