نادر ابو احمد قام بنشر يناير 26, 2011 مشاركة قام بنشر يناير 26, 2011 السلام عليكم الجدول(T_Main) به بيانات وارقام الدعاوى ورقم المكتب الجدول(T_CasePart)به اسماء وصفة المتقاضين عند فتح البرنامج يكون نموذج ادخال بيانات الدعوى اضغط علي اضافة الاطراف يظهر نموذج اخر لاضافة اسماء اطراف كل دعوى في هذا النموذج يوجد كود يجمع اسماء الاطراف والمطلوب تعديل الكود او عمل كود جديد لاضافة صفة الطرف قبل اسمة مثل الصورة المرفقة ومرفق البرنامج للتعديل علية مع جزيل الشكر LETTERExpert.zip رابط هذا التعليق شارك More sharing options...
نادر ابو احمد قام بنشر يناير 27, 2011 الكاتب مشاركة قام بنشر يناير 27, 2011 السلام عليكم الكود موجود في حدث عن فتح النموذج (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 رابط هذا التعليق شارك More sharing options...
adnan1977 قام بنشر يناير 30, 2011 مشاركة قام بنشر يناير 30, 2011 المطلوب الان ان تساعدوني في عدم ظهور علامة X الزائدة كما بالصورة اخي العزيز قم بازالة هذا الكود من الامر " X " & فتختفي الاشارة رابط هذا التعليق شارك More sharing options...
نادر ابو احمد قام بنشر يناير 30, 2011 الكاتب مشاركة قام بنشر يناير 30, 2011 شكرا لك اخي الحبيب adnan1977 بالواقع ان اشارة (x) للفصل والتمييز بين الاطراف فاذا ازلتها فماذا اضع بدل عنها فالمفروض ان طرف ضد طرف اي ان المدعي فلان ضد المدعي علية فلان فوضعت علامة (x)والمفروض ان اضع عبارة "ضد" ، فهل لديك طريقة او فكرة اخري لتنفيذ ذلك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.