صالح حمادي قام بنشر يوليو 24, 2016 مشاركة قام بنشر يوليو 24, 2016 السلام عليكم و رحمة الله و بركاته أيها الأخوة الكرام حياكم الله. أبحث عن كود يمكنني من التنقل بين سجلات نموذج فرعي بإستعمال أزرار موجودة في النموذج الرئيسي. التنقل بين سجلات نموذج فرعي.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 25, 2016 مشاركة قام بنشر يوليو 25, 2016 وعليكم السلام Option Compare Database Private Sub أمر1_Click() On Error Resume Next Me.dd.SetFocus DoCmd.GoToRecord , , acNext End Sub Private Sub أمر3_Click() On Error Resume Next Me.dd.SetFocus DoCmd.GoToRecord , , acPrevious End Sub جعفر 3 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يوليو 25, 2016 الكاتب مشاركة قام بنشر يوليو 25, 2016 شكرا جزيلا و بارك الله فيك أستاذ جعفر الكود يعمل بشكل ممتاز. لكن لما أستعمل هذا الكود يعني أضع اسم النموذج الفرعي. DoCmd.GoToRecord , "subform", acPrevious يعطي (خطأ رقم "2489" الكائن غير مفتوح) ما هو الخطأ أو كيف يمكن إصلاحه رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 25, 2016 مشاركة قام بنشر يوليو 25, 2016 (معدل) ما اسم النموذج الفرعى؟ الفكرة هايلة و الكود رائع يستاهل يتحط في فيديو تم تعديل يوليو 25, 2016 بواسطه عبد الفتاح كيرة 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يوليو 25, 2016 الكاتب مشاركة قام بنشر يوليو 25, 2016 subform رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 25, 2016 مشاركة قام بنشر يوليو 25, 2016 اسم الفرعى لا يوضع هنا بل فى سطر Setfocus Me.subform.setfocus 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يوليو 25, 2016 الكاتب مشاركة قام بنشر يوليو 25, 2016 نعم أخي و هذا ما أشار إليه الأستاذ جعفر. أنا أسأل هل بالإمكان إضافة اسم كائن في هذا المكان أم لا رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 25, 2016 مشاركة قام بنشر يوليو 25, 2016 تستطيع استعمال اي من هذه الطرق الثلاث: Private Sub أمر1_Click() 'On Error Resume Next '1. ' Me.dd.SetFocus ' DoCmd.GoToRecord , , acNext '2. Me.dd.Form.Recordset.MoveNext '3. ' Me.dd.SetFocus ' DoCmd.RunCommand acCmdRecordsGoToNext End Sub Private Sub أمر3_Click() On Error Resume Next '1. ' Me.dd.SetFocus ' DoCmd.GoToRecord , , acPrevious '2. Me.dd.Form.Recordset.MovePrevious '3. ' Me.dd.SetFocus ' DoCmd.RunCommand acCmdRecordsGoToPrevious End Sub جعفر 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يوليو 25, 2016 الكاتب مشاركة قام بنشر يوليو 25, 2016 ما شاء الله زادك الله علما و علما و علما أستاذنا جعفر بارك الله لك و لعلمك و نفعك الله به في الدارين الدنيا و الآخرة غن شاء الله رابط هذا التعليق شارك 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.