مساعدة في نسخ قيمة حقل في نموذج الى حقل في نموذج اخر

[ازهر عبد العزيز]

السلام عليكم

في النموذج   fty يوجد حقل  idx    احتاج عند كتابة قيمة في هذا الحقل وكانت هذة القيمة غير موجودة في الجدول  tx  في الحقل  idx  اظهار رسالة "هل ترغب باضافة هذا الشخص "فاذا كان الجواب نعم يتم فتح النموذج   ftx في سجل جديد واضافة القيمة المدخلة الى الحقل   idx  تلقائيا وبعكسة يتم التراجع عن الادخال 

yyyyyyyyyy.accdb 812 kB · 77 downloads

[ناقل]

تفضل اخي العزيز .... بس رجاءا لا تكرهني .... ههههههه

 

yyyyyyyyyy.accdbFetching info...

[kha9009lid]

في نموذج fty في حدث بعد التحديث للحقل idx ضع الكود التالي

Dim x As Integer
x = DCount("[idx]", "tx", "[idx]='" & [idx] & "'")
If x = 0 Then
If MsgBox("هل ترغب باضافة هذا العميل", vbYesNo, "تنبيه") = vbYes Then
DoCmd.OpenForm "ftx", , , , , , idx
Else
Me.Undo
End If
End If

• حجزنا متغير رقمي
• جعلنا قيمة المتغير = عدد السجلات المطابقة للحقل idx
• ثم وضعنا شرط اذا كان العدد 0 يظهر الرسالة من نوع نعم لا
• اذا اخترنا نعم يفتح نموذج ftx ونحمل قيمة الحقل idx في بارامتر OpenArgs
• اما اذا اخترنا "لا" يتم التراجع

ثم في نموذج ftx في حدث عند الفتح نضع الكود التالي

If Not IsNull(Me.OpenArgs) Then
DoCmd.GoToRecord , , acNewRec
Me.idx.Value = Me.OpenArgs
End If

هنا اشترطنا اذا كان OpenArgs غير فارغ ينقلنا الى وضع اضافة سجل جديد ثم نجعل قيمة الحقل idx تساوي القيمة المحملة في OpenArgs

بالتوفيق اخ ازهر مع تحفظي على الفكرة

  في 24‏/4‏/2021 at 19:54, ناقل said:

تفضل اخي العزيز .... بس رجاءا لا تكرهني .... ههههههه

Expand  

جميل اخي ناقل ولكن عند فتح نموذج ftx ونموذج fty مغلق سوف تظهر رسالة خطا 🌹

تم تعديل أبريل 24, 2021 بواسطه kha9009lid

[ازهر عبد العزيز]

  في 24‏/4‏/2021 at 19:54, ناقل said:

تفضل اخي العزيز .... بس رجاءا لا تكرهني ... ههههههه

Expand  

🤣🤣

[طاهر الوليدي]

  في 24‏/4‏/2021 at 20:13, kha9009lid said:

في نموذج fty في حدث بعد التحديث للحقل idx ضع الكود التالي

Dim x As Integer
x = DCount("[idx]", "tx", "[idx]='" & [idx] & "'")
If x = 0 Then
If MsgBox("هل ترغب باضافة هذا العميل", vbYesNo, "تنبيه") = vbYes Then
DoCmd.OpenForm "ftx", , , , , , idx
Else
Me.Undo
End If
End If

• حجزنا متغير رقمي
• جعلنا قيمة المتغير = عدد السجلات المطابقة للحقل idx
• ثم وضعنا شرط اذا كان العدد 0 يظهر الرسالة من نوع نعم لا
• اذا اخترنا نعم يفتح نموذج ftx ونحمل قيمة الحقل idx في بارامتر OpenArgs
• اما اذا اخترنا "لا" يتم التراجع

ثم في نموذج ftx في حدث عند الفتح نضع الكود التالي

If Not IsNull(Me.OpenArgs) Then
DoCmd.GoToRecord , , acNewRec
Me.idx.Value = Me.OpenArgs
End If

هنا اشترطنا اذا كان OpenArgs غير فارغ ينقلنا الى وضع اضافة سجل جديد ثم نجعل قيمة الحقل idx تساوي القيمة المحملة في OpenArgs

بالتوفيق اخ ازهر مع تحفظي على الفكرة

جميل اخي ناقل ولكن عند فتح نموذج ftx ونموذج fty مغلق سوف تظهر رسالة خطا 🌹

Expand  

اذا تم تطبقه واشتغل معاكم تمام ممكن ترسلوا التطبيق

 

[kha9009lid]

  في 24‏/4‏/2021 at 22:32, طاهر الوليدي said:

اذا تم تطبقه واشتغل معاكم تمام ممكن ترسلوا التطبيق

Expand  

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

 

طاهر.accdbFetching info...

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

شاهذا هذه المشاركة لعدد اكبر من الحقول 👇

  اقتباس

 

Expand