اذهب الي المحتوي
أوفيسنا

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

  1. AbuuAhmed

    AbuuAhmed

    الخبراء


    • نقاط

      4

    • Posts

      976


  2. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      3

    • Posts

      12,277


  3. Ali Mohamed Ali

    Ali Mohamed Ali

    المشرفين السابقين


    • نقاط

      2

    • Posts

      11,630


  4. محمد هشام.

    محمد هشام.

    الخبراء


    • نقاط

      2

    • Posts

      1,483


Popular Content

Showing content with the highest reputation on 03 ينا, 2024 in all areas

  1. شكرا لكم. تنقيح أخير للكود: 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
    2 points
  2. يا سلام .. ما فيه اجمل من كذا وانا جالس اقدم محاضرات عن النماذج وتحديثها شكرا لك .. لن نستغني عن ابداعاتك
    1 point
  3. جميل جدا بكذا قريبا نطالب بضمك الى مجموعة خبراء المنتدى ياليت تضعين الحل هنا .. من اجل نستفيد
    1 point
  4. أخي الكريم ... انا طبعت وفي الطباعة ظهر جميع حدود الجدول حضرتك فقط عامل معاينة قبل الطباعة ولو حضرتك طبعت هيظهر لك جميع خطوط حدود الجدول لو عايز تغير غي تسطير حدود الجدول فهذا يعود اليك وهذه صورة عند الطباعة
    1 point
  5. تفضل محاولتي أخي الكريم @husseinharby ,, ولا أعلم أن كنت قد فهمتك بشكل صحيح ,, Database2.accdb
    1 point
  6. 1 point
  7. مشاركة مع احبتي يوجد بعض المعوقات لا تتضح الا بعد تصفح المثال تفضلي high or low.rar
    1 point
  8. بعد ان تستخرج المجلد الى قرص دي انسخ ملف lab والصقة بسطح المكتب بيشتغل طبيعي . في حال لم يفتح بكلمة مرور 1 افتح ملف اكسس عادي وادخل الى خيارات وثم الى اعدادات الماكرو واختار تمكين جميع الماكرو وحفظ . ثم ارجع وافتح ملف lab بيفتح معك طبيعي
    1 point
  9. طيب ممكن بعد اذن استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل اضيف شئ صغنون من واقع تجربة عملية سابقة لى اعتقد الاستعلام بدون اقواس بالشكل الاتى سوف يكون افضل لان استخدام الأقواس ([]) في أسماء الحقول قد يؤدي إلى مشكلات في بعض الحالات وهذا عن تجربة شخصية ولا يتطوع او يتبرع أحد ويسألنى عن السبب لأننى فعلا لا أعرف 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] & "*");
    1 point
  10. لأن هذه البرامج تكون بمقابل ولابد من شرائها هذه فقط نسخة تجريبية بارك الله فيك واهلا بك فى المنتدى
    1 point
×
×
  • اضف...

Important Information