إدراج قيم موجودة بجداول عند التصفية

[طاهر اوفيسنا]

السلام عليكم اساتذتي الكرام مبارك علينا وعليكم الشهر الفضيل عند فتح الفورم FrmMenah وعند اختيار Etar تساوي المنح العائلية او التعويضات الطبية او العمرة او غيرهم وعند الضغط على فتح نموذج الشرط يفتح الفورم المعني بالتصفية المطلوب جلب قيم الجداول الموجودة واظهارها حسب التصفية في  ComBox : Menha_Name

BAR_A(32025).rar

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

سؤال لولبي  ، ما الرابط بين الكومبوبوكس Etar والجداول التي تريد جلب القيم منها ؟؟؟؟

[طاهر اوفيسنا]

2 ساعات مضت, Foksh said:

ما الرابط بين الكومبوبوكس Etar والجداول التي تريد جلب القيم منها ؟؟؟؟

حاليا وحسب البرمجة لايوجد رابط بينهما

الا يكون رابط بينهما عن طريق كود مثلا استاذ ام هذا صعب ?

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

تم تعديل مارس 3 بواسطه طاهر اوفيسنا

[طاهر اوفيسنا]

في 3‏/3‏/2025 at 14:11, Foksh said:

ما الرابط بين الكومبوبوكس Etar والجداول التي تريد جلب القيم منها ؟؟؟؟

استاذ فكرت وزدت لكل الجدول سجل وسميته Menha_ID  ورقمت المنح العائلية رقم 1 والتعويضات الطبية رقم 2 والعمرة رقم3  وبعدين عملت استعلام توحيد فيه كمايلي Id و Nom_Menhaو Menha_ID فظهرت كل الاسماء و الترقيمات في كومبوبكس  والان هل من فكرة لكي يتم التصفية ?

[Foksh]

32 دقائق مضت, طاهر اوفيسنا said:

استاذ فكرت وزدت لكل الجدول سجل وسميته Menha_ID  ورقمت المنح العائلية رقم 1 والتعويضات الطبية رقم 2 والعمرة رقم3  وبعدين عملت استعلام توحيد فيه كمايلي Id و Nom_Menhaو Menha_ID فظهرت كل الاسماء و الترقيمات في كومبوبكس  والان هل من فكرة لكي يتم التصفية ?

ممتاز ..

هل لك ان ترفق ملفك بعد هذه الإضافة المهمة ، واعتقد انه يجب ان لا تتقيد بالقيم الموجودة في الكومبوبوكس Etar كأنها Value list ، والأصح بالنسبة لي هو ان يكون لها جدول مستقل لإضافتها وتحريرها مستقبلاً ( هذه الفكرة إختياري وليس إجباري طبعاً ) .

بانتظار ملفك المعدّل

 

[طاهر اوفيسنا]

40 دقائق مضت, Foksh said:

انتظار ملفك المعدّل

تفضل استاذي الكريم

 

 

BAR_A(432025).rar

[Foksh]

11 ساعات مضت, طاهر اوفيسنا said:

تفضل استاذي الكريم

 

 

BAR_A(432025).rar 169.41 kB · 2 downloads

حال وصولي للكمبيوتر بإذن الله تعالى 😇

[طاهر اوفيسنا]

48 دقائق مضت, Foksh said:

حال وصولي للكمبيوتر بإذن الله تعالى 😇

استاذ تقريبا توصلت لحل ولكن بقيت مشكلة كما في الصورة

BAR_A(5.3.2025).rar

تم تعديل مارس 5 بواسطه طاهر اوفيسنا

[Foksh]

منذ ساعه, طاهر اوفيسنا said:

تقريبا توصلت لحل ولكن بقيت مشكلة كما في الصورة

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

المتبقي بسيط ان شاء الله ، هل هذا طلبك ؟

 

BAR_A(5.3.2025).mdb.zip

تم تعديل مارس 5 بواسطه Foksh

[طاهر اوفيسنا]

10 دقائق مضت, Foksh said:

المتبقي بسيط ان شاء الله ، هل هذا طلبك ؟

شكرا استاذ على التكملة

[طاهر اوفيسنا]

السلام عليكم

معذرة لاني لم افتح موضوع جديد لاني اراه تكملة للموضوع القديم

قمت بتغيير مصدر مربع تحرير وسرد etar

فوقعت في مشكلة عند فتح نموذج الشرط

حاولت كثير بان اجد حلا فلم اجده

Private Sub N100_Click()

    Dim fieldValue As String
    Dim keywords As Variant
    Dim keyword As Variant
    Dim found As Boolean
    Dim strWhereCondition As String
    ' الكلمات أو أجزاء الكلمات المراد البحث عنها
    keywords = Array("etar") ' يمكنك إضافة كلمات أخرى هنا

    ' جلب القيمة من الحقل Field1 مع التعامل مع القيم الفارغة
    fieldValue = Nz(Me!Etar.Column(1), "")

    ' التحقق إذا كانت القيمة تحتوي على أي من الكلمات المطلوبة
    found = True
    For Each keyword In keywords
        If InStr(1, fieldValue, keyword, vbTextCompare) > 0 Then
            found = True
            Exit For
        End If
    Next keyword

    ' إذا تم العثور على أي كلمة، افتح النموذج
    If found Then
    
    strWhereCondition = "[Menha_Type] = '" & Me![Etar].Column(1) & "'"
    DoCmd.OpenForm "Frm_MenhaRules", acNormal, , strWhereCondition
         

    If Me.Etar.ListIndex = 0 Then
    Me.Frm_sub.SourceObject = "FrmMenah_sub"
    'Me.Frm_MenhaRules.SourceObject = Menha_Name
         'Menha_Name = CmdMenha.Column(2)
End If
    Else
        ' إذا لم يتم العثور على أي كلمة
        MsgBox "الحقل لا يحتوي على النصوص المطلوبة.", vbInformation, "تحذير"
    End If


Exit_N100_Click:
    Exit Sub

Err_N100_Click:
    MsgBox Err.Description
    Resume Exit_N100_Click
    
End Sub

)

تغير المصدر.rar