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

شكرا لكم. تنقيح أخير للكود: Option Explicit Function CountPeople(ByVal ID As String) As Integer Dim People() As String, Item As String Dim Items As Integer, Pos As Integer Dim i As Integer, Count As Integer ID = Replace(ID, " ", "", 1, -1) If ID = "" Then Exit Function People = Split(ID & "+", "+") Items = UBound(People()) - 1 For i = 0 To Items Item = People(i) Select Case Item Case "INF": 'Count = Count + 0 Case "SGL": Count = Count + 1 Case "DBL": Count = Count + 2 Case "TRP": Count = Count + 3 Case Else Pos = InStr(1, Item, "CH(") If Pos > 0 Then If Pos = 1 Then Count = Count + 1 Else Count = Count + Val(Left(Item, Pos - 1)) End If End If End Select Next i CountPeople = Count End Function

يا سلام .. ما فيه اجمل من كذا وانا جالس اقدم محاضرات عن النماذج وتحديثها شكرا لك .. لن نستغني عن ابداعاتك

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

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

تفضل محاولتي أخي الكريم @husseinharby ,, ولا أعلم أن كنت قد فهمتك بشكل صحيح ,, Database2.accdb

محاولتي: استخراج أعداد الغرف_01.xlsm

مشاركة مع احبتي يوجد بعض المعوقات لا تتضح الا بعد تصفح المثال تفضلي high or low.rar

بعد تنقيح الكود سن المعاش في مصر_02.xlsm

بعد ان تستخرج المجلد الى قرص دي انسخ ملف lab والصقة بسطح المكتب بيشتغل طبيعي . في حال لم يفتح بكلمة مرور 1 افتح ملف اكسس عادي وادخل الى خيارات وثم الى اعدادات الماكرو واختار تمكين جميع الماكرو وحفظ . ثم ارجع وافتح ملف lab بيفتح معك طبيعي

وعليكم السلام -تفضل لك ما طلبت للرفع.xlsb

طيب ممكن بعد اذن استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل اضيف شئ صغنون من واقع تجربة عملية سابقة لى اعتقد الاستعلام بدون اقواس بالشكل الاتى سوف يكون افضل لان استخدام الأقواس ([]) في أسماء الحقول قد يؤدي إلى مشكلات في بعض الحالات وهذا عن تجربة شخصية ولا يتطوع او يتبرع أحد ويسألنى عن السبب لأننى فعلا لا أعرف SELECT Data1.ID, Data1.namee, Data1.edara, Data1.woork, Data1.egraa FROM Data1 WHERE (Data1.namee Like "*" & [Forms]![Data1]![Combo17] & "*") AND (Data1.egraa Like "*" & [Forms]![Data1]![Combo19] & "*");

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