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

جميل جدا .. جزاك الله خيرا انتهت مشكلتي يمكنني الآن معرفة جداول كل ملف .. وسأعمل على حفظ الاسماء .. وسأضعها في ليبل في في الفورم الهدية يا سلام .. سأدرج هذا الفورم في جميع الواجهات .. ولما اريد ربط الجداول من جديد وانقر على زر اظهار الجداول ؛ يظهر الليبل الف شكر اخي وحبيبي في الله اباجودي

تم حذف الاستعلامات تم عمل اغلاق للقاعدة تم عمل ضغط واصلاح للقاعدة بعد اعادة فتحها النتيجة بعد كل ما سبق Query: ~sq_cCopy Of frmReports~sq_cs3 -> Table: tblsaf Query: ~sq_cfrmBarPrint~sq_ct2 -> Table: tblGrPoinCount Query: ~sq_cfrmcomIn~sq_cname1 -> Table: tblnames Query: ~sq_cfrmcomIn5~sq_cname1 -> Table: tblNames Query: ~sq_cfrmcomIn5~sq_cqama -> Table: tblSaf Query: ~sq_cfrmEshtrakatNotic~sq_cCombo15 -> Table: tblEshtrakatType Query: ~sq_cfrmEshtrakatNotic~sq_ceshOffres -> Table: tblEshtrakatOffres Query: ~sq_cfrmlog~sq_cgateNm -> Table: tblMsgGate Query: ~sq_cfrmNames~sq_cJensya -> Table: tbljensya Query: ~sq_cfrmNames~sq_cمربع_تحرير_وسرد187 -> Table: tblAdres Query: ~sq_cfrmOrderItem~sq_cItmDesc -> Table: tblOrderItem Query: ~sq_cfrmsecurity~sq_ccompname -> Table: tblUsers Query: ~sq_ffrmEshtrakatNotic -> Table: tblEshtrakatTsdeed Query: ~sq_ffrmNmadg -> Table: tblNmadg Query: ~sq_ffrmOrdersIn -> Table: tblOrderDetails Query: ~sq_ffrmRaes -> Table: tblRaese Query: ~sq_rRepHdorTfseelStud -> Table: tblcomInX الحمد لله ... لله الفضل والحمد والمنه هل تريد اى شئ أخر يا استاذى الجليل ومعلمى القدير و والدى الحبيب

تمام .. راجعت النتيجة النتيجة ممتازة يمكن الاعتماد على هذا الكود عند الحاجة

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

حسب حاجتك انت في الطريق السليم خطواتك صح انا عكس الحالة التي انت فيها قاعدة الجداول واحدة .. والواجهات متعددة

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

وعليكم السلام ورحمة الله تعالى وبركاته كما سبق الدكر من الأستاد @عبدالله بشير عبدالله طلبك غير واضح إظافة أن أرقام الأعمدة على الملف تتواجد في الصف 3 ليس 2 مجرد تخمين ربما تقصد جلب بيانات العمود بشرط إدخال قيمة رؤوس الأعمدة (رقم العمود) جرب هدا Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim OnRng As Variant, tmp As Variant, lastRow As Long, a As Long, Clé As String Dim WS As Worksheet: Set WS = Sheets("Sheet1") If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, WS.Range("AQ3:BO3")) Is Nothing Then lastRow = WS.Columns("A:Z").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row OnRng = WS.Range("A4:Z" & lastRow).Value tmp = WS.Range("A3:Z3").Value Clé = Target.Value Application.ScreenUpdating = False If IsEmpty(Target.Value) Then WS.Range(WS.Cells(4, Target.Column), WS.Cells(lastRow, Target.Column)).ClearContents Else For a = 1 To UBound(tmp, 2) If tmp(1, a) = Clé Then With WS.Range(WS.Cells(4, Target.Column), WS.Cells(lastRow, Target.Column)) .ClearContents .Value = Application.Index(OnRng, 0, a) End With Exit For End If Next a End If If a > UBound(tmp, 2) Then Target.ClearContents: MsgBox "لم يتم العثور على " & _ Target.Value & " في قاعدة البيانات", vbExclamation, "إنتبـــاه" End If Application.ScreenUpdating = True End Sub استخراج الاعمدة.xlsm

المعادلة ليس بها أي خطأ أخي @محمد زيدان2024 ربما قمت بوضعها بشكل غير صحيح معادلة ترقيم.xlsx

السلام عليكم بعد اذن استاذنا الفاضل محمد هشام يالنسبة لسؤالك اضغط على Ctrl + Shift + Enter اطلعت على ملفك وما قام به الاستاذ محمد هشام كاقي ووافي ولكن التعامل مع معادلات الصفيف تحتاج الى من ينتبه بحذر عند استخذام الملف لان ضباع الاقواس معناها نتائج خاطئة ارفق لك ملفا بواسطة كود يعمل تلقائيا عند الاختيار من القائمة الى جانب يقوم بتحديث القائمة اذا اضفت لها بيانا جديدا او اكثر DC.xlsb