كيف تنقل قيمة أحد الحقول إلى السجل الجديد

اخي ابو هاجر اعرف واقدر مدى حرصك على توصيل المعلومه ولكني بصراحه لم اعرف مالمقصود بالمثال هذا فياليت توضح اكثر اذا امكن

أخي الكريم

السلام عليكم

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

في هذه الحالة سيضطر المستخدم إلى إدخال الجنسية في كل مرة رغم أن جنسية 90 % من الموظفين واحدة في هذه الحالة بدلاً من إدخال الجنسية في كل مرة اذهب إلى سجل تكون الجنسية فيه هي الجنسية الأكثر استخداماً وانقر الزر الصغير الموجود أمامه ثم انقر زر جديد وسوف تلاحظ أنه يتم تلقائياً إضافة الجنسية المختارة لكل سجل جديد تضيفه

تحياتي

أخوك / أبو هاجر

بارك الله فيك على جهودك الطيبه

التي يعجز اللسان عن الشكر لله ثم لك

حركه ممتازه والله يعطيك العافيه اخي ابوهاجر على جميع مشاركاتك فأنت مكسب والله للفريق العربي للبرمجه ودوم إن شاء الله بهذا التألق

بارك الله فيك يا اباهاجر

و وفقك الله في الماجستير

تحياتي

هذا ما كنا نبحث عنه اخي الحبيب

ولكن لي سؤال حاولت استفيد من المثال المرفق و للأسف فشلت لاعتقادي ان هناك اختلاف في الاعدادات بين قاعدتك كمثال وبين القاعدة التي اعمل عليها

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

أخي الكريم

السلام عليكم

اتبع الخطوات التالية :

1- ضع الدالة التالية في الوحدة النمطية للنموذج أو في وحدة نمطية عامة

Function HandleCarry(frm As Form, ctlToggle As Control, ctltxt As Control)

    

    If Not IsNull(ctltxt.Name) Then

        If ctlToggle.Value = True Then

             ctltxt.DefaultValue = "'" & ctltxt.Value & "'"

        Else

             ctltxt.DefaultValue = ""

        End If

    End If

End Function

2- ضع بجانب مربع النص الذي تريد تمكين المستخدم من حفظ قيمته عنصر تحكم من نوع مفتاح تبديل

3- في كل مفتاح تبديل اكتب الكود التالي في خاصية بعد التحديث :

=HandleCarry([Form];Screen.ActiveControl;Form!berth_city)

مع تغيير berth_city إلى اسم مربع النص الذي تريد تثبيت قيمته

تحياتي

أخوك / أبو هاجر

أكثر من ممتازة

الله يوفقك يأبو هاجر دنيا وأخره .

شكرا أخي فعلا رائع

الحمد لله ^