Moosak

تم تحديث المرفقات في المشاركة الأساسية 🙂

وعليكم السلام ورحمة الله وبركاته أخي @hanafymahmood 🙂 خذ نسخة من البرنامج (مهم) .. واحذف منها جميع السجلات ما عدا 10 تقريبا تضعها كنموذج للتجربة عليها .. وأرفق البرنامج في موضوع جديد مستقل ( مهم ) .. ثم أشر لهذا الموضوع بوضع الرابط الخاص به في موضوعك الجديد .. ونتمنى لك التوفيق 🙂

استخدم هذا الكود الذي يقوم بحذف بيانات جميع الجداول ما عدا الجداول التي تحددها : ضع هذا الكود في وحدة نمطية : Function DeleteDataFromTables(excludedTables() As Variant) As String Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentData For Each obj In dbs.AllTables If Left(obj.Name, 4) <> "MSys" And Not IsInArray(obj.Name, excludedTables) Then DoCmd.SetWarnings False DoCmd.RunSQL ("DELETE * FROM " & obj.Name) DoCmd.SetWarnings True End If Next obj DeleteDataFromTables = "تم حذف سجلات جميع الجداول" End Function Function IsInArray(value As Variant, arr As Variant) As Boolean Dim element As Variant On Error Resume Next IsInArray = False For Each element In arr If element = value Then IsInArray = True Exit Function End If Next element End Function ثم يمكنك استدعاء الكود واستخدامه بالطريقة التالية : Sub ExampleUsage() Dim excludedTables() As Variant excludedTables = Array("Table1", "Table2", "Table3") ' قم بتعيين أسماء الجداول التي ترغب في استثنائها هنا Dim result As String result = DeleteDataFromTables(excludedTables) MsgBox result End Sub

وعليكم السلام ورحمة الله وبركاته 🙂 وهنا أيضا :

شكرا لك أخي @Foksh على المشاركة 🙂 ولكن لا أذكر أن هذا الملف لي .. وهو على فكرة كنز ثمين 😄👌🏻

شكرا لك أخي @عبد اللطيف سلوم .. تقبل الله منك 🙂🌼

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

انت صاحب همة أخي @tiger wanted تبارك الله 🙂 تابع هذا الموضوع من مايكروسوفت فيه جميع اختصارات خاصية إرسال المفاتيح SendKeys : SendKeys statement (VBA) - Microsoft Learn https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/sendkeys-statement

ربما لو اخترعنا طريقة لتعديل البيانات أو إضافتها عن طريق استعلامات التعديل والإلحاق أو ربما عن طريق فتح RecordSet بالكود .. يمكن إيجاد آلية لعمل ذلك .. نفس فكرة النماذج الغير منظمة لأي جدول أو استعلام .. أيش رايكم ؟ 🙂

أخي @محمد احمد لطفى أنظر لهذه المشاركة .. 🙂 تستطيع منها تعديل النموذج وتعطيه روابط الملفات التي لديك ( الملف الحالي و ملف التحديث ) والحصول على التواريخ لكلا الملفين 👌🏼 وهذا تتطبيق على ما ذكرته لك : Show Last Update.rar

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

هناك تحديثات جذرية عملتها على هذه الملفات أخي @Foksh لعله يتسع لي الوقت لطرحها إن شاء الله 🙂

لم أنتبه للردود .. وشاركت مع الإخوة 🙂 date.mdb

أعطي مثال على ما تريدين ..

شكرا لك أستاذنا الغالي @ابوخليل 🙂🌷 فكرت سابقا في هذا الأمر .. لكن وجدته سهل ولا يحتاج لجهد مثل صف العناصر واعادة تسميتها فتركت أمره للمصمم .. الطريقة هي أن تحدد جميع العناصر مرة واحدة ثم تحدد العرض والارتفاع من صندوق الخصائص .. وبعدها استخدم هذه الأداة .. 👍🏼🙂

احبك الله الذي احببتني فيه اخي العزيز @Foksh 😊🌷

كان السبب أنه لابد من حفظ السجل الرئيسي قبل تحميل الملفات 🙂 جرب نزل نفس المرفق الآن ..

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

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

هذه بعض التعديلات على ملف الأخ العزيز @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

أخي عصام أشتغلت حسب الوصف .. ولكن ظهرت إشكاليات تتطلب تدخلك فيها 😅🖐 وهي أنه بعض النتائج لايوجد لها قيمة مقابلة في جدول pSize أعلى منها .. لذلك جعلت مقابلها صفر ( أنظر الأعمدة : size4, size3, size2, size1 ) .. والمعادلة التي وضعتها تقسم ناتج الطرح على قيمة الـ size .. فعندما تكون القيمة تساوي صفر لايمكن القسمة على الصفر .. لذلك استبدلتها بالواحد (1) لكي لا تظهر أخطاء .. لكن النتيجة طبعا ستكون خطأ .. المهم هاك الملف ، وعدل على المعادلات بما تراه مناسبا 🙂 الملف : test.accdb

تمام أخي عصام .. ولكن المرة القادمة ضع كل استفساراتك مرة واحدة في أول المشاركة 😉👌 طبعا هذه الخطوة تعمل في استعلام هذه المرة .. لكن هناك استفسار : ليش ال 110 تطرح من 130 وليس 115 حسب التسلسل في جدول psize ؟ الرقم الذي أكبر من 110 مباشرة هو 115 وليس 130 ؟!

شكرا أخي @Foksh 🙂 طبعا تم تأسيس التصميم على النقطة التي ذكرتها .. لأن كل رقم مخصص له خط واحد ، وحسب ملاحظتي للنمط الذي في الهاتف أنه لا يقبل المرور على نفس النقطة مرتين .. 🙂 لكن في عالم البرمجة كل شي ممكن ، ولو تتبعنا الأفكار اللامتناهية بحجم الكون وحاولنا تطبيقها كلها لن ننتهي أبدا أبدا .. 😁🖐 فاكتفيت بهذا القدر .. والله الموفق 😊🌼 ولك الحرية طبعا في تطوير الملف وتطبيق أفكارك الإبداعية فيه .. وتشاركنا إبداعاتك بالتأكيد 😉👌🏻

العفو أخي العزيز 😊🌼 طبعا هذه الخطوة ستضعها في موضوع جديد إن شاء الله ( حسب القوانين ) 😉👌🏻

هذه والله أعلم بسبب أنك لم تضغط على [تمكين] في الشريط الأصفر الذي يظهر لك في الأعلى أول ما تفتح الملف .. 🙂 وبالنسبة لهذه .. فهاك ما طلبت (فقط تأكد من صحة العملية الحسابية) : 🙂 الملف : ‏‏Sum Them All 2.1 - Moosak.accdb