مطلوب دمج حقول

[نادر ابو احمد]

السلام عليكم

الجدول(T_Main) به بيانات وارقام الدعاوى ورقم المكتب

الجدول(T_CasePart)به اسماء وصفة المتقاضين

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

اضغط علي اضافة الاطراف يظهر نموذج اخر لاضافة اسماء اطراف كل دعوى

في هذا النموذج يوجد كود يجمع اسماء الاطراف

والمطلوب تعديل الكود او عمل كود جديد لاضافة صفة الطرف قبل اسمة

مثل الصورة المرفقة

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

مع جزيل الشكر

LETTERExpert.zip

[نادر ابو احمد]

السلام عليكم

الكود موجود في حدث عن فتح النموذج (F_MainAB)

وهو كالتالي :

Dim i, s As Integer

Dim d As Variant

s = [T_CasePart].Form.RecordsetClone.RecordCount

Me.T_CasePart.SetFocus

[T_CasePart].Form![part].SetFocus

DoCmd.GoToRecord , , acFirst

For i = 1 To s

d = [T_CasePart].Form![part]

Me.T_CasePart.SetFocus

DoCmd.GoToRecord , , acNext

Me.mr_access.SetFocus

Me.mr_access = Me.mr_access.Text & " X " & d

Next

وكان المطلوب :اضافة الموجود بحقل (CaseSefa) ليكون قبل الموجود بحقل (part)

وقد توصلت للحل بحمد لله بعد ان قمت بالتعديل بالكود ليكون كالتالي :

Dim i, s As Integer

Dim d As Variant

Dim N As Variant

s = [T_CasePart].Form.RecordsetClone.RecordCount

Me.T_CasePart.SetFocus

[T_CasePart].Form![part].SetFocus

[T_CasePart].Form![CaseSefa].SetFocus

DoCmd.GoToRecord , , acFirst

For i = 1 To s

d = [T_CasePart].Form![part]

N = [T_CasePart].Form![CaseSefa]

Me.T_CasePart.SetFocus

DoCmd.GoToRecord , , acNext

Me.mr_access.SetFocus

Me.mr_access = Me.mr_access.Text & " X " & N & " :" & d

Next

المطلوب الان ان تساعدوني في عدم ظهور علامة X الزائدة

كما بالصورة

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

LETTERExpert.zip

[adnan1977]

المطلوب الان ان تساعدوني في عدم ظهور علامة X الزائدة

كما بالصورة

اخي العزيز

قم بازالة هذا الكود من الامر

" X " &

فتختفي الاشارة

[نادر ابو احمد]

شكرا لك اخي الحبيب adnan1977

بالواقع ان اشارة (x) للفصل والتمييز بين الاطراف فاذا ازلتها فماذا اضع بدل عنها فالمفروض ان طرف ضد طرف اي ان المدعي فلان ضد المدعي علية فلان فوضعت علامة (x)والمفروض ان اضع عبارة "ضد" ، فهل لديك طريقة او فكرة اخري لتنفيذ ذلك