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

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

السلام عليكم اساتذتي الكرام مبارك علينا وعليكم الشهر الفضيل عند فتح الفورم 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

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

هل من مساعدة اساتذتي المطلوب حسب الصورة 

[kanory]

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

هل من مساعدة اساتذتي المطلوب حسب الصورة 

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

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

شكرا استاذ على الرد كيف يعمل المرفق المهم المطلوب تصفية في نموذج الاستثناءات حسب الاستعلام الموحد Qry_Menha ولاسيما Menha_Id

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

[kanory]

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

شكرا استاذ على الرد كيف يعمل المرفق المهم المطلوب تصفية في نموذج الاستثناءات حسب الاستعلام الموحد Qry_Menha ولاسيما Menha_Id

طيب جرب المرفق التالي
 

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

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

3 ساعات مضت, kanory said:

طيب جرب المرفق التالي

شكرا لك استاذي العزيز kanory

قمت بإنشاء مربع نص غير منظم مخفي وسميته KA  وعملت المعيار بالنموذج Frm_MenhaRules

كما تم تعريف ME.KA

[Forms]![FrmMenah]![ka]
Me.ka = [Forms]![FrmMenah]![Etar].Column(1)

 

[kanory]

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

قمت بإنشاء مربع نص غير منظم مخفي وسميته KA  وعملت المعيار بالنموذج Frm_MenhaRules

كما تم تعريف ME.KA

اخي طاهر ايضا هناك طريقة اخرى وبدون ادراج مربع النص

اذا تريدها ارفقها لك ابشر

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

19 دقائق مضت, kanory said:

اخي طاهر ايضا هناك طريقة اخرى وبدون ادراج مربع النص

اذا تريدها ارفقها لك ابشر

ياسبحان الله استاذي لقد تم حذف كل ماتم تعديله من طرفك فاصبح المرفق يشتغل عادي 

شي عجيب 😙

هات ماعندك لنرى ابتكارك استاذ 💐

[kanory]

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

ياسبحان الله استاذي لقد تم حذف كل ماتم تعديله من طرفك فاصبح المرفق يشتغل عادي 

شي عجيب 😙

هات ماعندك لنرى ابتكارك استاذ 💐

وهل عرفت السبب ؟؟؟؟؟؟؟
هو هذا حلي الجديد !!!! هههههههه

وايضا هناك حل ثالث ؟؟؟ 

 

تفضل اولا الحل الثالث باستخدام 
 

Private Sub Form_Open(Cancel As Integer)
Dim SQL As String

SQL = "SELECT Nom_Menha, Menha_ID, ID FROM Qry_menha " & _
      "WHERE Menha_ID = '" & Forms!FrmMenah!Etar.Column(1) & "' " & _
      "ORDER BY Menha_ID;"

Me.Menha_Name.RowSource = SQL

End Sub

اما الحل الثاني والذي اكتشفته انت اريدك ان تعرفة بنفسك !!!

تغير المصدر3.mdb