أولاً :
لك دعوة من اخوانك هنا
http://www.officena....ncement=21&f=89
ثانيا :
ارفق مثالك مع نموذجك الفرعي الذي تريد ربطه
ملحوظة : اجعل مثالك على الاصدار 2003
ما زالت توجد لديك بعض الملاحظات
- استخدمت علامة السالب (-) في تسمية النموذج الفرعي
- يوجد مسافة فارغة في تسمية احد الجداول
- كثير من الحقول في الجداول تمت كتابتها بحروف فرنسية
يجب المراجعة والتعديل الى الأصح
الأمر يسير ومقدور عليه بحول الله
وانت مخير بين امرين
اما ان ترسل الملف على بريدي _ان لم يكن هناك خصوصية _ فأصلحه لك
وإما ان تنتظر حتى اعد شرحا وافيا بالخطوات المتبعة لاصلاح مثل هذه الحالة
لو حولت المرفق الى امتداد mdb لحصلت على تجاوب اسرع
وعل كل حال يمكنك تحقيق مطلوبك استخدام هذا السطر في 2010
FormCustomerSubform02.SetFocus
فقط ضعه قبل امر الفرز وبالضبط بعد جملة : GoToControl
اما على 2003
فقد قمت بتحويل المثال ثم العمل عليه
انظر التعديل على مثالك
اولا اختر نوع الفرز ثم اختر الحقل الذي ترغب التطبيق عليه
.................................
واعتقد انه يمكن التطوير الى وحدة نمطية عامة
Test For Sorting2.rar
جزأت لك العمليات
نسخة احتياطية بزر
ونسخة مضغوطة بــ rar بزر
ونسخة مضغوطة بــ zip بزر
فقد يحتاج المستخدم نقل واحدة فقط الى الفلاشة مثلا
لك الخيار الآن بنقل ما شئت منها الى برنامجك
تمت التجربة : جميع العمليات الثلاث تعمل بلا مشاكل
msarat.rar
اليك هذه الملاحظات :
العنوان : (مراجعة على هذا البرنامج) لا يصف شيئا ، ولن تجد احدا يساعدك اذا لم تحدد المشكلة
يوجد أخطاء في كتابتك لاسماء الحقول والجداول وغيرها مثلا :
(Table remise) يجب ان يختفي الفراغ بين الكلمتين والصحيح هكذا (Tableremise)
(T-Article) لا تضع علامة السالب بين الكلمات والصحيح هكذا (T_Article)
(Qtélivrée) اقتصر على الحروف الانجليزية فقط ويمكنك كتابة التسميات الفرنسية او العربية في التسمية التوضيحية .
جرب هذا
Private Sub SJL_DblClick(Cancel As Integer)
Dim stLinkCriteria As String
Dim stDocName As String
stLinkCriteria = "[SJL] = Forms!frmMxs!frmBhs![SJL]"
stDocName = "frmBamat"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub