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

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

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

WIL.rar

[ابوخليل]

عليكم السلام

لا اعلم ما الفائدة من زيادة الأدوات ؟؟ لماذا ادخال البيانات عبر وسيط ليس له لزوم

لماذا لا يتم الاختيار من مربعات التحرير مباشرة ؟

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

.......................

على كل حال تم تحقيق طلبك ولكن .. بشرط ان يكون شخص واحد في كل نموذج

بمعنى سيتم التطبيق على الزوجة الأولى .. وعلى الابن الأول .. عند كل تغيير

...................

يوجد حلول اخرى تضبط المسألة باستخدام استعلام التحديث ..

ولكن قبل ان نتوسع في الأمر .. يجب ان تقنعني بفائدة نموذج C1 مع انه يمكن الاختيار من مربعات التحرير مباشرة

WIL2.rar

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

4 ساعات مضت, ابوخليل said:

لا اعلم ما الفائدة من زيادة الأدوات ؟؟ لماذا ادخال البيانات عبر وسيط ليس له لزوم

لماذا لا يتم الاختيار من مربعات التحرير مباشرة ؟

بوركت استاذ وشكرا على الرد فكرة جميلة ولكن لم انتبه لها بحكم فلة الخبرة

4 ساعات مضت, ابوخليل said:

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

فعلا في الاصل تكون عند بداية التسجيل لاول مرة ولكن عند ظهور التقرير  المرفق كان سبب في اعادة هيكلة البرنامج من جديد

4 ساعات مضت, ابوخليل said:

وجد حلول اخرى تضبط المسألة باستخدام استعلام التحديث ..

ياريت توافيني باستعلام التحديث 

4 ساعات مضت, ابوخليل said:

يجب ان تقنعني بفائدة نموذج C1 مع انه يمكن الاختيار من مربعات التحرير مباشرة

كما أشرت قلة الخبرة هي السبب

4 ساعات مضت, ابوخليل said:

على كل حال تم تحقيق طلبك ولكن .. بشرط ان يكون شخص واحد في كل نموذج

لماذا حصرت تعديلك في السطر الاول فقط

يمكن يكون عند الزوج فقط لانه واحد اما الزوجة والابناء فهم متعددون

واذا كان عندك حل اخر وسهل تفصل به استاذ واكن شاكرا لك 

تقبل تحياتي القلبية

[ابوخليل]

الولاية والبلدية .. هل تريد رصدهما في الجداول كجملة نصية؟ ام  نرصد المعرف الرقمي ؟

للعلم يجب فصل جدول الولاية الى جدولين مرتبطين واحد للولاية والآخر للبلدية

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

1 دقيقه مضت, ابوخليل said:

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

المهم تظهر في التقرير كجملة نصية

2 دقائق مضت, ابوخليل said:

للعلم يجب فصل جدول الولاية الى جدولين مرتبطين واحد للولاية والآخر للبلدية

عن طريق الربط معناها كل ولاية لها بلدياتها المعينة

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

على فكرة كود الولاية معروف اما البلدية فكودها ID في ذات الجدول

وزد على ذلك طريقة العمل 

مكان الميلاد يكتب يدوي

اما البلدية فتختارها انت

والولاية تظهر تلقائيا عند اختيارك للبلدية 

 

تم تعديل الخميس at 20:30 بواسطه طاهر اوفيسنا

[ابوخليل]

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

المهم تظهر في التقرير كجملة نصية

 

التصميم المثالي الاحترافي .. اذا البيانات ثابتة في الجداول الخدمية فالأفضل رصد معرفاتها

[ابوخليل]

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

اما البلدية فتختارها انت

والولاية تظهر تلقائيا عند اختيارك للبلدية 

 

بالعكس .. الولاية اولا بحيث يتم تصفية البلديات

لديك في الجدول اكثر من 1500 بلدية بينما الولايات 58

ولكن يبقى اشكالية جمالية في النماذج المستمرة .. كعرض فقط ولن يؤثر على البيانات

لأن هذه البيانات المفترض كتابتها عند التسجيل الأول

[ابوخليل]

تفضل

تم التحايل على النموذج الفرعي .. 

يجب اختيار الولاية اولا من اجل يتم تصفية حقل البلدية الصغير الازرق والذي يتم الاختيار منه 

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

 

WIL3.rar

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

22 ساعات مضت, ابوخليل said:

تفضل

تم التحايل على النموذج الفرعي .. 

يجب اختيار الولاية اولا من اجل يتم تصفية حقل البلدية الصغير الازرق والذي يتم الاختيار منه 

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

احسن طريقة بديهية كما أشرت وبدون أكواد

بوركت استاذنا الجليل أبو خليل

دمت ذخرا للمنتدى 

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

في 30‏/10‏/2025 at 23:40, ابوخليل said:

يجب اختيار الولاية اولا من اجل يتم تصفية حقل البلدية الصغير الازرق والذي يتم الاختيار منه 

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

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

[ابوخليل]

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

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

وحتى لو اختفت فلن تتغير القيم في الجدول .. سارفق لك مثال على ذلك

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

[ابوخليل]

تفضل

بدون المربع الازرق

ولكن لا تهتم  عندما تتغير الحقول الى خالية .. لأن السبب هو انه يتم تحديث النموذج على معيار واحد محدد

WIL4.rar

[ابوخليل]

غريب .. عجيب 

راجعت المثال اعلاه فوجد فيه خلل .. يبدو اني لم اتأكد منه

تفضل تصحيح

WIL5.rar

[Foksh]

بما أن أفكار معلمي أبو خليل لا تنتهي ( مشكوراً على جهوده التي نتعلم منها  ) . وددت المشاركة على الهامش في ملف المشاركة الأصلية كالتالي ..

في مربع النص "مكان الميلاد" الحدث نفسه عند الخروج ( كما هي رغبة أخي طاهر ) :-

Private Sub مكان_الميلاد_Exit(Cancel As Integer)
    Dim sourceInfo As String
    sourceInfo = Me.Name & "|" & Me.Parent.Name
    DoCmd.OpenForm "C1", , , , , , sourceInfo
End Sub

طبعاً هذا الكود سيمرر اسم النموذج الفرعي واسم النموذج الرئيسي مفصولين بإشارة "|" إلى النموذج "C1"

 

الآن في النموذج "C1" قمت بحجز المتغيرين والحدث التالي عند تحميل النموذج :-

Private sourceSubform As String
Private sourceMainForm As String

Private Sub Form_Load()
    If Not IsNull(Me.OpenArgs) Then
        Dim parts() As String
        parts = Split(Me.OpenArgs, "|")
        If UBound(parts) = 1 Then
            sourceSubform = parts(0)
            sourceMainForm = parts(1)
        End If
    End If
End Sub

 

وفي الكومبوبوكس Com_Miled ، قمت بتحديث الكود ليصبح :-

Private Sub Com_Miled_AfterUpdate()
    If sourceSubform <> "" And sourceMainForm <> "" Then
        With Forms(sourceMainForm).Controls(sourceSubform).Form
            .Com_Miled = Me.Com_Miled
            .Wil_Miled = Me.Wil_Miled
        End With
    End If

    DoCmd.Close acForm, Me.Name
End Sub

 

وبالتالي النتيجة خرجت معي بهذا الشكل :-

 

 

ملاحظة :- لم أقم بالإطلاع على أي ملف مرفق تمت مشاركته ..

 

WIL.zip

[ابوخليل]

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

 

ملاحظة :- لم أقم بالإطلاع على أي ملف مرفق تمت مشاركته ..

 

انا ابحث عن الطرق العفوية المتوقعة .. وابتعد عن الخطوات المتكلفة

لو تكرمت واطلعت على آخر مرفق لي .. ليتك تعالج مشكورا اختفاء البيانات في حقل البلدية عندما يتم تحديث حقل الولاية

[Foksh]

30 دقائق مضت, ابوخليل said:

اختفاء البيانات في حقل البلدية عندما يتم تحديث حقل الولاية

في الكومبوبوكس "Wil_Miled" قمت كتجربة بتغيير الحدث بعد التحديث من :-

Me.Com_Miled.Requery

ليصبح في النموذج الفرعي F2_Sub كالتالي ( كتجربة ) :-

Private Sub Wil_Miled_AfterUpdate()
    If Not IsNull(Me.Wil_Miled) Then
        Me.Com_Miled.RowSource = _
            "SELECT TblWsub.ID, TblWsub.N_C, TblWsub.Code_W " & _
            "FROM TblWsub " & _
            "WHERE TblWsub.Code_W = " & Me.Wil_Miled & " " & _
            "ORDER BY TblWsub.N_C;"
    End If
End Sub

وكانت النتيجة كالتالي :-

 

إلا أنني غير راضٍ عن الفكرة 😢 . رغم أن أحد التقويض في الحلول هو أن النماذج الفرعية = نماذج مستمرة !!!!

 

[ابوخليل]

انار الله دربك  فشكرا لك

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

 الجملة التي تفضلت بها هي عين الصواب وينقصها شرط صغير  فقط

تم تعديل الجملة ...... والتجربة اكثر من رائعة  100%

    If Not IsNull(Me.Wil_Miled) Then
    Me.Com_Miled.RowSource = "SELECT TblWsub.ID, TblWsub.N_C, TblW.Code_W " &  _
                             "FROM TblW INNER JOIN TblWsub ON TblW.Code_W = TblWsub.Code_W " &  _
                             "WHERE TblW.Code_W =[forms]![f1]![F2_Sub].[Form]![Wil_Miled]"
    End If

 

WIL6.rar

[Foksh]

8 دقائق مضت, ابوخليل said:

تم تعديل الجملة ...... والتجربة اكثر من رائعة  100%

آمين يا رب العالمين .. وإياكم معلمي الفاضل ..

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

جرب الفرق ، بما أننا نقوم بتعيين مصدر القيم للكومبوبوكس عند تحديث اسم الولاية ( صحيح ؟؟ )

 

[ابوخليل]

11 دقائق مضت, ابوخليل said:

صحيح .. تسلم

كل مشكلة ولها حل .. المهم الفكرة تتم بشكل محكم

وضعت هذا السطر عند تحميل النموذج الفرعي .. يعني اطلقنا سراحه  حتى اشعار آخر ههههههه

Me.Com_Miled.RowSource = "SELECT TblWsub.ID, TblWsub.N_C FROM TblWsub"

 

 

@Foksh ما رأيك الآن

WIL7.rar

[Foksh]

4 دقائق مضت, ابوخليل said:

صحيح .. تسلم

كل مشكلة ولها حل .. المهم الفكرة تتم بشكل محكم

وضعت هذا السطر عند تحميل النموذج الفرعي .. يعني اطلقنا سراحه  حتى اشعار آخر ههههههه

هههههه 

نفس المبدأ تقريباً ، ولكن هنا عند التحميل يفرض القيمة دائماً وهي أسلم وأأمن ..

 

المهم اطلاق سراحه بدون قيود 😅

[ابوخليل]

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

هههههه 

نفس المبدأ تقريباً 

 

نعم ... مع زيادة فضل لعملك حيث ان استعلامك اخف